TL-WR885N及886N路由器换IP工具源码

.子程序 JS_orgAuthPwd, 文本型, 公开, 此代码由乐易编程网Js调试工具生成代码，请添加乐易模块使用‘TL-WR885N及886N路由器换IP工具
.参数 a, 文本型
.局部变量 Js, 对象
.局部变量 return, 文本型

' 线程_初始化COM库 ()
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, #常量_Js)
return ＝ Js.通用方法 (“eval”, “orgAuthPwd” ＋ “('” ＋ a ＋ “')”).取文本 ()
' 线程_取消COM库 ()
返回 (return)

.子程序 login, 逻辑型
.参数 password, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 json, 类_json
.局部变量 状态, 逻辑型

提交数据 ＝ #登录
提交数据 ＝ 子文本替换 (提交数据, “密码”, JS_orgAuthPwd (password), , , 真)
返回文本 ＝ 网页_访问S (“****”, 1, 提交数据)
json.解析 (返回文本)
.如果真 (到整数 (json.取属性数值 (“error_code”)) ＝ 0)
stok ＝ json.取通用属性 (“stok”)
_启动窗口.标题 ＝ “登录成功”
状态 ＝ 真
.如果真结束
返回 (状态)