【原创】TL-WVR300路由器换IP工具

1421819223

TL-WVR300路由器换IP工具 模拟浏览器登录路由器切换外网ip ，新手自己研究的 需要的朋友拿去。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
cookies	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
cookiesID	文本型
网页	文本型
登录flag	文本型

如果真 (编辑框4.内容 ＝ “” 或 编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
提示框 (“用户名或密码为空”)
返回 ()

如果真 (编辑框4.内容 ＝ “”)
提示框 (“路由器IP为空”)
返回 ()

到文本 (网页_访问 (“http://” ＋ 编辑框4.内容, 0, , cookies, , , , , , ))
cookiesID ＝ 文本_取出中间文本 (cookies, “COOKIE=”, “;”)
网页 ＝ 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/logon/loginJump.htm”, 1, “encoded=” ＋ 编辑框1.内容 ＋ “:” ＋ 校验_取md5_文本 (校验_取md5_文本 (编辑框2.内容, , 真, ) ＋ “:” ＋ cookiesID, , 真, ) ＋ “&nonce=” ＋ cookiesID ＋ “&URL=../logon/loginJump.htm”, cookies, , , , , , ))
输出调试文本 (“http://” ＋ 编辑框4.内容 ＋ “/logon/loginJump.htm”, 1, “encoded=” ＋ 编辑框1.内容 ＋ “:” ＋ 校验_取md5_文本 (校验_取md5_文本 (编辑框2.内容, , 真, ) ＋ “:” ＋ cookiesID, , 真, ) ＋ “&nonce=” ＋ cookiesID ＋ “&URL=../logon/loginJump.htm”)
登录flag ＝ 文本_取出中间文本 (网页, “logonInfo = new Array(”, “,”)
如果 (登录flag ＝ “1”)
提示框 (“用户名或密码错误”)

如果 (寻找文本 (登录flag, “.”, , 假) ≠ -1)
如果 (提示框 (登录flag ＋ “已登录是否继续”, 1) ＝ 0)
' 确认登陆
到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/logon/loginConfirm.htm”, 0, , cookies, , , , , , ))
提示框 (“登录成功”)
_按钮3_被单击 ()

返回 ()


如果 (登录flag ＝ “”)
如果 (寻找文本 (网页, “/userRpm/Index.htm”, , 假) ≠ -1)
提示框 (“登录成功”)
_按钮3_被单击 ()


提示框 (“登录异常，请检查路由IP是否正确”)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/logon/logout.htm”, 0, , cookies, , , , , , ))
提示框 (“已注销”)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
wan口信息	文本型
临时数组	文本型		0

