网站首页 > 易语言相关 > 网络相关源码 正文
.版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 cookies, 文本型 .子程序 __启动窗口_创建完毕 .子程序 _按钮1_被单击 .局部变量 cookiesID, 文本型 .局部变量 网页, 文本型 .局部变量 登录flag, 文本型 .如果真 (编辑框4.内容 = “” 或 编辑框1.内容 = “” 或 编辑框2.内容 = “”) 提示框 (“用户名或密码为空”) 返回 () .如果真结束 .如果真 (编辑框4.内容 = “”) 提示框 (“路由器IP为空”) 返回 () .如果真结束 到文本 (网页_访问 (“http://” + 编辑框4.内容, 0, , cookies, , , , , , )) cookiesID = 文本_取出中间文本 (cookies, “COOKIE=”, “;”) 网页 = 到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/logon/loginJump.htm”, 1, “encoded=” + 编辑框1.内容 + “:” + 校验_取md5_文本 (校验_取md5_文本 (编辑框2.内容, , 真, ) + “:” + cookiesID, , 真, ) + “&nonce=” + cookiesID + “&URL=../logon/loginJump.htm”, cookies, , , , , , )) 输出调试文本 (“http://” + 编辑框4.内容 + “/logon/loginJump.htm”, 1, “encoded=” + 编辑框1.内容 + “:” + 校验_取md5_文本 (校验_取md5_文本 (编辑框2.内容, , 真, ) + “:” + cookiesID, , 真, ) + “&nonce=” + cookiesID + “&URL=../logon/loginJump.htm”) 登录flag = 文本_取出中间文本 (网页, “logonInfo = new Array(”, “,”) .如果 (登录flag = “1”) 提示框 (“用户名或密码错误”) .否则 .如果 (寻找文本 (登录flag, “.”, , 假) ≠ -1) .如果 (提示框 (登录flag + “已登录是否继续”, 1) = 0) ' 确认登陆 到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/logon/loginConfirm.htm”, 0, , cookies, , , , , , )) 提示框 (“登录成功”) _按钮3_被单击 () .否则 返回 () .如果结束 .否则 .如果 (登录flag = “”) .如果 (寻找文本 (网页, “/userRpm/Index.htm”, , 假) ≠ -1) 提示框 (“登录成功”) _按钮3_被单击 () .否则 提示框 (“登录异常,请检查路由IP是否正确”) .如果结束 .否则 .如果结束 .如果结束 .如果结束 .子程序 _按钮2_被单击 到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/logon/logout.htm”, 0, , cookies, , , , , , )) 提示框 (“已注销”) .子程序 _按钮3_被单击 .局部变量 wan口信息, 文本型 .局部变量 临时数组, 文本型, , "0" wan口信息 = 到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/userRpm/Monitor_sysinfo_wanstatus.htm”, 0, , cookies, , , , , , )) wan口信息 = 文本_取出中间文本 (wan口信息, “var wanInfoArr = new Array(”, “);”) 输出调试文本 (wan口信息) .如果 (wan口信息 ≠ “”) 临时数组 = 分割文本 (wan口信息, “,”, ) 编辑框3.内容 = 文本_取出中间文本 (临时数组 [4], #引号, #引号) .如果 (编辑框3.内容 = “0.0.0.0”) 时钟1.时钟周期 = 1000 .否则 时钟1.时钟周期 = 0 .如果结束 .否则 提示框 (“获取IP不成功,请检查是否登录成功”) .如果结束 .子程序 _按钮4_被单击 编辑框3.内容 = “” 到文本 (网页_访问 (“http://” + 编辑框4.内容 + “/userRpm/Interface_WanSettingPPPoE.htm?wanindex=0&btn_disconnect=btn_disconnect”, 0, , cookies, , , , , , )) _按钮3_被单击 () .子程序 _时钟1_周期事件 _按钮3_被单击 ()
@1421819223
- 上一篇: 易语言Ex_Ui登陆界面开源 加了缓动特效(支持库模块已打包)
- 下一篇: 化学自动配平软件
猜你喜欢
- 2025-01-03 夸克网盘扫码登录+账号信息查询源码
- 2024-09-13 精易web浏览器采集例子 dd373游戏网
- 2024-09-12 Brotli (br)压缩/解压动态库调用方法,支持进度压缩/解压
- 2024-09-11 QQ空间二维码登录源码
- 2024-04-07 最新NT框架可用QQ群验证
- 2024-03-21 蓝奏云直链解析纯协议源码
- 2024-03-20 基于E2EE的无状态认证JsonWebToken算法、常用Web算法模块
- 2024-03-18 YoLo8本地cpu识别源码
- 2024-03-16 搜索引擎 下拉关键词例子 支持百d\搜狗\必应\搜狗手机版
- 2024-03-15 ZIP解压缩模块源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
本文暂时没有评论,来添加一个吧(●'◡'●)