看好些兄弟要查询外网IP和地理位置的源码（纯源码非模块）

IeAnDgvt

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
ip	文本型		0

延迟 (1000)
ip ＝ 取本机IP ()
标签1.标题 ＝ “您的内网IP地址是：” ＋ ip [1]
子程序2 ()

子程序名	返回值类型	公开	备 注
子程序2

变量名	类 型	静态	数组	备 注
ip网页	文本型
ip左边文本	整数型
IP右边文本	整数型
IP址	文本型
位置左边文本	整数型
位置右边文本	整数型
最后位置	文本型

ip网页 ＝ 到文本 (HTTP读文件 (“http://1111.ip138.com/ic.asp”))
' 调试输出 (ip网页)
ip左边文本 ＝ 寻找文本 (ip网页, “[”, , 假) ＋ 1
IP右边文本 ＝ 寻找文本 (ip网页, “]”, , 假)
IP址 ＝ 取文本中间 (ip网页, ip左边文本, IP右边文本 － ip左边文本)
位置左边文本 ＝ 寻找文本 (ip网页, “]”, , 假) ＋ 1
位置右边文本 ＝ 寻找文本 (ip网页, #位_右边文本, , 假)
最后位置 ＝ 取文本中间 (ip网页, 位置左边文本, 位置右边文本 － 位置左边文本)
' 调试输出 (最后位置)
标签2.标题 ＝ “ 您的外网IP地址是：” ＋ IP址 ＋ 最后位置

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库
sock	网络通讯支持库
internet	互联网支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 sock<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 ip, 文本型, , "0"<br /> <br /> <br /> 延迟 (1000)<br /> ip ＝ 取本机IP ()<br /> <br /> <br /> 标签1.标题 ＝ “您的内网IP地址是：” ＋ ip [1]<br /> 子程序2 ()<br /> <br /> .子程序 子程序2<br /> .局部变量 ip网页, 文本型<br /> .局部变量 ip左边文本, 整数型<br /> .局部变量 IP右边文本, 整数型<br /> .局部变量 IP址, 文本型<br /> .局部变量 位置左边文本, 整数型<br /> .局部变量 位置右边文本, 整数型<br /> .局部变量 最后位置, 文本型<br /> <br /> ip网页 ＝ 到文本 (HTTP读文件 (“http://1111.ip138.com/ic.asp”))<br /> ' 调试输出 (ip网页)<br /> ip左边文本 ＝ 寻找文本 (ip网页, “[”, , 假) ＋ 1<br /> IP右边文本 ＝ 寻找文本 (ip网页, “]”, , 假)<br /> IP址 ＝ 取文本中间 (ip网页, ip左边文本, IP右边文本 － ip左边文本)<br /> 位置左边文本 ＝ 寻找文本 (ip网页, “]”, , 假) ＋ 1<br /> 位置右边文本 ＝ 寻找文本 (ip网页, #位_右边文本, , 假)<br /> <br /> 最后位置 ＝ 取文本中间 (ip网页, 位置左边文本, 位置右边文本 － 位置左边文本)<br /> ' 调试输出 (最后位置)<br /> 标签2.标题 ＝ “ 您的外网IP地址是：” ＋ IP址 ＋ 最后位置

下载： ip获取.zip (1.74 KB, 下载次数: 137)

2015-1-11 15:26 上传

点击文件名下载附件

纯男Ren

取IP及地理位置 (1)

840453927

牛不牛啊？谁试过？

kennen

感谢分享！参考参考

qq36396

  看看

huhua

嗯，感谢你了，非常感谢

对方后卫

很好的东西看看，

2838036369

学习一下.，

Violation

zz吗？

qq642469

谢谢开源和分享！

vsnic

谢谢分享~~