IP地址域名获取

残枫

易语言怎么才能获取IP域名，比如我是山东济宁联通，打开软件，标签里就显示”山东济宁联通“，会的请说一下源码！本人感激不尽！

IeAnDgvt

ip获取 (1).zip (1.75 KB, 下载次数: )

2014-4-15 12:59 上传

点击文件名下载附件

[e]
版本 2
.支持库 EThread
.支持库 spec
.支持库 sock
.支持库 internet

.程序集 窗口程序集1

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

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

.子程序 子程序1
.局部变量 ip, 文本型, , "0"


延迟 (1000)
ip ＝ 取本机IP ()


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

.子程序 子程序2
.局部变量 ip网页, 文本型
.局部变量 ip左边文本, 整数型
.局部变量 IP右边文本, 整数型
.局部变量 IP址, 文本型
.局部变量 位置左边文本, 整数型
.局部变量 位置右边文本, 整数型
.局部变量 最后位置, 文本型

ip网页 ＝ 到文本 (HTTP读文件 (“http://iframe.ip138.com/ic.asp”))
' 调试输出 (ip网页)
ip左边文本 ＝ 寻找文本 (ip网页, “[”, , 假) ＋ 1
IP右边文本 ＝ 寻找文本 (ip网页, “]”, , 假)
IP址 ＝ 取文本中间 (ip网页, ip左边文本, IP右边文本 － ip左边文本)
位置左边文本 ＝ 寻找文本 (ip网页, “]”, , 假) ＋ 1
位置右边文本 ＝ 寻找文本 (ip网页, #位_右边文本, , 假)

最后位置 ＝ 取文本中间 (ip网页, 位置左边文本, 位置右边文本 － 位置左边文本)
' 调试输出 (最后位置)
标签2.标题 ＝ “ 您的外网IP地址是：” ＋ IP址 ＋ 最后位置
[/e]

蕃茄炒饭

窗口启动访问iP取中间文本           

残枫

给一下源码

残枫

启动窗口，在标签里获取

蕃茄炒饭

源码                        

蕃茄炒饭

这个快点              

醉看ジ笑红颜づ

ip域名查询.rar (120.64 KB, 下载次数: 16)

2014-4-14 19:24 上传

点击文件名下载附件 凑个热闹. 138接口来一发.

醉看ジ笑红颜づ

蕃茄炒饭 发表于 2014-4-14 19:23
这个快点

t ＝ 到文本 (网页_访问 (“http://www.ip.cn/”))

_启动窗口.标题 ＝ 文本_取出中间文本 (t, “&nbsp;来自：”, “</p><p>”)

这样便好~　　　　　解码编码都不需要.

xiaoyu1986

醉看ジ笑红颜づ 发表于 2014-4-14 19:42
t ＝ 到文本 (网页_访问 (“http://www.ip.cn/”))

_启动窗口.标题 ＝ 文本_取出中间文本 (t, “&nb ...

页面去哪儿了？