TL-WVR300路由器换IP工具 模拟浏览器登录路由器切换外网ip ,新手自己研究的 需要的朋友拿去。 窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | cookies | 文本型 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 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是否正确”)到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/logon/logout.htm”, 0, , cookies, , , , , , )) 提示框 (“已注销”)变量名 | 类 型 | 静态 | 数组 | 备 注 | 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不成功,请检查是否登录成功”)编辑框3.内容 = “”到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/userRpm/Interface_WanSettingPPPoE.htm?wanindex=0&btn_disconnect=btn_disconnect”, 0, , cookies, , , , , , )) _按钮3_被单击 ()_按钮3_被单击 ()
|