易语言取IP源码

lsq0620

小白自己乱弄的，刚学一两天，代码思路还不咋滴

lsq0620

lsq0620

.版本 2
.支持库 RegEx
.支持库 iconv
.支持库 internet

.子程序 IP, 文本型
.局部变量 正则表达式, 正则表达式
.局部变量 结果, 搜索结果
.局部变量 句柄, 整数型
.局部变量 文本, 文本型

句柄 ＝ 编码转换_打开 (#编码_UTF_8, #编码_GBK)
文本 ＝ 到文本 (编码转换_转换 (句柄, HTTP读文件 (“https://2021.ip138.com/”), ))  ' https://2021.ip138.com/
编码转换_关闭 (句柄)
正则表达式.创建 (“您的IP地址是：\d+\.\d+\.\d+\.\d+”, 假)
结果 ＝ 正则表达式.搜索 (文本, 1, )
返回 (结果.取匹配文本 (文本, ))

lsq0620

不知道怎么了易语言不给我用((25[0-5]|2[0-4]\d|[0-1]?\d\d?|)\.){3}(25[0-5]|2[0-4]\d|[0-1]?\d\d?|) 这个表达式,这是精确的查找,学习半天正则然后搞出来的,小菜鸟

xxhaishixx

这样获取在一定限度上是可以的，但是每天是有次数限制和短时间内获取会出问题，建议用tcp协议连接服务器来获取，这样很方便，而且没有时间限制。网页的容易出问题。