[VB6] Conoscere l'indirizzo IP del computer

[andrew4]

Ciao a tutti,
come faccio a sapere l'ip del mio computer attraverso un codice?

[oregon]

Per farla molto semplice, aggiungi un controllo Winsock ed usa la proprieta' LocalIP

[andrew4]

Avevo gia provato ma mi dava l'ip di un router invece di internet, però per chi dovesse servire ho la soluzione:

Private Sub Command1_Click()
Dim o As Object
Dim IIP As String

Set o = CreateObject("InetCtls.Inet")
IIP = o.OpenURL("http://pchelplive.com/ip.php")
MsgBox ("Internet IP: " & IIP)

Set o = Nothing
End Sub

[oregon]

Non hai chiesto l'IP con cui ti presenti su internet, ma (come si legge nel titolo) l'IP del tuo computer ... dovevi precisare meglio ...

Comunque, grazie per il codice ... l'avevo scritto e inviato io tempo addietro ...