获取wai网IP

xiayuan0310

  

子程序名	返回值类型	公开	备 注
正则ip查找

变量名	类 型	静态	数组	备 注
正则ip	正则表达式
文件内容	文本型
结果数组	搜索结果		0
数组索引	整数型
外网地址	文本型
索引	整数型
文件句柄	整数型

' 易语言正则 ip地址方式：((25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)
如果真 (正则ip.创建 (“((25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)”, 假) ＝ 假)
信息框 (“创建正则表达式失败。请检查参数！”, #错误图标, “提取”)
返回 ()

文件内容 ＝ 到文本 (HTTP读文件 (“http://www.net.cn/static/customercare/yourIP.asp”))
结果数组 ＝ 正则ip.搜索全部 (文件内容)
计次循环首 (取数组成员数 (结果数组), 数组索引)
' 列表框1.加入项目 (结果数组 [数组索引].取匹配文本 (文件内容, ) ＋ “用户名：” ＋ 结果数组 [数组索引].取子匹配文本 (文件内容, 1, ), )
调试输出 (结果数组 [数组索引].取匹配文本 (文件内容, ))
外网地址 ＝ 结果数组 [数组索引].取匹配文本 (文件内容, )
计次循环尾 ()
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (取现行时间 ()))
超级列表框1.置标题 (索引, 1, 外网地址)
文件句柄 ＝ 打开文件 (取运行目录 () ＋ “\IP.txt”, , )
如果 (文件句柄 ≠ 0)
调试输出 (“打开文件成功！”)
插入文本行 (文件句柄, 到文本 (取现行时间 ()) ＋ “---” ＋ 外网地址)
关闭文件 (文件句柄)

调试输出 (“打开文件失败！”)

i支持库列表	支持库注释
RegEx	正则表达式支持库
internet	互联网支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 RegEx<br /> .支持库 internet<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 正则ip查找<br /> .局部变量 正则ip, 正则表达式<br /> .局部变量 文件内容, 文本型<br /> .局部变量 结果数组, 搜索结果, , "0"<br /> .局部变量 数组索引, 整数型<br /> .局部变量 外网地址, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 文件句柄, 整数型<br /> <br /> ' 易语言正则 ip地址方式：((25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)<br /> .如果真 (正则ip.创建 (“((25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)”, 假) ＝ 假)<br />     信息框 (“创建正则表达式失败。请检查参数！”, #错误图标, “提取”)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> 文件内容 ＝ 到文本 (HTTP读文件 (“http://www.net.cn/static/customercare/yourIP.asp”))<br /> 结果数组 ＝ 正则ip.搜索全部 (文件内容)<br /> <br /> .计次循环首 (取数组成员数 (结果数组), 数组索引)<br />     ' 列表框1.加入项目 (结果数组 [数组索引].取匹配文本 (文件内容, ) ＋ “用户名：” ＋ 结果数组 [数组索引].取子匹配文本 (文件内容, 1, ), )<br />     调试输出 (结果数组 [数组索引].取匹配文本 (文件内容, ))<br />     外网地址 ＝ 结果数组 [数组索引].取匹配文本 (文件内容, )<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 0, 到文本 (取现行时间 ()))<br /> 超级列表框1.置标题 (索引, 1, 外网地址)<br /> <br /> 文件句柄 ＝ 打开文件 (取运行目录 () ＋ “\IP.txt”, , )<br /> .如果 (文件句柄 ≠ 0)<br />     调试输出 (“打开文件成功！”)<br />     插入文本行 (文件句柄, 到文本 (取现行时间 ()) ＋ “---” ＋ 外网地址)<br /> <br /> <br />     关闭文件 (文件句柄)<br /> <br /> .否则<br />     调试输出 (“打开文件失败！”)

龙崎流江

666支持开源精神

wooyonfei

简单的事整的那么麻烦,一行代码就行了:
调试输出 (文本_取出中间文本 (网页_取网页源码 (“http://www.net.cn/static/customercare/yourip.asp”), “您的本地上网IP是：<h2>”, “</h2>”, , ))

BIG牛肉面

感谢分享，很给力！~

莫忘Max

  

调试输出 (网页_取wai网IP (, 1))

调试输出 (网页_取wai网IP (, 1))

只调用了精易模块

大杭

感谢分享！

枯藤老树昏鸦

Wod 发表于 2022-4-30 09:59
[e=1].版本 2
.支持库 sock

这个比楼主的牛逼

站在月光下想你

系统_取wai网IP()

xjshuaishuai

谢谢分享！

Wod

  

子程序名	返回值类型	公开	备 注
取本机wai网IP	文本型		速度极快 毫秒级

变量名	类 型	静态	数组	备 注
clinet	网络客户Duan

clinet.连接 (转换为IP地址 (“ns1.dnspod.net”), 6666)
返回 (到文本 (clinet.接收 (6000, )))

i支持库列表	支持库注释
sock	网络通讯支持库

.版本 2<br /> .支持库 sock<br /> <br /> .子程序 取本机wai网IP, 文本型, , 速度极快 毫秒级<br /> .局部变量 clinet, 网络客户Duan<br /> <br /> clinet.连接 (转换为IP地址 (“ns1.dnspod.net”), 6666)<br /> 返回 (到文本 (clinet.接收 (6000, )))

补充内容 (2022-5-2 09:42):
出处http://e.125.la/e.php?mod=view&type=fun&cid=1502