Get proxy gesucht

[Sploxfreak]

Hi Leute ich suche einen Get Proxy funktion für einen Knuddelbot.

Prinzip:
Button Drücken
Textbox wird mit funktonierenden Proxy gefüllt

Were echt nett wenn ihr mir da weiter helfen könntet

[rVs14]

Spoiler:

'
'         ____  __.  _________            .__        __   
'        |    |/ _| /   _____/ ___________|__|______/  |_ 
'        |      <   \_____  \_/ ___\_  __ \  \____ \   __\
'        |    |  \  /        \  \___|  | \/  |  |_> >  |  
'        |____|__ \/_______  /\___  >__|  |__|   __/|__|  
'                \/        \/     \/         |__|          
'        
'        HTTP PROXY GRABBER
'        © The Don of NYC - 2012
' 


Imports System.Net
Imports System.Threading
Imports System.Collections.Generic
Imports System.Text.RegularExpressions

Namespace HttpProxyGrabber
	Class Program
		Private Shared Sub Main()
			Console.Title = "HTTP Proxy Grabber by The Don of NYC"

			Dim proxies As List(Of [String]) = Proxylist(100)
			' 100 Proxies laden
			If proxies IsNot Nothing Then
				' wenn die Liste null ist, gabs wohl einen Fehler...
				For i As Integer = 0 To proxies.Count - 1
					Console.WriteLine(proxies(i))
				Next
			End If
			' und ausgeben
			Console.ReadLine()
		End Sub

		''' <summary>
		''' Gibt eine Liste mit HTTP Proxies zurück
		''' </summary>
		''' <param name="count">Anzahl der Proxies</param>
		''' <returns>HTTP Proxylist</returns>
		Private Shared Function Proxylist(count As Integer) As List(Of [String])
			Try
				Dim proxylist__1 As New List(Of [String])()

				Dim loadThread As New Thread(Function() Do
					Dim source As [String]() = New WebClient().DownloadString("http://www.proxybase.de/de/list-0.htm").Split(ControlChars.Lf)
					Dim pageCount As Integer = 0

					' Vorhandene Seiten auslesen
					For i As Integer = 0 To source.Length - 1
						If source(i).Contains("http://www.proxybase.de/de/list-0.htm"" style") Then
							pageCount = Integer.Parse(source(i).Substring(source(i).LastIndexOf(""">")).Split(">"C)(1).Split("<"C)(0))
							Exit For
						End If
					Next

					For j As Integer = 0 To pageCount * 20 - 21 Step 20
						Dim proxyContent As [String] = New WebClient().DownloadString([String].Format("http://www.proxybase.de/de/list-{0}.htm", j))

						For Each m As Match In Regex.Matches(proxyContent, "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}")
							If Not proxylist__1.Contains(m.Value) Then
								' wenn der Proxy noch nicht hinzugefügt wurde
								proxylist__1.Add(m.Value)
								' fügen wir diesen hinzu
							End If
						Next
						If proxylist__1.Count = count Then
							' prüfen ob wir schon die angegebene Anzahl erreicht haben 
							Exit For
						End If
					Next
				End Function)

				loadThread.Start()
				While loadThread.IsAlive
					

				End While
				' warten bis alles geladen bzw. der Thread ausgefüht wurde...
					' Liste mit den hinzugefügten HTTP Proxies zurückgeben
				Return proxylist__1
			Catch ex As Exception
				Console.WriteLine(ex.ToString())
				Return Nothing
			End Try
		End Function
	End Class
End Namespace

Bisschen dirty, klappt nicht ganz habe grade auch kein Bock das Ding für dich umzuschreiben, du bist ja so ein super Coder .
Hoffe das du dir ne Funktion selber schreiben kannst.
Credits to The Don of NYC @ K-Script.cc

[Prinzessin Paat]

einfach via HTTP Request von der Seite deiner Wahl auslesen lassen?

[Sploxfreak]

Mal ne Frage ich bin neu in vb und kenne mich mit RegEx nicht so gut aus.

Ich habe hier probleme den proxy zu regexen da im queltext " vorhanden sind jemand ne idee?

<a class="proxyList" href="http://whois.sc/217.219.115.140" target="_blank">217.219.115.140:80</a>

mein Momentaner Source <--- Sehr Dirty, glaube ich^^

Spoiler:

Public Class Form1
    Public Function Stelle(ByVal input As String, ByVal Start As String, ByVal Ende As String)
        Dim Reg As New Regex(Start & "(?<value>(.*))" & Ende)
        Return Reg.Match(input).Groups("value").ToString()
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const WEBADRESSE As String = "http://www.proxybase.de/de/list-0.htm"
        Dim HTMLQuelltext As String
        Dim wc As New WebClient
        Dim ERgebnis As String
        Dim proxy As String = RichTextBox1.text
        HTMLQuelltext = wc.DownloadString(WEBADRESSE)
        RichTextBox1.Text = HTMLQuelltext
        ERgebnis = Stelle(proxy, "http://whois.sc/", " target=")
        RichTextBox2.Text = ERgebnis
    End Sub

[Gnome]

\"whois\.sc/(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})\"

[Sploxfreak]

\"whois\.sc/(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})\"

Wo genau kommt das rein?

an anfang oder ans ende

[Gnome]

bei dem Pattern

[Sploxfreak]

Kannst du mir eben per tv helfen?

[DnL]

Bisschen dirty, klappt nicht ganz habe grade auch kein Bock das Ding für dich umzuschreiben, du bist ja so ein super Coder .
Hoffe das du dir ne Funktion selber schreiben kannst.
Credits to The Don of NYC @ K-Script.cc

Solche Leute wie dich lieb ich einfach.
Den Code duch denn converter jagen und dann so tun als man pro ist.
Ich wette mit dir das du ihn selber nicht umschreiben kannst.
Wenn du es über tv mir zeigst kriegst du von 100 knuddels.


Zum Thread zurück wenne bis morgen mir dein wunsch genau sagst schreibe ich dir denn code. Keine Angst jeder hat mal klein angefangen.
Vill wenn du es mal selber herrausfinden willst. Goggle mal nach vb.net aus Quellcode raus regexen oder. Ich habs mir noch nich genau angesehen aber müsste bestimmt was dabei sein.

Mfg
Like a Star x3

[Gnome]

Sorry nein.
Jeder der in einer .NET Sprache programmiert sollte die MSDN Seite kennen.
Ich erwarte nicht das jeder RegEx kann, aber wenn man den Pattern schon vorgegeben bekommt, dann sollte das jeder, der ernsthaft programmieren will, in der Doku nachlesen können, wie man die Funktion benutzt.