获取wai网IP

xiayuan0310 · 发表于 2022-4-30 09:38:29

子程序名	返回值类型	公开	备注
正则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 />
    调试输出 (“打开文件失败！”)