看内容会很失望，让人hurt的易语言，没办法帮别人看一个易语言的程序，要添加这个东西，其实这是我第一次接触，然后修改和写易语言的程序。

代码如下：

.版本 2

.子程序 取外网IP, 文本型, 公开, 取外网IP
.局部变量 原文, 文本型
.局部变量 过度, 文本型, , \"0\"
.局部变量 IP, 文本型

原文 ＝ 到文本 (彗星HTTP读文件 (“http://www.ip138.com/ip2city.asp”))
过度 ＝ 分割文本 (原文, “您的IP地址是：[”, )
.如果 (取数组成员数 (过度) ＜ 2)
  返回 (“”)
.否则

.如果结束
IP ＝ 子文本替换 (过度 [2], “] </center></body></html>”, “”, , , 假)
返回 (IP)

以上就是本次知识点的全部内容，感谢大家对脚本之家的支持。

继续阅读与本文标签相同的文章

无标签
最新文章 最热文章
收藏 打印

特别推荐 2026年05月19日 星期二

精彩发现

热门标签

阻止表单提交 窗口 关闭浏览器 清除 CDATA css文件 光标位置 坐标 javascrpt !important 超链接 数字

相关文章