Vorab! Das ist nur für Lernzwecke! Ich will es nicht für das Missbrauchen von IP's verwenden.
Ich will lediglich den Umgang mit Web und APIs in VB.net beherrschen.
ich hab grad mit Hilfe eines YT Videos einen IP Resolver für Skype geschrieben. Dazu wird die API von cyber***** verwendet.
Beim Abfragen des Skype Usernames wird eine Request an den API Server gesendet und es soll die IP empfangen werden, dabei wird eine MSG Box geöffnet, allerdings bleibt die leer.
PHP Code:
Imports System.Text.RegularExpressions
Imports System.Net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim request As HttpWebRequest = HttpWebRequest.Create("http://linkzensiert.org/index.php?user=" & TextBox1.Text)
Dim response As HttpWebResponse = request.GetResponse
Dim source As String = New IO.StreamReader(response.GetResponseStream).ReadToEnd
Dim r As New Regex(".*</b></samp></font></center>")
Dim match As Match = r.Match(source)
MessageBox.Show(match.ToString.Split(";")(0))
End Sub
End Class
Was mache ich falsch? Hilfe bitte.
