1.         跳转到标记 END读句柄
  2.         //MessageBox "程序句柄不在"
  3.         //Goto END
  4.     条件结束
  5.     （VBScript语句） Set file=fso.OpenTextFile(filename,1)
  6.     （VBScript语句） Hwnd00=file.ReadLine
  7.     （VBScript语句） file.Close
  8.     标记 END读句柄
  9. 子程序结束,回到调用处
  10. 子程序 CX.日志.记录
  11.     如果表达式 (Var1111="1") 为真,则
  12.         （VBScript语句） dim fso,file,filename
  13.         txt_record1="第" & right(riji+10000,5) & "回合：" & right(now,8) & "：" & txt_record
  14.         （VBScript语句） filename="..\日志.txt"
  15.         （VBScript语句） Set fso=CreateObject("Scripting.FileSystemObject")
  16.         如果表达式 (fso.FileExists(filename)=0) 为真,则
  17.             （VBScript语句） Set file =fso.CreateTextFile(filename,2)
  18.             （VBScript语句） file.Close
  19.         条件结束
  20.         （VBScript语句） Set file=fso.OpenTextFile(filename,8)
  21.         （VBScript语句） file.WriteLine(txt_record1)
  22.         （VBScript语句） file.Close
  23.         riji=1 + riji
  24.         now01=timer
  25.     条件结束
  26. 子程序结束,回到调用处
  27. 子程序 CX.点击判断
  28.     循环 5 遍
  29.         调用插件命令 Bkgnd.LeftClick(Hwnd, X00, Y00)
  30.         循环 10 遍
  31.             延时time01 + time101毫秒
  32.             调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
  33.             如果表达式 (GetColor = COL01 and xiaosh=0) 为真,则
  34.                 X3=X01:Y3=Y01
  35.                 跳转到标记 判断点击 结束
  36.             否则如果(GetColor <> COL01 and xiaosh=1)为真,则
  37.                 跳转到标记 判断点击 结束
  38.             条件结束
  39.         循环结束
  40.         a=1
  41.         循环 wucha 遍
  42.             X001=X01-a:Y001=Y01-a:X002=X01+a:Y002=Y01+a
  43.             //下面这句按从中间到四周的顺序查找窗口句柄(变量：Hwnd)窗口的指定的矩形区域内指定颜色
  44.             调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, X001, Y001, X002, Y002, COL01)
  45.             //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
  46.             MyArray = Split(XY, "|")
  47.             //下面这句将字符串转换成数值
  48.             X3 = CInt(MyArray(0)): Y3 = CInt(MyArray(1))
  49.             a=a+1
  50.             如果表达式 (X3 > 0 and Y3>0) 为真,则
  51.                 跳转到标记 判断点击 结束
  52.             条件结束
  53.         循环结束
  54.         延时time101毫秒
  55.     循环结束
  56.     标记 判断点击 结束
  57.     txt_record = "判断点击 结束"
  58.     调用子程序 CX.日志.记录
  59.     xiaosh=0
  60.     wucha = 0
  61. 子程序结束,回到调用处
  62. 子程序 CX.判断点击判断
  63.     循环 5 遍
  64.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
  65.         循环 10 遍
  66.             如果表达式 (GetColor = COL01) 为真,则
  67.                 跳转到标记 判断点颜色正确
  68.             条件结束
  69.             延时time01毫秒
  70.         循环结束
  71.         a=1
  72.         循环 20 遍
  73.             X001=X01-a:Y001=Y01-a:X002=X01+a:Y002=Y01+a
  74.             //下面这句按从中间到四周的顺序查找窗口句柄(变量：Hwnd)窗口的指定的矩形区域内指定颜色
  75.             调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, X001, Y001, X002, Y002, COL01)
  76.             //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
  77.             MyArray = Split(XY, "|")
  78.             //下面这句将字符串转换成数值
  79.             X = CInt(MyArray(0)): Y = CInt(MyArray(1))
  80.             a=a+1
  81.             如果表达式 (X > 0 and Y>0) 为真,则
  82.                 X01=X:Y01=Y
  83.                 txt_record = "误差=" & a
  84.                 调用子程序 CX.日志.记录
  85.                 跳转到标记 判断点颜色正确
  86.             条件结束
  87.         循环结束
  88.         延时time101毫秒
  89.     循环结束
  90.     标记 判断点颜色正确
  91.     循环 5 遍
  92.         调用插件命令 Bkgnd.LeftClick(Hwnd, X01, Y01)
  93.         延时time101毫秒
  94.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
  95.         循环 5 遍
  96.             如果表达式 (GetColor <> COL01) 为真,则
  97.                 跳转到标记 判断点二颜色正确
  98.             条件结束
  99.             延时time01毫秒
  100.         循环结束