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