本帖最后由 1378495772 于 2013-4-19 19:02 编辑
zhangzhen38195 发表于 2013-4-19 17:42
错!你这个是获取局域网IP!
开[源码]........
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 ip地址, 文本型
.局部变量 ip属地, 文本型
标签1.标题 = “”
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)
标签1.标题 = “你的外网IP地址是:” + ip地址 + “,IP属地:” + ip属地