Thema: [VB.Net-Source] GetIP
-
25.04.2011, 09:20 #1
- Registriert seit
- 31.01.2011
- Beiträge
- 7
Thanked 4 Times in 4 Posts[VB.Net-Source] GetIP
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:
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
Download
MfG.
-
25.04.2011, 09:28 #2
- Registriert seit
- 12.12.2011
- Beiträge
- 39
Thanked 24 Times in 16 Posts[VB.Net-Source] GetIP
Uuuh, benutze für sowas doch keinen webbrowser.
-
25.04.2011, 09:30 #3
- Registriert seit
- 19.02.2011
- Beiträge
- 9
Thanked 13 Times in 6 Posts[VB.Net-Source] GetIP
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.
Die Kommentare im Source sind teilweise auch Quatsch:' Variablen Deklarieren
-
25.04.2011, 12:52 #4
[VB.Net-Source] GetIP
Die 1000 Zeilen Code kannst Du dir sparen. Es geht tatsächlich auch in nur einer Zeile.
Code:Function getIPAdress() As String Return New Net.WebClient().DownloadString("http://www.whatismyip.com/automation/n09230945.asp") End Function
Code:Function getIPAdress2() As String Return New Net.WebClient().DownloadString("http://checkip.dyndns.com/").Split(":")(1).Trim().Replace("</body></html>", "") End Function
Eben geschrieben, viel Glück.
Ähnliche Themen
-
[Source] myNotes
Von Snees im Forum PHPAntworten: 2Letzter Beitrag: 24.09.2012, 21:34 -
[Source] QuizBot
Von exception im Forum ShowroomAntworten: 5Letzter Beitrag: 05.09.2012, 01:23 -
[Source] eMailCrawler
Von Snees im Forum .NetAntworten: 2Letzter Beitrag: 11.08.2012, 17:17 -
EMS - Source
Von Snees im Forum SourcecodeAntworten: 2Letzter Beitrag: 16.04.2012, 18:47 -
[VB] Hilfe source
Von Sploxfreak im Forum SourcecodeAntworten: 5Letzter Beitrag: 13.02.2012, 21:45
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.