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.

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!