TL-WR2041N 自动登陆 自动控制设置

程序集名保留保留备注 窗口程序集1   变量名类型数组备注 ID 整数型 
子程序名返回值类型公开备注 _启动窗口创建完毕 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)
子程序名返回值类型公开备注 com1 CoInitialize (0)
子程序名返回值类型公开备注 com2 CoUninitialize ()
子程序名返回值类型公开备注 按钮1被单击 子程序1 (0)
子程序名返回值类型公开备注 子程序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 文本型 =2adoStream.写属性 (“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.标题 ＝ “自动”)    按钮2.标题 ＝ “关闭”    启动线程 (&子程序1, 1, ID)否则    按钮2.标题 ＝ “自动”    强制结束线程 (ID)如果结束
子程序名返回值类型公开备注 标签1反馈事件 整数型   参数名类型参考可空数组备注 参数一 整数型 参数二 整数型可视 ＝ 取反 (可视)
i本程序使用的支持库列表shellEx(扩展功能支持库一)spec(特殊功能支持库)EThread(多线程支持库)
i、、点我