【原创】TL-WVR300路由器换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_被单击 ()