易语言获取外网ip方法
时间：2020-12-07 17:41:42|栏目：|点击： 次
看内容会很失望，让人hurt的易语言，没办法帮别人看一个易语言的程序，要添加这个东西，其实这是我第一次接触，然后修改和写易语言的程序。
代码如下：
.版本 2 .子程序 取外网IP, 文本型, 公开, 取外网IP .局部变量 原文, 文本型 .局部变量 过度, 文本型, , "0" .局部变量 IP, 文本型 原文 ＝ 到文本 (彗星HTTP读文件 (“http://www.ip138.com/ip2city.asp”)) 过度 ＝ 分割文本 (原文, “您的IP地址是：[”, ) .如果 (取数组成员数 (过度) ＜ 2) 返回 (“”) .否则 .如果结束 IP ＝ 子文本替换 (过度 [2], “] </center></body></html>”, “”, , , 假) 返回 (IP)
