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