利用网络功能进行查询ip归属地！

雨落无声

[e]
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 网页源码, 文本型
.程序集变量 返回, 文本型
.程序集变量 本机ip, 文本型
.程序集变量 ip结果, 文本型
.程序集变量 结果调试, 文本型
.子程序 _查询_被单击
.如果 (地址框.内容 ＝ “”)
    信息框 (“请输入正确ip再进行查询”, 0, “信息错误”)
    返回结果.内容 ＝ “无法查询！”
    返回 ()
.否则
.如果结束
网页源码 ＝ 到文本 (HTTP读文件 (“http://www.baidu.com/s?wd=” ＋ 地址框.内容))
返回 ＝ 文本_取出中间文本 (网页源码, “来&nbsp;&nbsp;&nbsp;自:&nbsp;<strong>”, “</strong></p>    <p”)
输出调试文本 (返回)
返回结果.内容 ＝ 到文本 (“查询结果：” ＋ 返回)
.子程序 __启动窗口_被激活
返回结果.是否允许多行 ＝ 真
本机ip ＝ 到文本 (HTTP读文件 (“http://www.baidu.com/s?wd=ip”))
ip结果 ＝ 文本_取出中间文本 (本机ip, “本机IP:&nbsp;<strong>”, “ </p>   <p class=” ＋ #引号 ＋ “op_ip_search” ＋ #引号 ＋ “>”)
输出调试文本 (ip结果)
结果调试 ＝ 到文本 (ip结果)
返回结果.内容 ＝ 子文本替换 (“本机IP:” ＋ 结果调试, “</strong>&nbsp;&nbsp;”, #换行符 ＋ “IP所属地区：”, , , 真)

[/e]

这是全部源码，使用了一个模块，精易模块！大家都有！

Sulen

取IP归属地还是比较简单的. 适合新手学习{:soso__13003386447111936706_2:}

乖乖rabbit

IP对属地网上好像查很方便啊

张宝运

拿回去 研究研究了

e小鸟168

感谢楼主分享，学习了，支持你一下。

雨落无声

乖乖rabbit 发表于 2011-10-26 19:42
IP对属地网上好像查很方便啊

知道方便！

主要是供大家学习参考实现方法！

以后自己可以变通着用！

比如：百度空间日志写上内容，两边加上特定字符！易窗口的编辑框获取！然后当公告板用！更改公告修改百度日志就行了！

尼古丁有毒

谢谢分享！！

快到碗裡來

谢谢分享,支持开源

zhaobiao

效率不高，一定要本地查询，才行