Proxy Suche

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Mangafreak1995.

      Proxy Suche

      Hi!

      Nach langer Inaktivität bin ich wieder da.

      Ich habe einen Code für euch, wo ihr nach Proxies "googlen" könnt - aber dafür braucht ihr .NET Framework 4.0 (File.AppendAllLines).

      Das Programm ist in mehreren Klassen unterteilt, von mir übersetzt worden mit ein paar Änderungen (Code in C# von Nico [KoRn]) und ist eine Konsolenanwendung.

      Google Klasse:

      VB.NET-Quellcode

      1. Imports System.Text.RegularExpressions
      2. Imports System.Net
      4. Public Class Google
      6. Public Sub Google()
      7. 'Kann man leer lassen
      8. End Sub
      10. Public Function Execute(ByVal cmd As String) As String()
      11. Return Execute(cmd, 1)
      12. End Function
      14. Public Function Execute(ByVal cmd As String, ByVal pages As Integer()) As String()
      15. Dim results As New List(Of String)
      17. For Each page As Integer In pages
      18. results.AddRange(Execute(cmd, page))
      19. Next
      21. Return results.ToArray()
      22. End Function
      24. Public Function Execute(ByVal cmd As String, ByVal page As Integer) As String()
      26. Ereignisse.Log(String.Format("Durchsuche Google für ""{0}"" auf der Seite {1}", cmd, page), True)
      28. Dim resultPages As New List(Of String)()
      30. Dim uri As String = String.Format("http://google.de/search?q={0}&num=100&start={1}", cmd, (page - 1) * 100)
      32. Dim client As New WebClient()
      34. Dim content As String = client.DownloadString(uri)
      36. Dim pattern As String = "<a href=""([^""]+)"" class=l"
      38. Dim matches As MatchCollection = Regex.Matches(content, pattern)
      40. For Each match As Match In matches
      41. resultPages.Add(match.Groups(1).Value)
      42. Next
      44. Ereignisse.Log(String.Format("{0} Seiten für ""{0}"" gefunden", resultPages.Count, cmd), True)
      47. Return resultPages.ToArray()
      48. End Function
      52. End Class


      Kommen wir nun zu den Ereignissen (eigene Klasse):

      VB.NET-Quellcode

      1. Imports System.Reflection
      3. Public Class Ereignisse
      5. Public Shared Sub Log(ByVal text As String)
      6. Log(text, False)
      7. End Sub
      9. Public Shared Sub Log(ByVal text As String, ByVal debug As Boolean)
      11. Dim stackTrace As New StackTrace()
      12. Dim callingMethod As String = stackTrace.GetFrame(1).GetMethod().Name
      13. Dim calledMethod As String = MethodBase.GetCurrentMethod().Name
      15. Console.ForegroundColor = ConsoleColor.Red
      16. Console.Write("[" + TimeOfDay + "] ")
      18. Console.ForegroundColor = ConsoleColor.Green
      19. Console.WriteLine(If(debug, """{0}"" -> ""{1}"": {2}", "{2}"), callingMethod, calledMethod, text)
      20. End Sub
      23. End Class


      Jetzt kommen wir zu einem anderen Teil, nämlich der allgemeinen Logik:

      VB.NET-Quellcode

      1. Imports System.IO
      2. Imports System.Text
      3. Imports System.Collections.Generic
      5. Public Class Logik
      7. Public Shared Sub StartUp()
      9. Ereignisse.Log("Suchwort (z.B. Proxylisten):")
      11. Dim q As String = Console.ReadLine()
      13. lbl_pages:
      15. Ereignisse.Log("Seiten (Seiten zum Suchen/Filtern, muss größer als 0 sein!):")
      17. Dim pages As Integer = 0
      18. If Integer.TryParse(Console.ReadLine(), pages) = False OrElse pages <= 0 Then
      19. Ereignisse.Log("Falsche Eingabe benutzt!")
      20. GoTo lbl_pages
      21. End If
      23. Ereignisse.Log("Schreibe die Proxies in ""proxies.txt""")
      24. Ereignisse.Log("Drücke Enter zum Starten" & vbLf & vbLf)
      26. Console.ReadLine()
      28. For i As Integer = 1 To pages
      30. Dim links As String() = New Google().Execute(q, i)
      32. For j As Integer = 0 To links.Length - 1
      33. File.AppendAllLines("proxies.txt", Proxy.GetProxies(New Uri(links(j))))
      34. Next
      36. Next
      38. Console.ReadLine()
      40. End Sub
      43. End Class


      Fast geschafft - fehlt nur noch die letzte Klasse: Proxy.

      VB.NET-Quellcode

      1. Imports System.Net
      2. Imports System.Text.RegularExpressions
      4. Public Class Proxy
      6. Public Shared Function GetProxies(ByVal uri As Uri) As String()
      8. Ereignisse.Log(String.Format("Suche Proxies von ""{0}""", uri.Host), True)
      10. Dim content As String = ""
      12. Try
      14. content = New WebClient().DownloadString(uri)
      15. Catch
      16. Ereignisse.Log("Suche fehlgeschlagen!")
      17. Return New String() {}
      18. End Try
      20. Return GetProxies(New WebClient().DownloadString(uri))
      21. End Function
      23. Public Shared Function GetProxies(ByVal content As String) As String()
      25. Dim pattern As String = "(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9]):(\d+)"
      27. Dim matches As MatchCollection = Regex.Matches(content, pattern)
      29. Dim proxies As String() = New String(matches.Count - 1) {}
      30. For i As Integer = 0 To matches.Count - 1
      31. proxies(i) = matches(i).Value
      32. Next
      34. Ereignisse.Log(String.Format("Gefundene Proxies: {0}", proxies.Length), True)
      37. Return proxies
      38. End Function
      41. End Class


      Das wars - aufgerufen wird dies mit Logik.StartUp().

      Viel Spaß.

      # LaPi

      AppendAllLines klingt nach Append für eine Datei für mehrere Linien. Komm schon, für sowas braucht man kein .Net 4. Sowas bastelt man sich schnell selber.
      Was ich auch nicht verstehe, warum hast du eine leere Prozedur ?
      Ich finde es gut , dass du mit RegEx arbeitest und ich habe das ganze auch schon abgespeichert für den Fall, dass man das gebrauchen kann.

    Facebook
    Telefonspende