[VB6] Ottenere il proprio indirizzo IP (anche dietro router/firewall)

[pierfrancis]

Ciao a tutti
Come posso fare un semplice programma che mi dice quele è il mio indirizzo ip?

[wallrider]

puoi (sconsigliato) usare l'oggetto inet, l'oggetto XMLHTTP, o l'oggetto Webbrowser per leggerti l'output di pagine come www.whatismyip.it
oppure(consigliato) mettere l'output di ipconfig in un file (nell'esempio:c:\myip.txt)

dim x as double
x= shell("ipconfig > c:\myip.txt")

e poi leggere questo file

[oregon]

In certi casi pero', l' ipconfig non serve ... se l'indirizzo e' nattato, devi usare la prima soluzione.

[pierfrancis]

Grazie ma penso che l' unico metodo sia il primo perchè se il pc è connesso a internet tramite un altro pc o un router il secondo metodo nn funziona
Come posso prendere l' ip da una pagina web come hai detto nel primo modo?

[oregon]

Qualcosa del genere

    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

[wallrider]

Originariamente inviato da pierfrancis
Grazie ma penso che l' unico metodo sia il primo perchè se il pc è connesso a internet tramite un altro pc o un router il secondo metodo nn funziona
Come posso prendere l' ip da una pagina web come hai detto nel primo modo?

casomai non funziona il primo (a meno che non sia nattato, come diceva Oregon)