怎样用于语言编一个 可以查找 任意IP地址是来自何地 的程序

IQ101

就是 利用 ip138.com 这个ip查找网站 做出 可以查找 任意IP地址是来自何地 的程序       会的 帮下联系QQ879405419

V雪落有声V

问题很好解决啦~需要一个精易2.5模块
IP查找.rar (41.05 KB, 下载次数: 54)

2010-6-18 14:48 上传

点击文件名下载附件

airpppp

取网页文本,提取出需要的字段
想学易语言,就得自己思考和动手,别做伸手党!

qw39537987

我也不懂这个

pest

.版本 2
.支持库 internet
.支持库 CometWebBrowser
.支持库 spec

.程序集 窗口程序集1
.程序集变量 网页源码, 文本型, , , 取回来的网页源文件
.程序集变量 位置1, 整数型, , , 寻找IP起始位置
.程序集变量 位置2, 整数型, , , 结束位置
.程序集变量 IP, 文本型, , , 取回来的IP地址
.程序集变量 位置3, 整数型, , , 寻找物理地址起始位置
.程序集变量 位置4, 整数型, , , 寻找物理地址结束位置
.程序集变量 取回的地址, 文本型, , , 取回来的物理地址
.程序集变量 物理地址, 文本型, , "0", 用作分割用，用来去除多余的文本，符号

.子程序 _按钮1_被单击

网页源码 ＝ 到文本 (HTTP读文件 (“http://ip.qq.com/”))
位置1 ＝ 寻找文本 (网页源码, “您当前的IP为：”, , 假) ＋ 32
位置2 ＝ 寻找文本 (网页源码, “<”, 位置1, 假)
IP ＝ 取文本中间 (网页源码, 位置1, 位置2 － 位置1)
编辑框1.加入文本 (“您的IP地址为:” ＋ IP ＋ #换行符)

.子程序 _按钮2_被单击

网页源码 ＝ 到文本 (HTTP读文件 (“http://ip.qq.com/”))
位置3 ＝ 寻找文本 (网页源码, “该IP所在地为：<span>”, , 假) ＋ 20
位置4 ＝ 寻找文本 (网页源码, “<”, 位置3, 假)
取回的地址 ＝ 取文本中间 (网页源码, 位置3, 位置4 － 位置3)
物理地址 ＝ 分割文本 (取回的地址, “&nbsp;”, )
编辑框1.加入文本 (“该IP所在地为：” ＋ 物理地址 [1] ＋ 物理地址 [2] ＋ #换行符)

.子程序 __启动窗口_创建完毕

按钮3.禁止 ＝ 真

.子程序 _按钮3_被单击

彗星网页框1.浏览 (“http://www.ip138.com/ips8.asp?ip=” ＋ 删首尾空 (编辑框2.内容) ＋ “&action=2”, , , )
延迟 (2000)
编辑框1.加入文本 (“正在从卫星上提取数据”)
延迟 (2000)
编辑框1.加入文本 (“+”)
延迟 (2000)
编辑框1.加入文本 (“++++”)
延迟 (2000)
编辑框1.加入文本 (“++++++++”)
延迟 (2000)
编辑框1.加入文本 (“++++++++++++++++”)
延迟 (2000)
编辑框1.内容 ＝ “”
显代码 ()

.子程序 _按钮4_被单击

编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”

.子程序 显代码

网页源码 ＝ 到文本 (HTTP读文件 (彗星网页框1.地址))
位置1 ＝ 寻找文本 (网页源码, “您查询的IP”, , 假)
位置2 ＝ 寻找文本 (网页源码, “</h1>”, 位置1, 假)
位置3 ＝ 寻找文本 (网页源码, “本站主数据”, , 假)
位置4 ＝ 寻找文本 (网页源码, “</li></ul>”, 位置3, 假)
取回的地址 ＝ 取文本中间 (网页源码, 位置3, 位置4 － 位置3)
物理地址 ＝ 分割文本 (取回的地址, “</li><li>”, )
IP ＝ 取文本中间 (网页源码, 位置1, 位置2 － 位置1)
编辑框1.加入文本 (IP ＋ #换行符)
.如果 (取数组成员数 (物理地址) ≠ 0)
    编辑框1.加入文本 (物理地址 [1] ＋ #换行符 ＋ 物理地址 [2] ＋ #换行符 ＋ 物理地址 [3] ＋ #换行符)
.否则
    编辑框1.加入文本 (“什么都没找到”)
.如果结束


.子程序 _编辑框2_内容被改变

按钮3.禁止 ＝ 假