Ich habe lange nach einer Möglichkeit gesucht die IP-Adresse auszulesen ohne dass ich etliche Zeilen Quelltext eingeben muss oder auf zusätzliche Steuerelemente angewiesen bin. Mit einem kleinen Umweg über die Kommandozeile ist das möglich. Public Function GetIPAddress() As String Dim Datei As String Dim IP As String Dim iPos As Integer Dim F As Integer Dim sLine As String Dim nTime As Single ' Wichtig! ChDrive Left$(App.Path, 2) ChDir App.Path ' Erstellen einer BAT-Datei, die auf der Kommandozeile IPCONFIG aufruft F = FreeFile Open App.Path & "\IP-Adresse.bat" For Output As #F Print #F, "IPCONFIG > " & Chr$(34) & App.Path & "\IP-Adresse.txt" & Chr$(34) Print #F, "del ip-adresse.bat" Close #F ' Aufruf dieser BAT-Datei - Ergebnis wird in IP-Adresse.txt gespeichert Shell "ip-adresse.bat", vbMinimizedFocus DoEvents ' Warten bis IP-Adresse.txt erstellt wurde nTime = Timer Do Datei = Dir$(App.Path + "\IP-Adresse.txt") DoEvents Loop Until Datei <> "" Or Timer - nTime > 3 ' Auslesen von IP-Adresse.txt If Len(Datei) > 0 Then DoEvents F = FreeFile Open App.Path & "\" & Datei For Input As #F Do While Not EOF(F) Line Input #F, sLine If InStr(1, sLine, "IP-Adresse", vbTextCompare) > 0 Then ' Position des Doppelpunktes ermitteln iPos = InStr(1, sLine, ":") ' IP zuweisen IP = Trim$(Mid$(sLine, iPos + 1)) Exit Do End If Loop Close #F ' IP-Adresse.txt wieder löschen On Error Resume Next Kill App.Path & "\IP-Adresse.txt" On Error GoTo 0 End If GetIPAddress = IP End Function Dieser Tipp wurde bereits 21.266 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |