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

.版本 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.标题 ＋ #换行符 ＋ #换行符 ＋ “*你是网通用户”
.如果结束

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

.版本 2

.程序集 窗口程序集1
.程序集变量 IP, 文本型, , "0"

.子程序 _按钮1_被单击

IP ＝ 分割文本 (编辑框1.内容, “.”, )
.判断开始 (取数组成员数 (IP) ≠ 4)
信息框 (“请输入正确的IP！”, 0, “错误提示”)
返回 ()
.默认
IP [4] ＝ 到文本 (到数值 (IP [4]) ＋ 1)
.如果真 (到数值 (IP [4]) ＞ 254)
IP [4] ＝ “1”
IP [3] ＝ 到文本 (到数值 (IP [3]) ＋ 1)
.如果真结束
.如果真 (到数值 (IP [3]) ＞ 254)
IP [3] ＝ “0”
IP [2] ＝ 到文本 (到数值 (IP [2]) ＋ 1)
.如果真结束
.如果真 (到数值 (IP [2]) ＞ 254)
IP [2] ＝ “0”
IP [1] ＝ 到文本 (到数值 (IP [1]) ＋ 1)
.如果真结束

.判断结束
编辑框1.内容 ＝ IP [1] ＋ “.” ＋ IP [2] ＋ “.” ＋ IP [3] ＋ “.” ＋ IP [4]

一楼说的前提你必须知道别人的IP，没用