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]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

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!