Question

易语言如何获取对方IP地址并且显示在[IP编辑框]里

Answer 1

.版本
2
.支持库
EThread
.支持库
internet
.程序集
窗口程序集1
.子程序
__启动窗口_创建完毕
启动线程
(&读取,
,
)
标签1.标题
＝
“读取中...”
.子程序
读取
IP文本
＝
到文本
(HTTP读文件
(“http://www.ip138.com/ips.asp?ip=”))
前面
＝
寻找文本
(IP文本,
“您的IP地址是：”,
,
假)
＋
取文本长度
(“您的IP地址是：”)
后面
＝
寻找文本
(IP文本,
“<br/>”,
,
假)
标签1.标题
＝
“您的IP是：”
＋
取文本中间
(IP文本,
前面,
后面
－
前面)
.如果
(标签1.标题
＝
“您的IP是：”)
标签1.标题
＝
“读取错误”
.否则
.如果
(寻找文本
(标签1.标题,
“联通”,
,
假)
＝
-1)
.如果
(寻找文本
(标签1.标题,
“网通”,
,
假)
＝
-1)
标签1.标题
＝
标签1.标题
＋
#换行符
＋
#换行符
＋
“*你是非网通用户”
.否则
标签1.标题
＝
标签1.标题
＋
#换行符
＋
#换行符
＋
“*你是网通用户”
.如果结束
.否则
标签1.标题
＝
标签1.标题
＋
#换行符
＋
#换行符
＋
“*你是网通用户”
.如果结束
这是我以前写的，你把里面的标签换成编辑框就行