IP地址查询外网IP查看

两个淡

[e].版本 2
.支持库 internet
.支持库 iext2

A ＝ 到文本 (HTTP读文件 (“http://www.ip138.com/ip2city.asp”))  ' 查询本地IP
B ＝ 寻找文本 (A, “您的IP地址是：[”, , 假)
C ＝ 寻找文本 (A, “] </center>”, , 假)
D ＝ 取文本中间 (A, B ＋ 15, C － (B ＋ 15))  ' 取出IP地址
IP编辑框1.地址 ＝ D

.判断开始 (IP编辑框1.地址 ≠ “0.0.0.0”)
    POST地址 ＝ “http://ip.qq.com/cgi-bin/searchip”
    POST数据 ＝ “searchip1=” ＋ IP编辑框1.地址  ' 提交IP地址
    POST文本 ＝ 到文本 (网页_访问 (POST地址, “POST”, , , POST数据))
    返回a ＝ 文本_取出中间文本 (POST文本, “该IP所在地为：<span>”, “&nbsp”)
    返回d ＝ 文本_取出中间文本 (POST文本, “&nbsp;&nbsp;&nbsp;”, “</span></p>”)
    标签1.标题 ＝ 返回a ＋ 返回d  ' 取出IP所在地区
.默认
    信息框 (“请输入正确的IP地址！”, #错误图标, )[/e]

就在明天

{:3_242:}{:3_242:}frgvrf

lzj53423040

a啊a啊a啊a啊a啊a啊a啊a啊a啊a啊a啊a啊a啊a啊a啊

小辉辉

{:3_232:}加油！！！！

大头佛

回帖是美德，顶一下！

忆如燕

上来学习一下{:3_234:}

幻灵神

谢谢，lz真好f

暗夜·之刃

这就是我要的

求草

貌似不错 拿走去看看{:3_232:}

孤单相随

回帖是美德，顶一下！