IP地址域名获取

残枫 · 发表于 2014-4-14 20:55:07

我要的是“IP域名”

残枫 · 发表于 2014-4-14 20:57:02

直接出域名的，

醉看ジ笑红颜づ · 发表于 2014-4-14 21:03:20

a15803617402 发表于 2014-4-14 20:57
直接出域名的，

是查询ip指向的域名？

xiaoyu1986 · 发表于 2014-4-14 21:54:06

eee.rar (121.63 KB, 下载次数: 6)

蕃茄炒饭 · 发表于 2014-4-14 23:01:30

a15803617402 发表于 2014-4-14 19:07
给一下源码

你的要求一样

IeAnDgvt · 发表于 2014-4-15 13:00:31

[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]

xiaoyu1986 · 发表于 2014-4-16 02:47:59

IeAnDgvt 发表于 2014-4-15 13:02
[e]
版本 2
.支持库 EThread

兄弟，我觉得你挺辛苦的。。最佳应该是你的。
但是我当初没有看楼主的结贴率，我就回答了。。。
现在，，我后悔了。。。心冷了。。兄弟，挺住！！！

IeAnDgvt · 发表于 2014-4-16 06:58:42

xiaoyu1986 发表于 2014-4-16 02:47
兄弟，我觉得你挺辛苦的。。最佳应该是你的。
但是我当初没有看楼主的结贴率，我就回答了。。。
现在， ...

哈哈没事。能帮到就可以了——其它的无所谓，我们都重在于学习

		自动登录	找回密码
密码			注册

[已解决] IP地址域名获取