wan口信息 ＝ 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/userRpm/Monitor_sysinfo_wanstatus.htm”, 0, , cookies, , , , , , ))
wan口信息 ＝ 文本_取出中间文本 (wan口信息, “var wanInfoArr = new Array(”, “);”)
输出调试文本 (wan口信息)
如果 (wan口信息 ≠ “”)
临时数组 ＝ 分割文本 (wan口信息, “,”, )
编辑框3.内容 ＝ 文本_取出中间文本 (临时数组 [4], #引号, #引号 )
如果 (编辑框3.内容 ＝ “0.0.0.0”)
时钟1.时钟周期 ＝ 1000


时钟1.时钟周期 ＝ 0


提示框 (“获取IP不成功，请检查是否登录成功”)

子程序名	返回值类型	公开	备 注
_按钮4_被单击

编辑框3.内容 ＝ “”
到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/userRpm/Interface_WanSettingPPPoE.htm?wanindex=0&btn_disconnect=btn_disconnect”, 0, , cookies, , , , , , ))
_按钮3_被单击 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮3_被单击 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 cookies, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 cookiesID, 文本型<br /> .局部变量 网页, 文本型<br /> .局部变量 登录flag, 文本型<br /> <br /> .如果真 (编辑框4.内容 ＝ “” 或 编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)<br />     提示框 (“用户名或密码为空”)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> .如果真 (编辑框4.内容 ＝ “”)<br />     提示框 (“路由器IP为空”)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> <br /> 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容, 0, , cookies, , , , , , ))<br /> cookiesID ＝ 文本_取出中间文本 (cookies, “COOKIE=”, “;”)<br /> 网页 ＝ 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/logon/loginJump.htm”, 1, “encoded=” ＋ 编辑框1.内容 ＋ “:” ＋ 校验_取md5_文本 (校验_取md5_文本 (编辑框2.内容, , 真, ) ＋ “:” ＋ cookiesID, , 真, ) ＋ “&nonce=” ＋ cookiesID ＋ “&URL=../logon/loginJump.htm”, cookies, , , , , , ))<br /> <br /> 输出调试文本 (“http://” ＋ 编辑框4.内容 ＋ “/logon/loginJump.htm”, 1, “encoded=” ＋ 编辑框1.内容 ＋ “:” ＋ 校验_取md5_文本 (校验_取md5_文本 (编辑框2.内容, , 真, ) ＋ “:” ＋ cookiesID, , 真, ) ＋ “&nonce=” ＋ cookiesID ＋ “&URL=../logon/loginJump.htm”)<br /> 登录flag ＝ 文本_取出中间文本 (网页, “logonInfo = new Array(”, “,”)<br /> <br /> .如果 (登录flag ＝ “1”)<br />     提示框 (“用户名或密码错误”)<br /> <br /> .否则<br />     .如果 (寻找文本 (登录flag, “.”, , 假) ≠ -1)<br /> <br />         .如果 (提示框 (登录flag ＋ “已登录是否继续”, 1) ＝ 0)<br />             ' 确认登陆<br />             到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/logon/loginConfirm.htm”, 0, , cookies, , , , , , ))<br />             提示框 (“登录成功”)<br />             _按钮3_被单击 ()<br /> <br />         .否则<br />             返回 ()<br />         .如果结束<br /> <br /> <br /> <br />     .否则<br />         .如果 (登录flag ＝ “”)<br />             .如果 (寻找文本 (网页, “/userRpm/Index.htm”, , 假) ≠ -1)<br />                 提示框 (“登录成功”)<br />                 _按钮3_被单击 ()<br />             .否则<br /> <br />                 提示框 (“登录异常，请检查路由IP是否正确”)<br />             .如果结束<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> <br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/logon/logout.htm”, 0, , cookies, , , , , , ))<br /> 提示框 (“已注销”)<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 wan口信息, 文本型<br /> .局部变量 临时数组, 文本型, , "0"<br /> <br /> <br /> wan口信息 ＝ 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/userRpm/Monitor_sysinfo_wanstatus.htm”, 0, , cookies, , , , , , ))<br /> wan口信息 ＝ 文本_取出中间文本 (wan口信息, “var wanInfoArr = new Array(”, “);”)<br /> 输出调试文本 (wan口信息)<br /> .如果 (wan口信息 ≠ “”)<br />     临时数组 ＝ 分割文本 (wan口信息, “,”, )<br />     编辑框3.内容 ＝ 文本_取出中间文本 (临时数组 [4], #引号, #引号)<br />     .如果 (编辑框3.内容 ＝ “0.0.0.0”)<br />         时钟1.时钟周期 ＝ 1000<br />     .否则<br /> <br />         时钟1.时钟周期 ＝ 0<br />     .如果结束<br /> <br /> <br /> <br /> .否则<br />     提示框 (“获取IP不成功，请检查是否登录成功”)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 编辑框3.内容 ＝ “”<br /> 到文本 (网页_访问 (“http://” ＋ 编辑框4.内容 ＋ “/userRpm/Interface_WanSettingPPPoE.htm?wanindex=0&btn_disconnect=btn_disconnect”, 0, , cookies, , , , , , ))<br /> _按钮3_被单击 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮3_被单击 ()

97052000

虽然看的不是很懂，但是感觉很不错

龙海软件

虽然看的不是很懂，但是感觉很不错

Lamborghini

22shiji

感谢分享，精易有你更精彩！

越大越孤单

感谢分享，精易有你更精彩！

76711031

kankan~

1421819223

简朴寨 发表于 2017-2-19 20:15
感谢分享 下载测试下 建议多开发写路由器

感谢支持 ，其他型号不一定能用 基本上路由器登录界面相同的 算法也一样

1421819223

WYX89898 发表于 2017-2-19 20:51
我的软件模版换ip还没写 到时候可能也会参考你的源码

路由器种类太多了，不知道有啥比较好的写 ...

没有模块 抓包 分析网页原代码加密算法 实现模拟登录   基本上家用的水星和tp的非智能路由需要账号密码的是 BASIC认证 格式是 用户名:密码再进行base64加密  放在Authorization字段 ，只需要密码登录的格式是 admin:密码再进行base64加密 放在cookies里 ，TL-WVR300是个企业路由登录需要路由返回的cookies（每次都不一样）再配合帐号密码进行加密计算登录有点麻烦  智能路由器和其他牌子的路由我自己没有不知道怎么登陆的

sa123123

感谢分享，精易有你更精彩！