aber es soll ja asu einen kompletten quelltext ausgelesen werden... hätte vielleicht gedacht mit der match funktion
hab nen code ausgearbeitet aber der funzt imemrnoch net
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://no-spam.ws/?login=546564564")
Dim response As System.Net.HttpWebResponse = request.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream( ))
Dim rssourcecode As String = sr.ReadToEnd
Dim r As New System.Text.RegularExpressions.Regex("<a title=""gfedgfg"" class=""non_underline"" href=""?login=546564564&mail=""([A-Za-z0-9\-]+)"">gfedgfg</a>$", RegexOptions.IgnoreCase)
Dim matches As MatchCollection = r.Matches(rssourcecode)
For Each itemcode As Match In matches
ListBox7.Items.Add(itemcode.Value.Split("""").GetV alue(6))
Next
End Sub
