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

2024-12-09 00:14:14

操作小米路由器的代码

此功能需要加载精易模块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)
  增加日志 (“拨号失败:” ＋ #换行符 ＋ 返回)
.默认
  增加日志 (“拨号成功:” ＋ #换行符 ＋ 返回)
.判断结束

运行结果：

总结

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

易语言调用api获取网卡信息网络连接名的代码

DLL命令表 .版本 2 .DLL命令 GetAdaptersInfo, 整数型, "IPHlpApi" .参数 IpAdapterInfo, 字节集 .参数 pOutBufLen, 整数型, 传址 .DLL命令取变量地址_字节集, 整数型, , "lstrcpynA" .参数变量, 字节集, 传址 .参数变量, 字节集, 传址 .参数保留, 整数型, , 0 .DLL命令 CopyMemory_iai, , "kernel32", &q
易语言通过算法计算出酷狗音乐下载地址的代码

酷狗直链计算的代码此功能需要加载精易模块5.6 .版本 2 .支持库 RegEx .支持库 iext3 .支持库 dp1 .程序集窗口程序集_启动窗口 .子程序 JSON转义字符解码, 文本型 .参数解密文本, 文本型 .局部变量正则表达, 正则表达式 .局部变量搜索结果, 搜索结果, , "0" .局部变量转换结果, 文本型 .局部变量文本, 文本型 .局部变量 i, 整数型文本＝解密文本 .如果真 (文本 ≠ "") 正则表达.创建 (&qu
易语言调用ESPI11.dll实现禁止指定程序访问网络的代码

拦截指定程序联网的代码 .版本 2 .支持库 eNetIntercept .支持库 eAPI .程序集拦截指定进程联网 .程序集变量被拦截进程名, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 a, 网络服务安装 .局部变量 b, 系统信息被拦截进程名＝ "被拦截.EXE" ' 要拦截的程序 .如果真 (a.是否已安装 () ＝假) 取系统信息 (b) 写到文件 (b.系统目录 + "\ESPI11.dll", #服务文件) a.安装 (b.系统目
易语言制作语音聊天机器人的代码

常量数据表 .版本 2 .常量对话前, "<文本长度: 7>", , text":" .常量对话后, "<文本长度: 2>", , "} .常量 token前, "<文本长度: 16>", , "access_token":" .常量双撇号, "<文本长度: 1>", , " .常量 apikey, &q
易语言通过模拟的方式实现对微信的视频图片消息发送的代码

微信后台视频图片消息发送的代码此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 internet .程序集程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码 _临时子程序 () 返回 (0) .子程序 _临时子程序 .局部变量 handle, 整数型, , "0" .局部变量 i, 整数型 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中.
易语言模拟腾讯滑块条自动验证的代码

模拟腾讯滑动自动验证的代码此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .支持库 BmpOperate .支持库 spec .程序集窗口程序集1 .程序集变量图_原始, 字节集 .程序集变量图_块, 字节集 .程序集变量图_模版, 字节集 .程序集变量初始高度, 整数型 .程序集变量图_高度, 整数型 .程序集变量图_宽度, 整数型 .子程序图片处理, , , 加载图片,并转格式 .局部变量返回文本, 文本型 .局部变量 vsig, 文本型返回文本＝
易语言实现批量文本替换操作的代码

批量文本替换机的代码 .版本 2 .支持库 iext .支持库 shell .支持库 xplib .程序集窗口程序集1 .程序集变量搜寻位置, 整数型 .程序集变量当前被搜寻文本, 文本型 .程序集变量起始 .程序集变量 sj1 .程序集变量 sj2 .子程序 _驱动器框_驱动器被改变连续赋值 (驱动器框.驱动器 + ":\", 目录框1.目录, 文件框1.目录) .子程序 _目录框1_目录被改变文件框1.目录＝目录框1.目录 .子程序 _文件框1_双击选择待替换文件
易语言调用api实现文件拖放获取路径的代码

拖放文件支持任意版本Windows系统此功能需要加载精易模块5.6 .版本 2 .支持库 spec .程序集窗口程序集_启动窗口 .程序集变量文件拖放类, 文件拖放 .子程序 __启动窗口_创建完毕 .局部变量拖放处理, 子程序指针文件拖放类.注册拖放 (_启动窗口.取窗口句柄 (), &拖放处理) proc_FilterMsg () .子程序拖放处理 .参数总文件数量, 整数型 .参数当前是第几个文件, 整数型 .参数当前的文件名, 文本型 .参数当前的文件类型, 文本型
易语言修改指定网页为浏览器主页的代码

监控浏览器进程,结束后用运行(浏览器目录+" "+地址) 来实现主页修改 DLL命令表 .版本 2 .DLL命令 CoInitialize, 整数型, "Ole32.dll" .参数 pvReserved, 整数型 .DLL命令 CoUninitialize, , "Ole32.dll" .DLL命令 RegisterWindowMessageA, 整数型, , "RegisterWindowMessageA" .参数 lp
易语言制作连连看小游戏的代码

图片资源表 .版本 2 .图片卡通 .图片横线 .图片竖线 .图片左上 .图片右上 .图片左下 .图片右下 .图片苹果, , 背景图连连看的代码 .版本 2 .程序集窗口程序集1 .程序集变量显示图片, 字节型, , "0" .程序集变量上次移动, 字节型 .程序集变量上次点击, 字节型 .程序集变量横数, 字节型 .程序集变量竖数, 字节型 .程序集变量图片数, 字节型 .程序集变量可消除, 文本型, , "0" .程序集变量剩
易语言实现163邮箱登录获取邮件列表等操作的代码

常量数据表 .版本 2 .常量提交参数, "<文本长度: 98>" .常量协议头, "<文本长度: 386>" .常量邮件post, "<文本长度: 383>" 全局变量表 .版本 2 .全局变量全_Cookies, 文本型 .全局变量 sid, 文本型 .全局变量全_Email, 文本型登陆程序集 .版本 2 .程序集窗口程序集_启动窗口 .子程序 _登陆按钮_被单击 .局部变量文本, 文本型
易语言制作绝地求生视野一键优化的代码

绝地求生一键优化的代码优化后远处树干不显示,地面光滑,更容易看到远处的敌人. .版本 2 .支持库 shell .支持库 spec .支持库 iext .程序集窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕路径编辑框.内容＝取特定目录 (8) + "..\Local\TslGame\Saved\Config\WindowsNoEditor\" .如果 (文件是否存在 (路径编辑框.内容 + "\一键优化备份\")) 还原按钮.禁止＝假 .否则
易语言通过解密微博图片地址获取发布者微博地址的代码

常量数据表 .版本 2 .常量常量1, "<文本长度: 399>", , 'js脚本返回 origin_number 微博图片获取发布者的代码此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集窗口程序集1 .子程序 _文本提取按钮_被单击 .局部变量文本_提取, 文本型 .局部变量文本_转换, 文本型 .局部变量文本_结果, 文本型 .局部变量文本_判断, 文本型文本_提取＝文本_倒取出中间文本 (图片地址编辑框
易语言制作王者荣耀刷金币脚本的代码

打开黑夜模拟器,按下F10,王者荣耀进入挑战-魔女回忆,开始即可. 王者荣耀刷金币脚本此功能需要加载精易模块5.6 .版本 2 .支持库 shellEx .支持库 EThread .支持库 eAPI .程序集窗口程序集_启动窗口 .程序集变量热键F10, 整数型 .程序集变量热键Home, 整数型 .程序集变量集_线程句柄, 整数型 .子程序 __启动窗口_创建完毕热键F10 ＝注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键) 热键Home ＝注册热
易语言调用百度api识别是否为色情图片的代码

调用百度云色情图片识别的代码此功能需要加载精易模块5.6 .版本 2 .支持库 spec .程序集窗口程序集_启动窗口 .子程序 _识别按钮_被单击百度云色情识别 () .子程序百度云色情识别 .局部变量类_XMLHTTP, 类_XMLHTTP .局部变量 Accesss_token, 文本型 .局部变量 str, 文本型 Accesss_token ＝ GetAccesss_token () 类_XMLHTTP.打开 ("POST", "https://aip.b

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

相关推荐

随机推荐