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