[e].版本 2

.支持库 iext

登录 (账号, 密码)

.子程序 _超级列表框1_当前表项被改变

到首记录 ()

账号 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )

.判断开始 (查找 (读 (“id”) ＝ 删首尾空 (账号)) ＝ 真)

密码 ＝ 读 (“pass”)

.默认

.判断结束

.子程序 登录

.参数 username, 文本型

.参数 password, 文本型

.局部变量 临时文本, 文本型

ShellExecute (0, “open”, 路径, “”, “”, #SW_SHOW)  ' 运行

延时 (1000)

Pass_hwnd ＝ 0

EnumWindows (&子程序1, 0)  ' 枚举

.如果真 (Parent_hwnd ＝ 0)

延时 (1000)

EnumWindows (&子程序1, 0)  ' 枚举

.如果真 (Parent_hwnd ＝ 0)

延时 (1000)

EnumWindows (&子程序1, 0)  ' 枚举

.如果真 (Parent_hwnd ＝ 0)

信息框 (“未找到登陆框！”, #警告图标, )

.如果真结束

.如果真结束

.如果真结束

SendMessage_String (User_hwnd, #wm_settext, 0, username)

临时文本 ＝ #vds

临时文本 ＝ 子文本替换 (临时文本, “||密码||”, password, , , 真)

写到文件 (“C:\windows\system32\temp.vbs”, 到字节集 (临时文本))

SetForegroundWindow (Parent_hwnd)

PostMessage (User_hwnd, 513, 0, 0)

PostMessage (User_hwnd, 514, 0, 0)

PostMessage (User_hwnd, #WM_KEYDOWN, #Tab键, 0)

PostMessage (User_hwnd, #WM_KEYUP, #Tab键, 0)

ShellExecute (0, “open”, “C:\windows\system32\temp.vbs”, “”, “”, 0)  ' 运行

.子程序 子程序1, 逻辑型, , 枚举父窗口

.参数 hwnd, 整数型

.局部变量 Text, 文本型

Text ＝ _取窗口标题 (hwnd)

.如果真 (寻找文本 (Text, “QQ2011”, , 假) ≠ -1)

清除数组 (子窗口数组)

EnumChildWindows (hwnd, &子程序2, 0)

.如果真 (取数组成员数 (子窗口数组) ＝ 2)

Parent_hwnd ＝ hwnd

EnumChildWindows (Parent_hwnd, &子程序3, 0)

' 输出调试文本 (“父窗口句柄： ” ＋ 到文本 (hwnd))

.如果真结束

.如果真结束

返回 (真)

.子程序 子程序2, 逻辑型, , 枚举子窗口个数

.参数 hwnd, 整数型

加入成员 (子窗口数组, hwnd)

返回 (真)

.子程序 子程序3, 逻辑型, , 枚举帐号、密码窗口句柄

.参数 hwnd, 整数型

.局部变量 ClassName, 文本型

ClassName ＝ _取窗口类名 (hwnd)

.如果真 (ClassName ≠ “Edit”)

User_hwnd ＝ hwnd

' 输出调试文本 (“账号子窗口句柄： ” ＋ 到文本 (User_hwnd))

.如果真结束

.如果真 (ClassName ＝ “Edit”)

Pass_hwnd ＝ hwnd

' 输出调试文本 (“密码子窗口句柄： ” ＋ 到文本 (Pass_hwnd))

.如果真结束

返回 (真)

.子程序 _取窗口类名, 文本型

.参数 hwnd, 整数型

.局部变量 ClassNmae, 文本型

ClassNmae ＝ 取空白文本 (255)

GetClassName (hwnd, ClassNmae, 255)

返回 (ClassNmae)

.子程序 _取窗口标题, 文本型, , 取指定窗口的标题。成功返回窗口标题，失败返回空。

.参数 窗口句柄, 整数型

.局部变量 窗口标题, 文本型

.局部变量 总字符数, 整数型

.局部变量 临时整数, 整数型

临时整数 ＝ 255

窗口标题 ＝ 取空白文本 (临时整数)

SendMessage (窗口句柄, #WM_GETTEXT, 临时整数 ＋ 1, lstrcpyn (窗口标题, 窗口标题, 0))

返回 (窗口标题)

[/e]