.版本 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_被单击 ()