实现功能:  能自定义QQ号码段,实现不加QQ,发送广告消息! 

如在中途停止了脚本,下次启动时会自动检测,并提示你是否继续上次未完成的任务! 

如遇到需要输入验证码的临时会话,则自动关闭! 

如果30秒未有响应,则自动跳到下一个QQ号码继续任务! 

注意:该脚本有个BUG,后来看到了 沉8   的帖子,才发现的该BUG,但也不愿意去改. 

不过我想也无所谓了..该脚本只为学习使用^_^ 

沉8的脚本已经发在下面了,我加了个注释,方便大家理解! 呵呵 

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

UserVar startID=10001 从该QQ号码开始(大于等于10001的整数)   UserVar endID=999999999 到该QQ号码结束(小于等于999999999的整数)   UserVar msg=需要发送的广告内容 这里是你所需要发送的广告内容   VBS Dim objShell,fso,QQNo,lastNo,sx,sy,allx,ally,x,y,t   //定义变量   Set objShell=CreateObject("WScript.Shell")   //创建WScript.Shell对象   CurrPath=objShell.CurrentDirectory   //取得当前路径   VBS set fso=CreateObject("Scripting.FileSystemObject")   //创建FSO对象   VBS const forreading=1   //定义读方式   VBS const forwriting=2   //定义写方式   VBS const forappending=8   //定义追加方式   If startID<10001       MessageBox "你设置的起始QQ号不正确,请重新设置"   EndScript    EndIf    //判断UserVar里设置的数字是否大于10001,如果不大于,则提示并退出脚本   If fso.FileExists(CurrPath&"\xintool.log")=0       //判断日志文件是否存在       VBS set myfile=fso.createtextfile(CurrPath&"\xintool.log")       //如果不存在,就生成一个   Else        VBS set myfile=fso.opentextfile(CurrPath&"\xintool.log",forreading)       //如果存在,则以读方式打开文件       VBS lastNo=myfile.readline       //读一行内容,赋予变量lastNo   EndIf    VBS myfile.Close   //关闭文件   If lastNo="MsgEnd"       QQNo=Int(startID)   ElseIf lastNo>=10001 and lastNo<=999999999       VBSCall box=objShell.Popup("你上次的喊话任务尚未完成"&vbCr&vbCr&"如果需要继续上次任务请选择'是'"&vbCr&"如果要重新开始请选择'否'",0,"QQ广告工具",68)       If box=6           QQNo=Int(lastNo)       Else            QQNo=Int(startID)       EndIf    Else        QQNo=Int(startID)   EndIf    //以上是通过判断lastNo的内容,来确定上次是否完成了任务.如果没完成任务,是否继续上次任务.如完成了,则重新开始!   Plugin allx=GetSysInfo.GetScreenResolutionX()   Plugin ally=GetSysInfo.GetScreenResolutionY()   //获得屏幕的分辨率   Rem 喊话任务开始   t=now   //把当前的系统时间,赋予变量t   VBS objShell.Run "tencent://message/?uin="&QQNo&"&Site=xintool&Menu=No",0   //运行QQ临时会话   sx=0:sy=0   //定义查找颜色的起始点坐标   Rem wait   Delay 500   VBSCall FindColorEx(sx,sy,allx,ally,"59343",0,1,x,y)   //先查找QQ临时回话上的一个点   If x>=0       IfColor x,y+1,fafafa,0           IfColor x,y+5,2ee9f,0               IfColor x-4,y+15,66523,0                   IfColor x-3,y+6,b1f9eb,0                       Delay 500                       Goto saymsg                   Else                        If DateDiff("s",t,now)>=30                           QQNo=QQNo+1                           If QQNo>Int(endID)                               Goto 任务结束                           EndIf                            Goto 喊话任务开始                       EndIf                        sx=Int(x)+1:sy=Int(y)+1                       Goto wait                   EndIf                Else                    If DateDiff("s",t,now)>=30                       QQNo=QQNo+1                       If QQNo>Int(endID)                           Goto 任务结束                       EndIf                        Goto 喊话任务开始                   EndIf                    sx=Int(x)+1:sy=Int(y)+1                   Goto wait               EndIf            Else                If DateDiff("s",t,now)>=30                   QQNo=QQNo+1                   If QQNo>Int(endID)                       Goto 任务结束                   EndIf                    Goto 喊话任务开始               EndIf                sx=Int(x)+1:sy=Int(y)+1               Goto wait               EndIf        Else            If DateDiff("s",t,now)>=30               QQNo=QQNo+1               If QQNo>Int(endID)                   Goto 任务结束               EndIf                Goto 喊话任务开始           EndIf            sx=Int(x)+1:sy=Int(y)+1           Goto wait       EndIf    Else        If DateDiff("s",t,now)>=30           QQNo=QQNo+1           If QQNo>Int(endID)               Goto 任务结束           EndIf            Goto 喊话任务开始       EndIf        Goto wait   EndIf    //如果找到了该点,则继续判断其相对坐标的点,如果全相同,则证明已经打开QQ临时会话,如果没找到,则把当前点定为起始坐标.如果查找时间超过30秒,则放弃查找,直接跳到下一个号码   Rem saymsg   SayString msg   //发送消息   Delay 1000   KeyDown 18,1   KeyPress 83,1   KeyUp 18,1   //按Alt+S发送消息   Delay 800   KeyDown 18,1   KeyPress 67,1   KeyUp 18,1   //按Alt+C关闭该临时会话窗口   Delay 800   sx=0:sy=0   Rem close   Delay 500   VBSCall FindColorEx(sx,sy,allx,ally,"59343",0,1,x,y)   If x>=0       IfColor x,y+1,fafafa,0           IfColor x,y+5,2ee9f,0               IfColor x-4,y+15,66523,0                   IfColor x-3,y+6,b1f9eb,0                       KeyDown 18,1                       KeyPress 115,1                       KeyUp 18,1                       Delay 1000                       KeyDown 18,1                       KeyPress 115,1                       KeyUp 18,1                   Else                        sx=Int(x)+1:sy=Int(y)+1                       Goto close                   EndIf                Else                    sx=Int(x)+1:sy=Int(y)+1                   Goto close               EndIf            Else                sx=Int(x)+1:sy=Int(y)+1               Goto close           EndIf        Else            sx=Int(x)+1:sy=Int(y)+1           Goto close       EndIf    EndIf    //以上也是查找该窗口是否存在,如果存在,就用Alt+F4强行关闭,如果不存在,则继续下一个QQ号码   VBS set myfile=fso.opentextfile(CurrPath&"\xintool.log",forwriting)   //以写方式打开日志文件   VBS myfile.writeline(QQNo)   //写入刚操作完了的QQ号码,以方便下次继续任务   VBS myfile.Close   //关闭文件   QQNo=QQNo+1   //QQ号码递增1   If QQNo>Int(endID)       Goto 任务结束   EndIf    //如果该号码大于设置的号码,则任务结束   Goto 喊话任务开始   Rem 任务结束   VBS set myfile=fso.opentextfile(CurrPath&"\xintool.log",forwriting)   //以写方式打开日志文件   VBS myfile.writeline("MsgEnd")   //写入任务完成信息   VBS myfile.Close   //关闭文件   MessageBox "你所设置的广告任务已完成"   //弹出窗口提示,任务完成