VB-Homepage Tipp 140

Dynamische zugewiesene IP Adresse abfragen

Wenn Sie in einem Firmennetz oder über einen Provider eine dynamisch zugewiesene IP-Adresse erhalten, wissen Sie in aller Regel nicht welche es ist, da wäre dann nachfolgender Tipp interessant, der genau diese ermittelt. Damit der Tipp auch klappt, müssen Sie auch eine Verbindung geöffnet haben. Öffnen Sie ein neues Projekt. Fügen Sie ein Ihrer Form Label Objekt (Label1) und einen CommandButton (Command1) hinzu.     (Command1.Caption = "Abfrage"). Fügen Sie außerdem noch ein Zusatzsteuerelement hinzu. ( MSWINSCK.OCX ) Microsoft Winsock Control 5.0 Geben Sie unter Form_Load folgendes ein. Winsock1.Protocol = sckTCPProtocol Dem Commandbutton vergeben Sie folgende Anweisungen unter Command1_Click. Winsock1.Connect Label1 = Winsock1.LocalIP Winsock1.Close Starten Sie Ihr Projekt und Klicken Sie auf den Button Es wird Ihnen daraufhin Ihre zugewiesene IP-Adresse angezeigt.

Tipp-Download

Quelle :