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