1.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  2.             如果表达式 (xa>=0 and ya>=0) 为真,则
  3.                 鼠标移到 xa+3 , ya+3
  4.                 延时100毫秒
  5.                 右键单击
  6.             条件结束
  7.             延时100毫秒
  8.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  9.             如果表达式 (xa>=0 and ya>=0) 为真,则
  10.                 鼠标移到 xa+3 , ya+3
  11.                 延时100毫秒
  12.                 右键单击
  13.             条件结束
  14.             延时100毫秒
  15.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  16.             如果表达式 (xa>=0 and ya>=0) 为真,则
  17.                 鼠标移到 xa+3 , ya+3
  18.                 延时100毫秒
  19.                 右键单击
  20.             条件结束
  21.             延时100毫秒
  22.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  23.             如果表达式 (xa>=0 and ya>=0) 为真,则
  24.                 鼠标移到 xa+3 , ya+3
  25.                 延时100毫秒
  26.                 右键单击
  27.             条件结束
  28.             延时100毫秒
  29.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  30.             如果表达式 (xa>=0 and ya>=0) 为真,则
  31.                 鼠标移到 xa+3 , ya+3
  32.                 延时100毫秒
  33.                 右键单击
  34.             条件结束
  35.         循环结束
  36.     循环结束
  37. 子程序结束,回到调用处
  38. 子程序 补血补蓝
  39.     ///////////////////////////////////////////////////////////////////人物血蓝
  40.     如果表达式 (1) 为真,则循环执行
  41.         延时sj毫秒
  42.         如果 (221,57) 的颜色不等于 #808de 则
  43.             超级模拟按键<F2>
  44.             //按键F2
  45.             延时buxue毫秒
  46.         条件结束
  47.         延时sj毫秒
  48.         如果 (139,74) 的颜色不等于 #a65a12 则
  49.             超级模拟按键<F1>
  50.             //按键F1
  51.             延时sj毫秒
  52.             超级模拟按键<F3>
  53.             //按键F3
  54.             延时bulan毫秒
  55.         条件结束
  56.     循环结束
  57. 子程序结束,回到调用处
  58. 子程序 检测验证码
  59.     如果表达式 (1) 为真,则循环执行
  60.         延时200000毫秒
  61.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  62.         如果表达式 (xb>=0 and yb>=0) 为真,则
  63.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
  64.             跳转到标记 停止
  65.         条件结束
  66.     循环结束
  67. 子程序结束,回到调用处
  68. 标记 停止
  69. 按键<F12>