看内容会很失望,让人hurt的易语言,没办法帮别人看一个易语言的程序,要添加这个东西,其实这是我第一次接触,然后修改和写易语言的程序。
代码如下:
.版本 2
.子程序 取外网IP, 文本型, 公开, 取外网IP
.局部变量 原文, 文本型
.局部变量 过度, 文本型, , "0"
.局部变量 IP, 文本型
原文 = 到文本 (彗星HTTP读文件 (“http://www.ip138.com/ip2city.asp”))
过度 = 分割文本 (原文, “您的IP地址是:[”, )
.如果 (取数组成员数 (过度) < 2)
返回 (“”)
.否则
.如果结束
IP = 子文本替换 (过度 [2], “] </center></body></html>”, “”, , , 假)
返回 (IP)
以上就是本次知识点的全部内容,感谢大家对亿速云的支持。
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。