Feedback

VB - GetProxies()

Veröffentlicht von am 25.11.2008
(2 Bewertungen)
Ruft die Proxies des aktuellen Tages auf. Die Proxies werden von der Seite - http://www.proxy4free.com/page1.html - entnommen.

GFU-Schulungen  [Anzeige]

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

Public Function GetProxies() As List(Of String)
        ''
        Dim Pattern As String = "<td>(.+?)</td>"
        Dim xregex As New Regex(Pattern)
        Dim proxies As New List(Of String)
        Dim client As New Net.WebClient()
        Dim Quelltext() As String = Split(client.DownloadString("http://www.proxy4free.com/page1.html"), vbCrLf)

        ''Ausmisten
        For Each Line In Quelltext
            For Each Matchx As Match In xregex.Matches(Line)
                If Matchx.Groups(0).Value.Contains(".") And Not Matchx.Groups(0).Value.Contains("href") And Not _
                Matchx.Groups(0).Value.Contains("copy") Then
                    proxies.Add(Matchx.Groups(1).Value)
                End If
            Next
        Next
        Return proxies
    End Function
Abgelegt unter Proxy, Proxys, Proxies, get, aktuell, proxy.

3 Kommentare zum Snippet

Substr schrieb am 29.11.2008:
Geklaut von k-script.de
Nico schrieb am 01.12.2008:
Wenn du nicht Raumi (<3) bist, ist es geklaut.
Jan Welker schrieb am 01.12.2008:
Bitte schreibt hier die URL zum Orginal, dann kann ich es löschen.
 

Logge dich ein, um hier zu kommentieren!