易语言怎样获取IP地址并且让它显示在IP编辑框里

.版本 2
.支持库 EThread
.支持库 internet

.程序集 窗口程序集1

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

启动线程 (&读取, , )
标签1.标题 ＝ “读取中...”

.子程序 读取

IP文本 ＝ 到文本 (HTTP读文件 (“”))
前面 ＝ 寻找文本 (IP文本, “您的IP地址是：”, , 假) ＋ 取文本长度 (“您的IP地址是：”)
后面 ＝ 寻找文本 (IP文本, “
”, , 假)
标签1.标题 ＝ “您的IP是：” ＋ 取文本中间 (IP文本, 前面, 后面 － 前面)
.如果 (标签1.标题 ＝ “您的IP是：”)
标签1.标题 ＝ “读取错误”
.否则
.如果 (寻找文本 (标签1.标题, “联通”, , 假) ＝ -1)
.如果 (寻找文本 (标签1.标题, “网通”, , 假) ＝ -1)
标签1.标题 ＝ 标签1.标题 ＋ #换行符 ＋ #换行符 ＋ “*你是非网通用户”
.否则
标签1.标题 ＝ 标签1.标题 ＋ #换行符 ＋ #换行符 ＋ “*你是网通用户”
.如果结束

.否则
标签1.标题 ＝ 标签1.标题 ＋ #换行符 ＋ #换行符 ＋ “*你是网通用户”
.如果结束

这是我以前写的，你把里面的标签换成编辑框就行