.版本 2
.支持库 internet
.子程序 获取IP, 文本型, 公开, 获取外网IP，成功返回外网IP失败返回错误信息
.局部变量 IP文本, 文本型
.局部变量 地址文本, 文本型
.局部变量 前面, 双精度小数型
.局部变量 后面, 双精度小数型
.局部变量 ip, 文本型
IP文本 ＝ 到文本 (HTTP读文件 (“
http://www.ip138.com/ips1388.asp”)) ' 利用这个网站的IP数据库获取
前面 ＝ 寻找文本 (IP文本, “您的IP地址是：[”, , 假) ＋ 取文本长度 (“您的IP地址是：[”) ' 标记一段文本 是IP前面的文本
后面 ＝ 寻找文本 (IP文本, “] 来自”, , 假) ' IP后面的文本
ip ＝ 取文本中间 (IP文本, 前面, 后面 － 前面) ' 把ip提取出来
返回 (ip)
