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 "你所设置的广告任务已完成"
//弹出窗口提示,任务完成