阿杰 发表于 2010-12-13 17:03:04

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 发表于 2011-2-21 22:01:07

还能用吗？

upring 发表于 2015-5-2 10:43:18

好像有点久远了
页: [1]
查看完整版本: QQ2010登录模块