Hallo Zusammen!
Möchte über eine TextBox meine IP-Adresse anzeigen lassen, funktioniert aber nicht so wie ich mir das vorgestellt habe.
Über den VB-Code greife ich auf den Windows Registrierungseintrag zu wo meine IP-Adresse aufgelistet ist, jedoch wenn ich diese Adresse in meine TextBox einlesen möchte passiert gar nichts.WARUM?
Hier der Quellcode:
Auf der Form befindet sich eine TextBox = Text1 und ein CommandButton = Command1
'-------------------------------------------------------------------------------------------------
Public Function RegRead(Verzeichniss As String) As String
Dim ws As Object
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Verzeichniss)
End Function
'-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{88954A0B-00EE-4972-A134-DCB27EC57770}\IPAddress")
Text1.Text = Inhalt
End Sub
Es passiert jedoch nichts, außer das ich eine Fehlermeldung "Typen Unverträglich" bekomme.
An was kann das liegen?
Danke für eure Hilfe.
mfg
BruS
Möchte über eine TextBox meine IP-Adresse anzeigen lassen, funktioniert aber nicht so wie ich mir das vorgestellt habe.
Über den VB-Code greife ich auf den Windows Registrierungseintrag zu wo meine IP-Adresse aufgelistet ist, jedoch wenn ich diese Adresse in meine TextBox einlesen möchte passiert gar nichts.WARUM?
Hier der Quellcode:
Auf der Form befindet sich eine TextBox = Text1 und ein CommandButton = Command1
'-------------------------------------------------------------------------------------------------
Public Function RegRead(Verzeichniss As String) As String
Dim ws As Object
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Verzeichniss)
End Function
'-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{88954A0B-00EE-4972-A134-DCB27EC57770}\IPAddress")
Text1.Text = Inhalt
End Sub
Es passiert jedoch nichts, außer das ich eine Fehlermeldung "Typen Unverträglich" bekomme.
An was kann das liegen?
Danke für eure Hilfe.
mfg
BruS