精易论坛

标题: 利用网络功能进行查询ip归属地！ [打印本页]

作者: 雨落无声 时间: 2011-10-26 16:24
标题: 利用网络功能进行查询ip归属地！
本帖最后由听雨轩幻想于 2011-10-26 16:25 编辑

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

[/e]

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

作者: Sulen 时间: 2011-10-26 16:33
取IP归属地还是比较简单的. 适合新手学习{:soso__13003386447111936706_2:}

作者: 乖乖rabbit 时间: 2011-10-26 19:42
IP对属地网上好像查很方便啊

作者: 张宝运 时间: 2011-10-26 21:31
拿回去研究研究了

作者: e小鸟168 时间: 2011-10-26 21:40
感谢楼主分享，学习了，支持你一下。

作者: 雨落无声 时间: 2011-10-27 13:02

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

知道方便！

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

以后自己可以变通着用！

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

作者: 尼古丁有毒 时间: 2012-4-30 16:23
谢谢分享！！

作者: 快到碗裡來 时间: 2014-4-29 17:08
谢谢分享,支持开源

作者: zhaobiao 时间: 2014-8-21 17:56
效率不高，一定要本地查询，才行

欢迎光临精易论坛 (https://125.confly.eu.org/)