Feedback

GetProxies()

VB - Anonymus November 25, 2008
2 Ratings 2/5

Sprache: VB

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
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 aktuell get Proxies Proxy Proxys

Alte URL: /snippet/getproxies/1025

3 Kommentare