| 程序集名 | 保留 | 保留 | 备注 |
| 窗口程序集1 | | | |
| 变量名 | 类型 | 数组 | 备注 |
| ID | 整数型 | | |
| 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键) |
| 子程序名 | 返回值类型 | 公开 | 备注 |
| 子程序1 | | | |
| 参数名 | 类型 | 参考 | 可空 | 数组 | 备注 |
| 参数 | 整数型 | | | | |
| 变量名 | 类型 | 静态 | 数组 | 备注 |
| 地址 | 文本型 | | | |
| 对象 | 对象 | | | |
| data | 文本型 | | | |
| 地址 ＝ “http://192.168.1.1/frames/logo.htm” |
| com1 () |
| 如果真 (对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假) |
| 如果真 (对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假) ’ “创建对象失败” |
| 调试输出 (“创建对象失败” ＋ 取随机文本 (5)) |
| 返回 () |
| 如果真结束 |
| ’ 本源码来自易语言资源网(www.5A5X.com) |
| 如果真结束 |
| 地址 ＝ “http://192.168.1.1/userRpm/SystemStatisticRpm.htm” |
| 对象.方法 (“open”, “get”, 地址, 假) |
| 对象.方法 (“SetRequestHeader”, “Authorization”, “Basic ” ＋ Base64Encode (到字节集 (删全部空 (u.内容) ＋ “:” ＋ 删全部空 (p.内容)))) |
| 对象.方法 (“Send”, ) |
| 程序延时 (500) |
| ‘ 清除系统日志 |
| ‘ 地址 ＝ ###char_color###“http://192.168.1.1/userRpm/SystemLogRpm.htm?logType=0&logLevel=7&ClearLog=%C7%E5%B3%FD%CB%F9%D3%D0%C8%D5%D6%BE&selPage=1&Page=1”###char_color_end### |
| ‘ ip控制 |
| ‘ 地址 ＝ ###char_color###“http://192.168.1.1/userRpm/QoSCfgRpm.htm?userWanType=0&up_bandWidth=100000&down_bandWidth=100000&Save=%B1%A3+%B4%E6”###char_color_end### |
| 地址 ＝ “http://192.168.1.1/userRpm/QoSCfgRpm.htm?userWanType=0&up_bandWidth=100000&down_bandWidth=100000&Save=%B1%A3+%B4%E6” |
| 对象.方法 (“open”, “get”, 地址, 假) |
| 对象.方法 (“SetRequestHeader”, “Authorization”, “Basic ” ＋ Base64Encode (到字节集 (删全部空 (u.内容) ＋ “:” ＋ 删全部空 (p.内容)))) |
| 对象.方法 (“Send”, ) |
| ‘ 关闭流量统计 |
| 程序延时 (500) |
| 地址 ＝ “http://192.168.1.1/userRpm/SystemStatisticRpm.htm?statOff=%B9%D8%B1%D5%C1%F7%C1%BF%CD%B3%BC%C6&sortType=1&Num_per_page=5&Goto_page=1” |
| 对象.方法 (“open”, “get”, 地址, 假) |
| 对象.方法 (“SetRequestHeader”, “Authorization”, “Basic ” ＋ Base64Encode (到字节集 (删全部空 (u.内容) ＋ “:” ＋ 删全部空 (p.内容)))) |
| 对象.方法 (“Send”, ) |
| data ＝ 对象.读文本属性 (“responseText”, ) |
| com2 () |
| 编辑框1.内容 ＝ data |
| 程序延时 (500) |
| 清除Cookie () |
| 程序延时 (3000) |
| 调试输出 (取随机文本 (5)) |
| 如果真 (参数 ＞ 0) |
| 启动线程 (&子程序1, 参数, ID) |
| 如果真结束 |
| 子程序名 | 返回值类型 | 公开 | 备注 |
| 程序延时 | 逻辑型 | √ | 不占用cpu，窗口不卡死，不影响其它代码执行 |
| 参数名 | 类型 | 参考 | 可空 | 数组 | 备注 |
| 延时间隔 | 整数型 | | √ | | 1000毫秒 = 1秒 留空为无限等待 |
| 延时单位 | 整数型 | | √ | | 默认为毫秒 0=毫秒 1=秒 2=分钟 3=小时 |
| 变量名 | 类型 | 静态 | 数组 | 备注 |
| 局时间句柄 | 整数型 | | | |
| 局时间 | LARGE_INTEGER | | | |
| 判断开始 (延时单位 ＝ 0 且 是否为空 (延时间隔) ＝ 真) |
| 延时单位 ＝ 5000 × 60 × 60 |
| 判断 (延时单位 ＝ 0) |
| 延时单位 ＝ 1 |
| 判断 (延时单位 ＝ 1) |
| 延时单位 ＝ 1000 |
| 判断 (延时单位 ＝ 2) |
| 延时单位 ＝ 1000 × 60 |
| 判断 (延时单位 ＝ 3) |
| 延时单位 ＝ 1000 × 60 × 60 |
| 默认 |
| 判断结束 |
| 局时间.lowpart ＝ -10 × 延时间隔 × 1000 × 延时单位 |
| 局时间句柄 ＝ CreateWaitableTimerA (0, 假, 0) |
| SetWaitableTimer (局时间句柄, 局时间, 0, 0, 0, 假) |
| 判断循环首 (MsgWaitForMultipleObjects (1, 局时间句柄, 假, -1, 255) ≠ 0) |
| 处理事件 () |
| 判断循环尾 () |
| CloseHandle (局时间句柄) |
| 返回 (真) |
| 子程序名 | 返回值类型 | 公开 | 备注 |
| Base64Encode | 文本型 | | 将指定的数据进行BASE64编码 |
| 参数名 | 类型 | 参考 | 可空 | 数组 | 备注 |
| bin | 字节集 | | | | 要进行编码转换的数据 |
| 变量名 | 类型 | 静态 | 数组 | 备注 |
| adoStream | 对象 | | | |
| 变体型 | 变体型 | | | |
| xmlDoc | 对象 | | | |
| xmlNode | 对象 | | | |
| Base64Encode | 文本型 | | | |
| temp | 变体型 | | | |
| adoStream.创建 (“ADODB.Stream”, ) |
| adoStream.写属性 (“Charset”, “gb2312”) |
| adoStream.写属性 (“Type”, 1) ’ Type 指定或返回的数据类型，可选参数为：字节集 =1 文本型 =2 |
| adoStream.写属性 (“Mode”, 3) |
| adoStream.方法 (“Open”, ) |
| 变体型.赋值 (bin, ) |
| ‘ 本源码来自易语言资源网(www.5A5X.com) |
| adoStream.方法 (“Write”, 变体型) |
| adoStream.写属性 (“Position”, 0) |
| adoStream.写属性 (“Type”, 1) |
| xmlDoc.创建 (“MSXML2.DOMDocument”, ) |
| xmlNode ＝ xmlDoc.对象型方法 (“createElement”, “MyNode”) |
| xmlNode.写属性 (“dataType”, “bin.base64”) |
| 变体型 ＝ adoStream.通用方法 (“Read”, ) |
| xmlNode.写属性 (“nodeTypedValue”, 变体型) |
| Base64Encode ＝ xmlNode.读文本属性 (“Text”, ) |
| ‘ 本源码来自易语言资源网(www.5A5X.com) |
| adoStream.方法 (“Close”, ) |
| xmlDoc.方法 (“Close”, ) |
| xmlNode.方法 (“Close”, ) |
| 返回 (Base64Encode) |
| 如果 (按钮2.标题 ＝ “自动”) |
| 按钮2.标题 ＝ “关闭” |
| 启动线程 (&子程序1, 1, ID) |
| 否则 |
| 按钮2.标题 ＝ “自动” |
| 强制结束线程 (ID) |
| 如果结束 |
| 子程序名 | 返回值类型 | 公开 | 备注 |
| 标签1反馈事件 | 整数型 | | |
| 参数名 | 类型 | 参考 | 可空 | 数组 | 备注 |
| 参数一 | 整数型 | | | | |
| 参数二 | 整数型 | | | | |
| i本程序使用的支持库列表 |
| shellEx | (扩展功能支持库一) |
| spec | (特殊功能支持库) |
| EThread | (多线程支持库) |
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理
