[VB.Net-Source] GetIP

[ewfijwef]

Ich habe gerade aus Langeweile ein wirklich sehr simples Tool gemacht. Es dient dazu, die IP-Adresse, das Herkunftsland und das Betriebssystem anzuzeigen.
Das Ganze hat mich vielleicht 15 Minuten gekostet. Ich dachte mir, dass ich es hier poste, vielleicht ist es ja für Anfänger recht gut.

Es funktioniert so: Das Programm steuert die Webseite Wie ist meine IP-Adresse? an und liest die oben genannten Daten mithilfe von RegEx aus dem Quelltext aus.

Hier zum Code:

' Benötigte Namespace-Importierungen
Imports System.Text.RegularExpressions
Imports System.IO

Public Class frmMain

    Private Sub wbbIP_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wbbIP.DocumentCompleted
        ' Variablen Deklarieren
        Dim strQuelltext As String
        Dim strIP, strBetriebssystem, strLand As String

        ' Der Quelltext-Variable den Text der Webseite zuweisen. (Also nur der Text, NICHT den HTML-Code)
        strQuelltext = wbbIP.Document.Body.InnerText

        ' Mit RegEx die IP-Adresse, das Herkunftsland und das Betriebssystem filtern
        strIP = Regex.Match(strQuelltext, "Ihre IP-Adresse ist :.*\n.*", RegexOptions.IgnoreCase).ToString.Replace("Ihre IP-Adresse ist :", "").Replace(Chr(10), "").Trim
        strLand = Regex.Match(strQuelltext, "Herkunft: .*", RegexOptions.IgnoreCase).ToString.Replace("Herkunft: ", "").Trim
        strBetriebssystem = Regex.Match(strQuelltext, "Ihr Betriebssystem: .*", RegexOptions.IgnoreCase).ToString.Replace("Ihr Betriebssystem: ", "").Trim

        ' Wieder den Standard-Cursor verwenden
        UseWaitCursor = False
        ' Die soeben geladeten Daten anzeigen
        lblAnzeige.Text = "IP-Adresse: " & strIP & vbCrLf & "Herkunftsland: " & strLand & vbCrLf & "Betriebssystem: " & strBetriebssystem
    End Sub

    Private Sub wbbIP_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles wbbIP.NewWindow
        ' Ein sich öffnen wollendes Pop-Up unterdrücken
        e.Cancel = True
    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Den WebBrowser die Seite laden lassen
        wbbIP.Navigate("http://www.wieistmeineip.de/")
    End Sub
End Class

Natürlich gibt es auch ein Beispielprojekt
Download

MfG.

[KrT]

Uuuh, benutze für sowas doch keinen webbrowser.

[Bool]

Was soll das mit dem Webbrowser? Kannst doch einfach mit der Klasse System.Net.WebClient den Quellcode der Seite runterladen und dann die IP rausregexen.

Ich dachte mir, dass ich es hier poste, vielleicht ist es ja für Anfänger recht gut.

Ist eher nicht für Anfänger gedacht, weil das Webbrowser-Element einfach überhaupt nicht für sowas gedacht ist.

Die Kommentare im Source sind teilweise auch Quatsch:

' Variablen Deklarieren

[Diebspiel]

Die 1000 Zeilen Code kannst Du dir sparen. Es geht tatsächlich auch in nur einer Zeile.

    Function getIPAdress() As String

        Return New Net.WebClient().DownloadString("http://www.whatismyip.com/automation/n09230945.asp")

    End Function

oder

    Function getIPAdress2() As String

        Return New Net.WebClient().DownloadString("http://checkip.dyndns.com/").Split(":")(1).Trim().Replace("</body></html>", "")


    End Function

Für das Betriebssystem und das Land gibt es Klassen im .NET Framework.

Eben geschrieben, viel Glück.