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 文本型 =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.标题 ＝ “自动”)

按钮2.标题 ＝ “关闭”

启动线程 (&子程序1, 1, ID)

否则

按钮2.标题 ＝ “自动”

强制结束线程 (ID)

如果结束

子程序名	返回值类型	公开	备注
标签1反馈事件	整数型
参数名	类型	参考	可空	数组	备注
参数一	整数型
参数二	整数型

可视 ＝ 取反 (可视)

i本程序使用的支持库列表
shellEx	(扩展功能支持库一)
spec	(特殊功能支持库)
EThread	(多线程支持库)

i、
、	点我