Kleinere Releases/Beginner Releases

Imports System.Net.NetworkInformation, System.Net, System.Text, System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'Spam verhindern | Elemente sperren
            TextBox1.Enabled = False
            Button1.Enabled = False
            'HttpWebRequest zum Host
            Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://*******.tk/resolver.php?name=" + TextBox1.Text)
            Dim response As System.Net.HttpWebResponse = request.GetResponse
            'HTML Code auslesen  
            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
            Dim rssourcecode As String = sr.ReadToEnd
            'IPAddresse aus Source Code filtern
            Dim r As New System.Text.RegularExpressions.Regex("<br/>IP-Address: .*<br/>")
            Dim matches As MatchCollection = r.Matches(rssourcecode)
            'IPAddresse & Username zur Listbox hinzufügen
            For Each itemcode As Match In matches
                ListBox1.Items.Add(itemcode.Value.Split("""").GetValue(0) + " - " + TextBox1.Text)
            Next
            'Den Rest des HTML Codes löschen
            With ListBox1
                For index As Integer = 0 To .Items.Count - 1
                    If .Items(index).ToString.Contains("<br/>IP-Address: ") Then
                        .Items(index) = .Items(index).ToString.Replace("<br/>IP-Address: ", String.Empty)
                    End If
                    If .Items(index).ToString.Contains("<br/>") Then
                        .Items(index) = .Items(index).ToString.Replace("<br/>", String.Empty)
                    End If
                Next
            End With
            'Elemente freigeben
            TextBox1.Enabled = True
            Button1.Enabled = True

        Catch ex As Exception
            'Elemente freigeben
            Button1.Enabled = True
            TextBox1.Enabled = True
            ListBox1.Items.Add("Unknown Error - Please try again.")
        End Try
       

    End Sub


End Class