怎样获取海外服务器ip如何获取ip地址

Seth=CreateObject("Microsoft.XMLHTTP")h.Open"GET","/ip2city.asp",Falseh.SendIfh.ReadyState=4Thens=StrConv(h.Responsebody,vbUnicode)IfInStr(s,"[")>0AndInStr(s,"]")>0ThenMsgBoxSplit(Split(s,"[")

(1),"]")

(0)ElseMsgBox"IP地址获取失败"

DimWWIPAsString,TmpAsLongWWIP=

1.OpenURL("/ip2city.asp")Tmp=InStr(

1,WWIP,"[")IfTmp>0ThenMsgBoxMid(WWIP,Tmp

1,InStr(Tmp

1,WWIP,"]")-Tmp-1)ElseMsgBox"IP地址获取失败"EndIf

几罗星人:你说的那个反编译出工程文件和窗体的反编译器我用过，但是翻出来的文件Vb跟本无法打开~~汗

王

二.麻子:这个东西,网上转了很多,但是里面很多错误,完全按照他的能解出一个vbp来那就鬼了.

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。

2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。