Qualcosa del genere
codice: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
Qualcosa del genere
codice: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