1.         条件结束
  2.     否则
  3.         如果表达式 (DateDiff("s",t,now)>=30) 为真,则
  4.             QQNo=QQNo+1
  5.             如果表达式 (QQNo>Int(endID)) 为真,则
  6.                 跳转到标记 任务结束
  7.             条件结束
  8.             跳转到标记 喊话任务开始
  9.         条件结束
  10.         sx=Int(x)+1:sy=Int(y)+1
  11.         跳转到标记 wait
  12.     条件结束
  13. 否则
  14.     如果表达式 (DateDiff("s",t,now)>=30) 为真,则
  15.         QQNo=QQNo+1
  16.         如果表达式 (QQNo>Int(endID)) 为真,则
  17.             跳转到标记 任务结束
  18.         条件结束
  19.         跳转到标记 喊话任务开始
  20.     条件结束
  21.     跳转到标记 wait
  22. 条件结束
  23. //如果找到了该点,则继续判断其相对坐标的点,如果全相同,则证明已经打开QQ临时会话,如果没找到,则把当前点定为起始坐标.如果查找时间超过30秒,则放弃查找,直接跳到下一个号码
  24. 标记 saymsg
  25. 输入文本 msg
  26. //发送消息
  27. 延时1000毫秒
  28. 按住<Alt>
  29. 按键<S>
  30. 弹起<Alt>
  31. //按Alt+S发送消息
  32. 延时800毫秒
  33. 按住<Alt>
  34. 按键<C>
  35. 弹起<Alt>
  36. //按Alt+C关闭该临时会话窗口
  37. 延时800毫秒
  38. sx=0:sy=0
  39. 标记 close
  40. 延时500毫秒
  41. 调用外部VBScript子程序 box=objShell.Popup("你上次的喊话任务尚未完成"&vbCr&vbCr&"如果需要继续上次任务请选择'是'"&vbCr&"如果要重新开始请选择'否'",0,"QQ广告工具",68)
  42. 如果表达式 (x>=0) 为真,则
  43.     如果 (x,y+1) 的颜色等于 #fafafa 则
  44.         如果 (x,y+5) 的颜色等于 #2ee9f 则
  45.             如果 (x-4,y+15) 的颜色等于 #66523 则
  46.                 如果 (x-3,y+6) 的颜色等于 #b1f9eb 则
  47.                     按住<Alt>
  48.                     按键<F4>
  49.                     弹起<Alt>
  50.                     延时1000毫秒
  51.                     按住<Alt>
  52.                     按键<F4>
  53.                     弹起<Alt>
  54.                 否则
  55.                     sx=Int(x)+1:sy=Int(y)+1
  56.                     跳转到标记 close
  57.                 条件结束
  58.             否则
  59.                 sx=Int(x)+1:sy=Int(y)+1
  60.                 跳转到标记 close
  61.             条件结束
  62.         否则
  63.             sx=Int(x)+1:sy=Int(y)+1
  64.             跳转到标记 close
  65.         条件结束
  66.     否则
  67.         sx=Int(x)+1:sy=Int(y)+1
  68.         跳转到标记 close
  69.     条件结束
  70. 条件结束
  71. //以上也是查找该窗口是否存在,如果存在,就用Alt+F4强行关闭,如果不存在,则继续下一个QQ号码
  72. （VBScript语句） set myfile=fso.opentextfile(CurrPath&"\xintool.log",forwriting)
  73. //以写方式打开日志文件
  74. （VBScript语句） myfile.writeline(QQNo)
  75. //写入刚操作完了的QQ号码,以方便下次继续任务
  76. （VBScript语句） myfile.Close
  77. //关闭文件
  78. QQNo=QQNo+1
  79. //QQ号码递增1
  80. 如果表达式 (QQNo>Int(endID)) 为真,则
  81.     跳转到标记 任务结束
  82. 条件结束
  83. //如果该号码大于设置的号码,则任务结束
  84. 跳转到标记 喊话任务开始
  85. 标记 任务结束
  86. （VBScript语句） set myfile=fso.opentextfile(CurrPath&"\xintool.log",forwriting)
  87. //以写方式打开日志文件
  88. （VBScript语句） myfile.writeline("MsgEnd")
  89. //写入任务完成信息
  90. （VBScript语句） myfile.Close
  91. //关闭文件
  92. 弹出窗口 "你所设置的广告任务已完成"
  93. //弹出窗口提示,任务完成