1.             (语句无法识别，可能有错误): bHave=true //找到了
  2.             （键盘）按 Print Screen 键, 1次
  3.             (语句无法识别，可能有错误): Goto rHave //跳出
  4.         条件结束
  5.     循环结束
  6.     标记 rHave(函数 findFoe)
  7.     (语句无法识别，可能有错误): findFoe=bHave//Return 函数返回值
  8. 函数结束
  9. 注释：**Function
  10. 注释：功能:判断是否没有命中敌人
  11. 注释：返回:是True,否False
  12. 函数 noBingo()
  13.     (语句无法识别，可能有错误): Dim iX,iY //int 得到颜色的坐标
  14.     调用 按 从中心找 的方式查找颜色 "7E7EC0"，把找到的坐标保存到 (iX, iY)，指定区域（左：iWidth / 2 - 5 上：iHeight / 2 - 5 右：iWidth / 2 + 5 下：iHeight + 5），相似度 0.7
  15.     如果 iX > 0 则
  16.         令 noBingo = True
  17.     否则
  18.         令 noBingo = False
  19.     条件结束
  20. 函数结束
  21. 注释：**Sub
  22. 注释：功能:射击
  23. 子程序 shootFoe()
  24.     (语句无法识别，可能有错误): LeftClick iFN //左键单击 * 次
  25.     (语句无法识别，可能有错误): Delay iFD //延迟 * 毫秒
  26. 子程序结束
  27. 注释：**Sun
  28. 注释：参数(字符串,秒,第几行)
  29. 注释：功能:显示字符串
  30. 子程序 showStr(str,n,row)
  31.     循环 n * 100 次
  32.         延时 1 毫秒
  33.         调用 Msg.ShowScrTXT(0,(row - 1) * 19,120,19,str,"0000FF")
  34.     循环结束
  35. 子程序结束
  36. 注释：**Sun
  37. 注释：功能:设置开枪延迟
  38. 注释：# 多线程启动
  39. 子程序 setFireDelay()
  40.     定义变量 key
  41.     循环当 True 时
  42.         令 key = （键盘）等待按任意键
  43.         如果 key = 37 则
  44.             (语句无法识别，可能有错误): iFD=iFD-1 //缩小开枪延迟
  45.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
  46.             (语句无法识别，可能有错误): ElseIf key=39 //方向键 右
  47.             (语句无法识别，可能有错误): iFD=iFD+1 //增加开枪延迟
  48.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
  49.             (语句无法识别，可能有错误): ElseIf key=38 //方向键 右
  50.             (语句无法识别，可能有错误): iFD=iFD+5 //增加开枪延迟
  51.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
  52.             (语句无法识别，可能有错误): ElseIf key=40 //方向键 右
  53.             (语句无法识别，可能有错误): iFD=iFD-5 //增加开枪延迟
  54.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
  55.         条件结束
  56.     循环结束
  57. 子程序结束