QQ2010登录模块

阿杰

.版本 2
.子程序 登陆QQ, , 公开
.参数 QQ账号, 文本型
.参数 QQ密码, 文本型
.局部变量 临时文本, 文本型
路径 ＝ 取文本注册项 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\lu\TypePath”, )
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, QQ账号)
临时文本 ＝ #vds
临时文本 ＝ 子文本替换 (临时文本, “||密码||”, QQ密码, , , 真)
写到文件 (“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)  ' 运行

stenweb

还能用吗？

upring

好像有点久远了