quick晒qq.txt

来自「自己写的“按键精灵”脚本：一键登录多个QQ；一键关闭多个QQ。适合批量登录一下自」· 文本 代码 · 共 91 行

[General]
Description=Quick晒QQ
BeginHotkey=121
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 QQNum
Dim QQPwd
Dim TryTimes
//
//主程序段：根据下面代码规律，随意增加你的QQ号码和密码。
//
QQNum = 50661
QQPwd = "xxxxxx"
Gosub 启动QQ
QQNum = 601720
QQPwd = "xxxxxx"
Gosub 启动QQ
QQNum = 515718
QQPwd = "xxxxxx"
Gosub 启动QQ
QQNum = 62258166
QQPwd = "xxxxxx"
Gosub 启动QQ
QQNum = 59515909
QQPwd = "xxxxxx"
Gosub 启动QQ
EndScript 
//
//子程序段。为了代码简洁。Quick20070713
//
Sub 启动QQ
    TryTimes = 0
    VBSCall Call FindPic(0,50,600,800,"C:\Quick\qq桌面图标.bmp",0.9,intX,intY)
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX,intY)
        LeftDoubleClick 1
    ElseIf intX=-1 and intY=-1
        MessageBox 没有找到QQ程序！
    EndScript 
Else 
    MessageBox 出现未知问题！
EndScript 
EndIf 
Delay 1000
Rem Try
VBSCall Call FindPic(0,50,600,400,"C:\Quick\qq窗口图标.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    Gosub QQ登录
ElseIf intX=-1 and intY=-1 and TryTimes<3
    TryTimes = TryTimes+1
    Delay 1000*TryTimes
    Goto Try
Else 
    MessageBox 没有找到QQ登录窗口！
EndScript 
EndIf 
Return 启动QQ
Sub QQ登录
    VBSCall Call SetCursorPos(intX+100,intY+100)
    LeftClick 1
    SayString QQNum
    VBSCall Call SetCursorPos(intX+100,intY+140)
    LeftClick 1
    SayString QQPwd
    VBSCall Call SetCursorPos(intX+260,intY+210)
    LeftDoubleClick 1
    KeyPress 13,1
Return QQ登录