易语言 服务器抓包,易语言抓包获得地址实现TP路由器登陆的代码

常量数据表

.版本 2

.常量 协议头, "", , Accept: text/html, application/xhtml+xml, */* Referer: http://地址/userRpm/MenuRpm.htm Accept-Language: zh-CN User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) Accept-Encoding: gzip, deflate Connection: Keep-Alive DNT: 1 Host: 192.168.1.1 Authorization: Basic 帐号密码

.常量 获取ip, "", , var wanPara = new Array\([\s\S]*?"(.*?)", "(\d+\.\d+\.\d+\.\d+)"

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

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

.版本 2

.程序集 窗口程序集1

.程序集变量 协议头, 文本型

.程序集变量 返回文本, 文本型

.程序集变量 正则, 正则表达式类

.子程序 _按钮_登录_被单击

协议头 ＝ 文本_替换 (#协议头, 1, , , “地址”, 编辑框_地址.内容, “帐号密码”, 编码_BASE64编码 (到字节集 (编辑框_帐号.内容 ＋ “:” ＋ 编辑框_密码.内容)), , , , , , )

返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , )

.判断开始 (寻找文本 (返回文本, “