小米路由器易语言登陆源码
.版本 2
.支持库 spec
.子程序 登录_子程序, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.参数 nonce, 文本型
.参数 password, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
' //192.168.31.1/cgi-bin/luci/api/xqsystem/login
局_网址 = “//” + 编辑框1.内容 + “/cgi-bin/luci/api/xqsystem/login”
局_方式 = 1
ADD_数据包.添加 (“username”, “admin”, )
ADD_数据包.添加 (“password”, password, )
ADD_数据包.添加 (“logtype”, “2”, )
ADD_数据包.添加 (“nonce”, nonce, )
局_提交数据 = ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“Host”, 编辑框1.内容, )
ADD_协议头.添加 (“Connection”, “keep-alive”, )
ADD_协议头.添加 (“Content-Length”, “126”, )
ADD_协议头.添加 (“Pragma”, “no-cache”, )
ADD_协议头.添加 (“Cache-Control”, “no-cache”, )
ADD_协议头.添加 (“Accept”, “*/*”, )
ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/95.0.4638.69 Safari/537.36”, )
ADD_协议头.添加 (“Content-Type”, “application/x-www-form-urlencoded; charset=UTF-8”, )
ADD_协议头.添加 (“Origin”, “//” + 编辑框1.内容, )
ADD_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9”, )
ADD_协议头.添加 (“Cookie”, “psp=admin|||2|||0; __guid=86847064.4151666249254085600.1672561921328.542; monitor_count=1”, )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)
.子程序 _按钮1_被单击
.局部变量 局_nonce, 文本型
.局部变量 局_password, 文本型
局_nonce = js.运行 (“nonce”, , , , , , )
局_password = 校验_取sha1 (到字节集 (局_nonce + 校验_取sha1 (到字节集 (编辑框3.内容 + “a2ffa5c9be07488bbb04a3a47d3c5f6a”)))) ' js.运行 (“password”, “05511111”, , , , , )
调试输出 (局_nonce)
调试输出 (局_password)
程_返回文本 = 登录_子程序 (编码_ansi到usc2 (局_nonce, , , ), 局_password)
调试输出 (程_返回文本)
.子程序 _按钮2_被单击
网页_打开指定网址 (“//” + 编辑框1.内容 + “/” + 文本_取出中间文本 (程_返回文本, #取中间_前, #取中间_后, , ))