Vise IP-adresse ved klik på knap

Jeg vil helst have, at knappen viser computerens IP-adresse i en label i den samme formular. Kan det lade sig gøre?

Jeg har leget lidt, men det virker overhovedet ikke:

Private Sub Command1_Click()
    Dim IP As String
    IP = winsock.localip
End Sub
Private Sub Command2_Click()
    End
End Sub
Private Sub Command2_GotFocus()
    lblIPAdresse.Caption = IP
End Sub

Er det noget i den retning? HJÆLP!

Private Sub lblIP_GotFocus()
    lblIPAdresse.Caption = winsock.localip
End Sub

?

Ingen hjælp?

?

:o(

?

Hvis du ikke har tilføjet "Microsoft Winsock Control x.x" funkre det ikke.

1.
tilføjet Microsoft Winsock Control x.x tryk [CTRL] + [T]
og find ....Winsock Control x.x på listen, set den på din Form1.

Private Sub Command1_Click()
  Label1.Caption = Winsock1.LocalIP
End Sub

Hej shj!

Jeg vil gerne have vist IP-adressen i en label, når brugeren ER på nettet. Så skal brugeren trykke på en kommando-knap, og IP-adressen skal så vises i lblIPAdresse. Så kan jeg tage over med PcAnyWhere.

Jeg får fejl ved denne her:

Private Sub cmdIP_Config_Click()
    lblIPAdresse.Caption = Winsock1.LocalIP
End Sub

Run-time error '424':

Object required

prøv at download filen.

http://home.get2net.dk/sjh/eksperten/164064/winsockip.zip

Det virker fint, men den er identisk med min. Hvorfor virker min ikke? :o(

har du husket at tilføje winsock control

SORRY! Jeg havde ikke navngivet min label korrekt! DET VIRKER! :o)

Tak for hjælpen, min nye bedste ven!

selv tak. :-)

Lige et spørgsmål: Når brugeren sidder et sted ude i landet og trykker på knappen, får vedkommende vist den tildelte IP-adresse fra ISP?