TL-WVR300路由器换IP工具

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 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_被单击 ()

@1421819223