易语言抓包获得地址实现TP路由器登陆的代码

常量数据表

.版本 2
.常量 协议头, "<文本长度: 310>", , Accept: text/html, application/xhtml+xml, */* Referer: http://地址/userRpm/MenuRpm.htm Accept-Language: zh-CN User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) Accept-Encoding: gzip, deflate Connection: Keep-Alive DNT: 1 Host: 192.168.1.1 Authorization: Basic 帐号密码
.常量 获取ip, "<文本长度: 64>", , var wanPara = new Array\([\s\S]*?"(.*?)", "(\d+\.\d+\.\d+\.\d+)"

TP路由器登录拨号重启功能

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

.版本 2
.程序集 窗口程序集1
.程序集变量 协议头, 文本型
.程序集变量 返回文本, 文本型
.程序集变量 正则, 正则表达式类
.子程序 _按钮_登录_被单击
协议头 ＝ 文本_替换 (#协议头, 1, , , “地址”, 编辑框_地址.内容, “帐号密码”, 编码_BASE64编码 (到字节集 (编辑框_帐号.内容 ＋ “:” ＋ 编辑框_密码.内容)), , , , , , )
返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , )
.判断开始 (寻找文本 (返回文本, “登录失败”, , 假) ≠ -1)
  标签_状态.标题 ＝ “登录失败。”
  返回 ()
.默认
  标签_状态.标题 ＝ “登录成功。”
.判断结束
正则.创建 (#获取ip, 返回文本, , )
标签_状态.标题 ＝ 标签_状态.标题 ＋ #换行符 ＋ #换行符 ＋ “MAC 地址：” ＋ 正则.取子匹配文本 (1, 1) ＋ #换行符 ＋ #换行符 ＋ “IP地址：” ＋ 正则.取子匹配文本 (1, 2) ＋ #换行符 ＋ #换行符 ＋ “其他信息可以自己写正则获取。”
.子程序 _按钮_断开_被单击
.如果真 (协议头 ＝ “”)
  标签_状态.标题 ＝ “未登录”
  返回 ()
.如果真结束
标签_状态.标题 ＝ “”
.判断开始 (按钮_断开.标题 ＝ “断开”)
  按钮_断开.标题 ＝ “连接”
  返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm?Disconnect=断 线&wan=1”, 0, , , , 协议头, , , , , )
  正则.创建 (#获取ip, 返回文本, , )
.默认
  按钮_断开.标题 ＝ “断开”
  返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm?Connect=连 接&wan=1”, 0, , , , 协议头, , , , , )
  .如果真 (正则.取子匹配文本 (1, 2) ＝ “0.0.0.0”)
    .判断循环首 (正则.取子匹配文本 (1, 2) ＝ “0.0.0.0”)
      返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , )
      正则.创建 (#获取ip, 返回文本, , )
    .判断循环尾 ()
  .如果真结束
.判断结束
标签_状态.标题 ＝ 标签_状态.标题 ＋ #换行符 ＋ #换行符 ＋ “MAC 地址：” ＋ 正则.取子匹配文本 (1, 1) ＋ #换行符 ＋ #换行符 ＋ “IP地址：” ＋ 正则.取子匹配文本 (1, 2) ＋ #换行符 ＋ #换行符 ＋ “其他信息可以自己写正则获取。”
.子程序 _按钮_重启_被单击
.如果真 (协议头 ＝ “”)
  标签_状态.标题 ＝ “未登录”
  返回 ()
.如果真结束
标签_状态.标题 ＝ “正在重新启动”
返回文本 ＝ 网页_访问S (“http://” ＋ 编辑框_地址.内容 ＋ “/userRpm/SysRebootRpm.htm?Reboot=%D6%D8%C6%F4%C2%B7%D3%C9%C6%F7”, 0, , , , 协议头, , , , , )

运行结果：

总结

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

赞 (0)

相关推荐

  • 易语言制作网截抓包工具的代码

    易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 易语言酷我音乐三种格式无损下载地址解析源码

    易语言酷我音乐三种格式无损下载地址解析源码

    DLL命令表 .版本 2 .DLL命令 CoInitialize, 整数型, "ole32.dll", , 公开, 初始化对象开始 .参数 pvReserved, 整数型, , 0 .DLL命令 CoUninitialize, 整数型, "ole32.dll", , 公开, 初始化对象结束 .DLL命令 ShellExecute, 整数型, "shell32.dll", "ShellExecuteA" .参数 hwnd, 整数

  • 易语言使用超文本显示新浪天气预报的代码

    易语言使用超文本显示新浪天气预报的代码

    常量数据表 .版本 2 .常量 v1, "<文本长度: 24>", , <p class="inx_w_city_c"> .常量 K, "<文本长度: 8>", , url=http .常量 J, "<文本长度: 47>", , <a href="http://share.sina.cn/callback?content= .常量 v2, "<文本

  • 易语言使用动画框做消除游戏的代码

    易语言使用动画框做消除游戏的代码

    全局变量表 .版本 2 .全局变量 得分总和, 整数型 .全局变量 最高得分, 整数型 .全局变量 关卡, 整数型 利用动画框做的一个消除游戏 .版本 2 .支持库 iext2 .支持库 iext .程序集 窗口程序集1 .程序集变量 标识1, 整数型, , "100" .程序集变量 角度, 整数型 .程序集变量 是否开始, 逻辑型 .子程序 初始化 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 C, 整数型 .局部变量 d, 整数型 置随机数种子 () d ＝ 1

  • 易语言解析音悦台MV提供超清下载地址的代码

    易语言解析音悦台MV提供超清下载地址的代码

    音悦台MV地址解析 此功能需要加载精易模块5.6 .版本 2 .支持库 exui .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 标清, 文本型 .程序集变量 高清, 文本型 .程序集变量 超清, 文本型 .子程序 _按钮EX1_左键单击 按钮EX2.可视EX ＝ 假 按钮EX3.可视EX ＝ 假 按钮EX4.可视EX ＝ 假 .判断开始 (编辑框EX1.内容 ＝ "") 信息框EX (, "告警 :", , "先输入MV地址才能解

  • 易语言调用TTS语音模块实现文字转换语音功能的代码

    易语言调用TTS语音模块实现文字转换语音功能的代码

    DLL命令表 .版本 2 .DLL命令 CoInitialize, 整数型, "ole32.dll", "CoInitialize" .参数 pvReserved, 整数型 .DLL命令 CoUninitialize, , "Ole32.dll", "CoUninitialize", , 在当前线程,关闭COM库,卸载所有加载的DLL的线程,释放线程保持的任何其他资源,并强制关闭所有的线程上的RPC连接. 利用系统自带的TTS

  • 易语言调用GetUserPassWord.dll获取系统开机密码

    易语言调用GetUserPassWord.dll获取系统开机密码

    DLL命令表 .版本 2 .DLL命令 取开机密码, 文本型, "GetUserPassWord.dll", "GetUserPassWord", 公开 获取系统登录密码的代码 .版本 2 .程序集 窗口程序集1 .子程序 获取开机, 文本型 .局部变量 密码, 文本型 .局部变量 帐号, 文本型 .局部变量 最终文本, 文本型 帐号 ＝ 读环境变量 ("USERNAME") 密码 ＝ 取电脑开机密码 () 最终文本 ＝ "密码类型:开

  • 易语言制作UAC管理员模式添加器

    易语言制作UAC管理员模式添加器

    DLL命令表 .版本 2 .DLL命令 BeginUpdateResource, 整数型, "kernel32.dll", "BeginUpdateResourceA" .参数 pFileName, 文本型 .参数 bDeleteExistingResources, 逻辑型 .DLL命令 UpdateResource, 逻辑型, "kernel32.dll", "UpdateResourceA" .参数 hUpdate, 整数

  • 易语言获取已登录的QQ号码以及名称的方法

    易语言获取已登录的QQ号码以及名称的方法

    取登陆QQ号以及名称的代码 此功能需要加载精易模块5.6 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量 数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量 名称, 文本型 显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量 ＝ 到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ ＝ 到文本 (文本_取出中间文本

  • 易语言调用百度语音平台实现文字转换语音功能的代码

    易语言调用百度语音平台实现文字转换语音功能的代码

    调用百度语音平台实现文字转换语音功能 此功能需要加载精易模块5.6 .版本 2 .支持库 wmp9 .程序集 窗口程序集1 .子程序 _试听按钮_被单击 播放器1.地址 ＝ "http://tts.baidu.com/text2audio?lan=zh&pid=101&ie=UTF-8&text=" + 编码_URL编码 (内容编辑框.内容, , 真) + "&spd=5&per=4" ' 参数 可需 描述 ' tex 必填

  • 易语言将下载地址解析转换成迅雷快车旋风的方法

    易语言将下载地址解析转换成迅雷快车旋风的方法

    Base64解码 .版本 2 .程序集 程序集1 .子程序 Base64解码, 字节集, 公开 .参数 原文, 字节集 .局部变量 码表, 字节集 .局部变量 位置码表, 字节型, , "256" .局部变量 结果, 字节集 .局部变量 原文长度, 整数型 .局部变量 补码, 整数型 .局部变量 i, 整数型 .局部变量 四字节数据, 字节型, , "4" .局部变量 j, 整数型 原文长度 ＝ 取字节集长度 (原文) .如果真 (原文长度 ＝ 0) 返回 ({ }

  • 易语言Ex_DirectUI自绘扫雷游戏源码

    易语言Ex_DirectUI自绘扫雷游戏源码

    MineMartix .版本 2 .支持库 spec .程序集 MineMartix, Ex_控件基类, , ExDUI扩展组件_扫雷按钮 .程序集变量 m_颜色, 整数型 .程序集变量 m_透明度, 整数型 .程序集变量 m_Rect, RectF .程序集变量 m_hIcon, 整数型, , , 图像句柄 .程序集变量 m_单击回调指针, 整数型 .程序集变量 m_Mine, 逻辑型 .程序集变量 m_Pos, PointF .程序集变量 m_Num, 整数型, , , 周围雷数量 .程序集

  • 易语言实现无需加好友强制查看QQ资料卡片的方法

    易语言实现无需加好友强制查看QQ资料卡片的方法

    调用腾讯的弹出QQ资料卡片接口实现强制查看QQ资料卡片的功能 .版本 2 .支持库 shell .程序集 窗口程序集_启动窗口 .子程序 _查看资料按钮_被单击 执行 (, "tencent://ContactInfo/?subcmd=ViewInfo&puin=0&uin=" + QQ号编辑框.内容, , , ) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查

  • 易语言实现自动发送QQ信息的代码

    易语言实现自动发送QQ信息的代码

    全局变量表 .版本 2 .全局变量 局_句柄, 整数型 .全局变量 b, 整数型 QQ自动发送信息 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 逻辑, 逻辑型 .子程序 _暂停按钮_被单击 时钟1.时钟周期 ＝ 0 .子程序 _好友按钮_被单击 逻辑 ＝ 假 时钟1.时钟周期 ＝ 1500 .子程序 功能_取句柄, 整数型 .参数 名称, 文本型 局_句柄 ＝ 窗口_取句柄 (, , "TXGuiFoundati

随机推荐