栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 软件开发 > 后端开发 > 易语言

易语言通过post实现对小米路由器操作的代码

易语言 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

易语言通过post实现对小米路由器操作的代码

操作小米路由器的代码

此功能需要加载精易模块5.6

.版本 2
.支持库 iext2
.程序集 窗口程序集_启动窗口
.程序集变量 IP, 文本型
.程序集变量 cookie, 文本型
.程序集变量 token, 文本型
.子程序 登录, 文本型
.参数 密码, 文本型
.参数 返回内容, 文本型, 参考
.参数 token, 文本型, 参考
.局部变量 临时, 文本型
.局部变量 deviceId, 文本型
.局部变量 key, 文本型
.局部变量 时间戳, 文本型
.局部变量 随机数, 文本型
.局部变量 psw, 文本型
.局部变量 nonce, 文本型
.局部变量 密码加密, 文本型
.局部变量 nonce编码, 文本型
临时 = 网页_访问S (“http://” + IP + “/cgi-bin/luci/web”)
deviceId = 文本_取出中间文本 (临时, “deviceId = '”, “'”)
key = 文本_取出中间文本 (临时, “key: '”, “'”)
时间戳 = 时间_到时间戳 (, 真)
随机数 = 文本_取随机范围数字 (1000, 9999)
psw = 密码
nonce = “0_” + deviceId + “_” + 时间戳 + “_” + 随机数
密码加密 = 校验_取sha1 (到字节集 (nonce + 校验_取sha1 (到字节集 (psw + key))))
增加日志 (“key:” + #换行符 + key)
增加日志 (“nonce:” + #换行符 + nonce)
增加日志 (“nonce编码:” + #换行符 + nonce编码)
返回内容 = 网页_访问S (“http://” + IP + “/cgi-bin/luci/api/xqsystem/login”, 1, “username=admin&password=” + 密码加密 + “&logtype=2&nonce=” + nonce, , cookie, , , 真)
token = 文本_取出中间文本 (返回内容, “token” + #引号 + “:” + #引号, #引号)
.如果真 (寻找文本 (返回内容, #引号 + “code” + #引号 + “:0”, , 假) = -1)
  返回 (“失败”)
.如果真结束
返回 (“成功”)
.子程序 增加日志
.参数 日志内容, 文本型
日志编辑框.加入文本 (日志内容 + #换行符 + “------------------------------------------------------------------------” + #换行符)
.子程序 _登陆按钮_被单击
.局部变量 返回, 文本型
.局部变量 返回内容, 文本型
.局部变量 psw, 文本型
IP = IP编辑框.地址
psw = 密码编辑框.内容
token = “”
.如果真 (IP = “” 或 psw = “”)
  信息框 (“IP或密码不能为空”, 0, )
  返回 ()
.如果真结束
返回 = 登录 (psw, 返回内容, token)
.判断开始 (返回 = “成功”)
  增加日志 (“登陆成功:” + #换行符 + 返回内容)
  增加日志 (“token:” + #换行符 + token)
.默认
  增加日志 (“登录失败:” + #换行符 + 返回内容)
.判断结束
.子程序 _断开按钮_被单击
.局部变量 返回, 文本型
.如果真 (token = “”)
  信息框 (“请先登录”, 0, )
  返回 ()
.如果真结束
返回 = 网页_访问S (“http://” + IP + “/cgi-bin/luci/;stok=” + token + “/api/xqnetwork/pppoe_stop”)
.判断开始 (寻找文本 (返回, #引号 + “code” + #引号 + “:0”, , 假) = -1)
  增加日志 (“断网失败:” + #换行符 + 返回)
.默认
  增加日志 (“断网成功:” + #换行符 + 返回)
.判断结束
.子程序 _拨号按钮_被单击
.局部变量 返回, 文本型
.如果真 (token = “”)
  信息框 (“请先登录”, 0, )
  返回 ()
.如果真结束
返回 = 网页_访问S (“http://” + IP + “/cgi-bin/luci/;stok=” + token + “/api/xqnetwork/pppoe_start”)
.判断开始 (寻找文本 (返回, #引号 + “code” + #引号 + “:0”, , 假) = -1)
  增加日志 (“拨号失败:” + #换行符 + 返回)
.默认
  增加日志 (“拨号成功:” + #换行符 + 返回)
.判断结束

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对考高分网的支持。如果你想了解更多相关内容请查看下面相关链接

转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/168171.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号