1. 用户定义变量 startID=10001 从该QQ号码开始(大于等于10001的整数)
2. 用户定义变量 endID=999999999 到该QQ号码结束(小于等于999999999的整数)
3. 用户定义变量 msg=需要发送的广告内容 这里是你所需要发送的广告内容
4. （VBScript语句） Dim objShell,fso,QQNo,lastNo,sx,sy,allx,ally,x,y,t
5. //定义变量
6. Set objShell=CreateObject("WScript.Shell")
7. //创建WScript.Shell对象
8. CurrPath=objShell.CurrentDirectory
9. //取得当前路径
10. （VBScript语句） set fso=CreateObject("Scripting.FileSystemObject")
11. //创建FSO对象
12. （VBScript语句） const forreading=1
13. //定义读方式
14. （VBScript语句） const forwriting=2
15. //定义写方式
16. （VBScript语句） const forappending=8
17. //定义追加方式
18. 如果表达式 (startID<10001) 为真,则
19.     弹出窗口 "你设置的起始QQ号不正确,请重新设置"
20. 脚本停止运行
21. 条件结束
22. //判断UserVar里设置的数字是否大于10001,如果不大于,则提示并退出脚本
23. 如果表达式 (fso.FileExists(CurrPath&"\xintool.log")=0) 为真,则
24.     //判断日志文件是否存在
25.     （VBScript语句） set myfile=fso.createtextfile(CurrPath&"\xintool.log")
26.     //如果不存在,就生成一个
27. 否则
28.     （VBScript语句） set myfile=fso.opentextfile(CurrPath&"\xintool.log",forreading)
29.     //如果存在,则以读方式打开文件
30.     （VBScript语句） lastNo=myfile.readline
31.     //读一行内容,赋予变量lastNo
32. 条件结束
33. （VBScript语句） myfile.Close
34. //关闭文件
35. 如果表达式 (lastNo="MsgEnd") 为真,则
36.     QQNo=Int(startID)
37. 否则如果(lastNo>=10001 and lastNo<=999999999)为真,则
38.     调用外部VBScript子程序 box=objShell.Popup("你上次的喊话任务尚未完成"&vbCr&vbCr&"如果需要继续上次任务请选择'是'"&vbCr&"如果要重新开始请选择'否'",0,"QQ广告工具",68)
39.     如果表达式 (box=6) 为真,则
40.         QQNo=Int(lastNo)
41.     否则
42.         QQNo=Int(startID)
43.     条件结束
44. 否则
45.     QQNo=Int(startID)
46. 条件结束
47. //以上是通过判断lastNo的内容,来确定上次是否完成了任务.如果没完成任务,是否继续上次任务.如完成了,则重新开始!
48. 调用插件命令 allx=GetSysInfo.GetScreenResolutionX()
49. 调用插件命令 ally=GetSysInfo.GetScreenResolutionY()
50. //获得屏幕的分辨率
51. 标记 喊话任务开始
52. t=now
53. //把当前的系统时间,赋予变量t
54. （VBScript语句） objShell.Run "tencent://message/?uin="&QQNo&"&Site=xintool&Menu=No",0
55. //运行QQ临时会话
56. sx=0:sy=0
57. //定义查找颜色的起始点坐标
58. 标记 wait
59. 延时500毫秒
60. 调用外部VBScript子程序 box=objShell.Popup("你上次的喊话任务尚未完成"&vbCr&vbCr&"如果需要继续上次任务请选择'是'"&vbCr&"如果要重新开始请选择'否'",0,"QQ广告工具",68)
61. //先查找QQ临时回话上的一个点
62. 如果表达式 (x>=0) 为真,则
63.     如果 (x,y+1) 的颜色等于 #fafafa 则
64.         如果 (x,y+5) 的颜色等于 #2ee9f 则
65.             如果 (x-4,y+15) 的颜色等于 #66523 则
66.                 如果 (x-3,y+6) 的颜色等于 #b1f9eb 则
67.                     延时500毫秒
68.                     跳转到标记 saymsg
69.                 否则
70.                     如果表达式 (DateDiff("s",t,now)>=30) 为真,则
71.                         QQNo=QQNo+1
72.                         如果表达式 (QQNo>Int(endID)) 为真,则
73.                             跳转到标记 任务结束
74.                         条件结束
75.                         跳转到标记 喊话任务开始
76.                     条件结束
77.                     sx=Int(x)+1:sy=Int(y)+1
78.                     跳转到标记 wait
79.                 条件结束
80.             否则
81.                 如果表达式 (DateDiff("s",t,now)>=30) 为真,则
82.                     QQNo=QQNo+1
83.                     如果表达式 (QQNo>Int(endID)) 为真,则
84.                         跳转到标记 任务结束
85.                     条件结束
86.                     跳转到标记 喊话任务开始
87.                 条件结束
88.                 sx=Int(x)+1:sy=Int(y)+1
89.                 跳转到标记 wait
90.             条件结束
91.         否则
92.             如果表达式 (DateDiff("s",t,now)>=30) 为真,则
93.                 QQNo=QQNo+1
94.                 如果表达式 (QQNo>Int(endID)) 为真,则
95.                     跳转到标记 任务结束
96.                 条件结束
97.                 跳转到标记 喊话任务开始
98.             条件结束
99.             sx=Int(x)+1:sy=Int(y)+1
100.             跳转到标记 wait