小米路由器易语言登陆源码

小米路由器易语言登陆源码

.版本 2
.支持库 spec

.子程序 登录_子程序, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 nonce, 文本型
.参数 password, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

' http://192.168.31.1/cgi-bin/luci/api/xqsystem/login
局_网址 ＝ “http://” ＋ 编辑框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”, “http://” ＋ 编辑框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_被单击

网页_打开指定网址 (“http://” ＋ 编辑框1.内容 ＋ “/” ＋ 文本_取出中间文本 (程_返回文本, #取中间_前, #取中间_后, , ))

@w5530457