[VB6] Conoscere il proprio indirizzo IP

[oregon]

Abbiamo impiegato una decina di messaggi prima di capire quale e' la situazione attuale e cosa vuoi ...

Come facevo a capire che avevi due interfacce di rete, una privata e una pubblica?

Per avere il maggior numero di informazioni, in questo caso, utilizza WMI e presenta i dati nella finestra di debug ...

Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=true", , 48)

For Each objItem In colItems
    Debug.Print "Interface: " & objItem.Caption
    Debug.Print "MAC Address: " & objItem.MACAddress
    Debug.Print "Default Gateway: " & Join(objItem.DefaultIPGateway, ",")
    Debug.Print "IP Address: " & Join(objItem.IPAddress, ",")
    Debug.Print "IP Subnet: " & Join(objItem.IPSubnet, ",")
    Debug.Print
Next

[ranza!!!123]

scusa,errore mio...cmq il primo codice ke hai postato dava effettivamente l'IP ke mi serviva...grazie d tutto

[oregon]

Non ho capito ... e l'ultimo codice l'hai provato ?

[ranza!!!123]

mi da errore all'istruzione set...xò sn sicuro d aver sbagliato a incollare...perchè mi mette tutto in Dichiarazioni...dove devo mettere la seconda parte di codice?

[ranza!!!123]

se metto la 2° parte in form_load mi dice type mismatch a qusta riga:
Debug.Print "Default Gateway: " & Join(objItem.DefaultIPGateway, ",")

[oregon]

Il codice in VB deve stare all'interno di una funzione, evento o sub ... mi sembrava scontato perche' e' una nozione di base ...

Inserisci tutto il codice all'interno di un evento click di un pulsante ...

[Silvio1955]

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

Ho utilizzato questo poche righe e funzionano perfettamente sul mio pc, ho assemblato un pacchetto di installazione, ma non mi funziona su nessun pc, se non è installato Vbasic. Non riesco capire cosa manchi quando lo installo altrove, sapete aiutarmi? grazie.

[oregon]

Installa anche il file

MSINET.OCX

che trovi in C:\Windows\System32

L'ocx deve essere registrato

[Silvio1955]

Appunto, non sapevo quale era l' .ocx e li avevo copiati tutti, ma il problema rimane perchè non so come registrarlo, mi aiuti per favore, grazie.

[oregon]

Come si registrano tutti gli activex ... con regsvr32