易语言取wai网IP地址

2390517751

.版本 2
.支持库 internet

.子程序 _按钮5_被单击
.局部变量 ip地址, 文本型
.局部变量 ip属地, 文本型

标签5.标题 ＝ “”
' 本源码来自易语言资源网(www.5A5X.com)
ip地址 ＝ 到文本 (HTTP读文件 (“http://whois.ipcn.org/”))
ip属地 ＝ 取文本中间 (ip地址, 寻找文本 (ip地址, “您的IP是：</td><td>”, 1, 真) ＋ 19, 取文本长度 (ip地址) － 寻找文本 (ip地址, “您的IP是：</td><td>”, 1, 真) － 19)  ' 取剩余字符
ip地址 ＝ 取文本左边 (ip属地, 寻找文本 (ip属地, “</”, 1, 真) － 1)
ip属地 ＝ 取文本中间 (ip属地, 寻找文本 (ip属地, “您来自：</td><td>”, 1, 真) ＋ 17, 寻找文本 (ip属地, “</td></tr>”, 1, 真) － 寻找文本 (ip属地, “您来自：</td><td>”, 1, 真) － 18)
标签5.标题 ＝ “你的wai网IP地址是：” ＋ ip地址 ＋ “，IP属地：” ＋ ip属地

lxwan

感谢楼主的无私贡献精神，先学习了。