با استفاده از این کد می توانید ای پی اینترنتی را به دست اورید
a = Replace(Inet1.OpenURL("ipfor.me"), "<big><big>Your IP is ", "")
MsgBox Mid(a, 1, InStr(1, a, "<br>") - 1)
نسخه کم حجم تر
Print Replace(Mid(Inet1.OpenURL("goo.gl/ZVGtsB"), 17), """)", "")