- 超级版主
- 1228894
- 26953
- 25
- 8028 朵
- 36107 个
- 4724 个
- 421340
- 2012-07-18
|
1#
t
T
发表于 2012-10-29 16:33
|
|只看楼主
本帖最后由 n15976906190 于 2014-8-22 10:31 编辑 - 返回值 = Lib.网络.获得网页源文件("http://www.cnproxy.com/ipwhois.php")
- Call Plugin.Sys.SetCLB(返回值)
- MyPos = Instr(返回值,"您的ip地址是: ")
- MyVar = Mid(返回值,MyPos+14,15)
- MessageBox MyVar
复制代码- 返回值 = Lib.网络.获得网页源文件("http://pv.sohu.com/cityjson?ie=gb2312")
- MyPos = Split(返回值,": """)(1)
- TracePrint MyPos
- MyVar = Split(MyPos,chr(34))(0)
- MessageBox MyVar
复制代码
|