quick收qq.txt

自己写的“按键精灵”脚本：一键登录多个QQ；一键关闭多个QQ。适合批量登录一下自己的多个QQ帐号。

[General]
Description=Quick收QQ
BeginHotkey=120
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
//*************************************************
//Quick收QQ.按键精灵脚本.V1.0.20070713
//这是Quick自用的脚本，用来自动关闭所有打开的QQ。欢迎各位朋友试用。
//由于各人计算机系统有差异，本脚本可能需要自己调整。
//程序注释请见http://quick0.blog.163.com
//如仍有问题可直接与[e-mail]联系。
//*************************************************
//
//主程序段。无需更改。
//
Dim TryTimes
Gosub 收男QQ
Gosub 收女QQ
MessageBox "所有QQ（正常显示的托盘图标）都关闭了!"
EndScript 
//
//子程序段。为了代码简洁。Quick20070713
//
Sub 收男QQ
    Rem TRY0
    VBSCall Call FindPic(600,750,1280,800,"C:\Quick\MQQ.bmp",0.9,intX,intY)
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX,intY)
        RightClick 1
        Delay 500
        Gosub 点击关闭按钮
        Goto TRY0
    EndIf 
    Rem MessageBox 收男QQ
Return 收男QQ
Sub 收女QQ
    Rem TRY1
    VBSCall Call FindPic(600,750,1280,800,"C:\Quick\FQQ.bmp",0.9,intX,intY)
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX,intY)
        RightClick 1
        Delay 500
        Gosub 点击关闭按钮
        Goto TRY1
    EndIf 
    Rem MessageBox 收女QQ
Return 收女QQ
Sub 点击关闭按钮
    VBSCall Call FindPic(600,700,1280,800,"C:\Quick\关闭按钮.bmp",0.9,intX,intY)
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX,intY)
        LeftClick 1
    EndIf 
Return 点击关闭按钮