GetProxies()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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