POST路由器管家源码支持限速等功能

' 控制及详情功能暂时没做哈
MacFind.连接Access (取运行目录 () ＋ “\Config\mac.mdb”, , 假)
许可证 ＝ 创建进入许可证 ()
Sign ＝ #窗口状态_头像
' AppearanceEX.宽度 ＝ 0
' AppearanceEX.高度 ＝ 0
ConfigFile ＝ 取运行目录 () ＋ “\Config\config.ini”
Authorization ＝ 到文本 (编码_BASE64编码 (到字节集 (读配置项 (ConfigFile, “login”, “user”, “admin”) ＋ “:” ＋ 读配置项 (ConfigFile, “login”, “password”, “admin”)))) ' 类似cookies
Initialization ()
SetUpPierceThrough ()
' 组件置穿透 (PicEX_MyList.取窗口句柄 (), 0)
厂商图标.创建 (, )
UI目录 ＝ 取运行目录 () ＋ “\UI\”
Apple ＝ 厂商图标.取位图句柄 (厂商图标.载入位图从字节集 (读入文件 (UI目录 ＋ “apple.png”), ))
小米 ＝ 厂商图标.取位图句柄 (厂商图标.载入位图从字节集 (读入文件 (UI目录 ＋ “小米.png”), ))
PC ＝ 厂商图标.取位图句柄 (厂商图标.载入位图从字节集 (读入文件 (UI目录 ＋ “pc.png”), ))
金立 ＝ 厂商图标.取位图句柄 (厂商图标.载入位图从字节集 (读入文件 (UI目录 ＋ “gionee.png”), ))
未知 ＝ 厂商图标.取位图句柄 (厂商图标.载入位图从字节集 (读入文件 (UI目录 ＋ “未知.png”), ))
' -------------获取信息--------------------------
WinHttp.Open (“GET”, “192.168.1.1”, )
WinHttp.Send ()
Model ＝ WinHttp.GetHeader (“WWW-Authenticate”)
Model ＝ 文本_取出中间文本 (Model, #引号, #引号, , )
WinHttp.Open (“GET”, “http://192.168.1.1/userRpm/StatusRpm.htm”, )
WinHttp.SetRequestHeader (“Authorization”, “Basic ” ＋ Authorization)
WinHttp.SetRequestHeader (“Referer”, “http://192.168.1.1/userRpm/StatusRpm.htm”)
WinHttp.Send ()
文本_取中间_批量 (WinHttp.ResponseText (), “ <script type="”">”, “</script> ”, JS代码, 假, , , , , , )
.如果真 (取数组成员数 (JS代码) ＞ 0)
SSID ＝ 取JS数组内容 (JS代码 [3], 1)
LabelEx_SSID.标题 ＝ SSID
重定义数组 (JS代码, 假, 0)
.如果真结束
' ---------------初始化--------------------------
tmp ＝ Word_Bosonnlp (Model)
tmp ＝ 取文本左边 (tmp, 取文本长度 (tmp) － 1)
tmp ＝ 取文本右边 (tmp, 取文本长度 (tmp) － 1)
tmp ＝ 到文本 (编码转换 (到字节集 (tmp), #编码_UTF_8, #编码_GBK, ))
json.解析 (tmp)
标签EX_品牌.标题 ＝ json.取通用属性 (“word[0]”, )
标签EX_型号.标题 ＝ json.取通用属性 (“word[” ＋ 到文本 (json.成员数 (“word”) － 1) ＋ “]”, )
UpdataHostList ()
重定义数组 (Time, 真, 取数组成员数 (Time) ＋ 1)
Time [取数组成员数 (Time)].创建 (到整数 (&UpdataHostList), 1000) ' 检查连接主机
重定义数组 (Time, 真, 取数组成员数 (Time) ＋ 1)
Time [取数组成员数 (Time)].创建 (到整数 (&Updata), 500) ' 更新