TP路由器登录拨号重启功能

此功能需要加载精易模块5.6

.版本 2.程序集 窗口程序集1.程序集变量 协议头, 文本型.程序集变量 返回文本, 文本型.程序集变量 正则, 正则表达式类.子程序 _按钮_登录_被单击协议头 ＝ 文本_替换 (#协议头, 1, , , “地址”, 编辑框_地址.内容, “帐号密码”, 编码_BASE64编码 (到字节集 (编辑框_帐号.内容 ＋ “:” ＋ 编辑框_密码.内容)), , , , , , )返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , ).判断开始 (寻找文本 (返回文本, “登录失败”, , 假) ≠ -1) 标签_状态.标题 ＝ “登录失败。” 返回 ().默认 标签_状态.标题 ＝ “登录成功。”.判断结束正则.创建 (#获取ip, 返回文本, , )标签_状态.标题 ＝ 标签_状态.标题 ＋ #换行符 ＋ #换行符 ＋ “MAC 地址：” ＋ 正则.取子匹配文本 (1, 1) ＋ #换行符 ＋ #换行符 ＋ “IP地址：” ＋ 正则.取子匹配文本 (1, 2) ＋ #换行符 ＋ #换行符 ＋ “其他信息可以自己写正则获取。”.子程序 _按钮_断开_被单击.如果真 (协议头 ＝ “”) 标签_状态.标题 ＝ “未登录” 返回 ().如果真结束标签_状态.标题 ＝ “”.判断开始 (按钮_断开.标题 ＝ “断开”) 按钮_断开.标题 ＝ “连接” 返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm?Disconnect=断 线&wan=1”, 0, , , , 协议头, , , , , ) 正则.创建 (#获取ip, 返回文本, , ).默认 按钮_断开.标题 ＝ “断开” 返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm?Connect=连 接&wan=1”, 0, , , , 协议头, , , , , ) .如果真 (正则.取子匹配文本 (1, 2) ＝ “0.0.0.0”) .判断循环首 (正则.取子匹配文本 (1, 2) ＝ “0.0.0.0”) 返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , ) 正则.创建 (#获取ip, 返回文本, , ) .判断循环尾 () .如果真结束.判断结束标签_状态.标题 ＝ 标签_状态.标题 ＋ #换行符 ＋ #换行符 ＋ “MAC 地址：” ＋ 正则.取子匹配文本 (1, 1) ＋ #换行符 ＋ #换行符 ＋ “IP地址：” ＋ 正则.取子匹配文本 (1, 2) ＋ #换行符 ＋ #换行符 ＋ “其他信息可以自己写正则获取。”.子程序 _按钮_重启_被单击.如果真 (协议头 ＝ “”) 标签_状态.标题 ＝ “未登录” 返回 ().如果真结束标签_状态.标题 ＝ “正在重新启动”返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/SysRebootRpm.htm?Reboot=%D6%D8%C6%F4%C2%B7%D3%C9%C6%F7”, 0, , , , 协议头, , , , , )

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章