1.     如果表达式 (GetColor = "39A2FF") 为真,则
  2.         txt_record = "密码错误"
  3.         跳转到标记 位置判断结束
  4.     条件结束
  5.     txt_record = 0
  6.     标记 位置判断结束
  7.     调用子程序 CX.日志.记录
  8. 子程序结束,回到调用处
  9. 子程序 CX.直接点击
  10.     //下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：X01, Y01)处发送一个鼠标左键单击
  11.     调用插件命令 Bkgnd.LeftClick(Hwnd, X01, Y01)
  12.     延时time01毫秒
  13. 子程序结束,回到调用处
  14. 子程序 CX.确定判断
  15.     标记 休息一分钟
  16.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 271, 165)
  17.     如果表达式 (GetColor = "4AEBFF") 为真,则
  18.         跳转到标记 休息一分钟
  19.     条件结束
  20.     X11=408:Y11=330:COL11="633000":X12=X11:Y12=372:COL12="633000"
  21.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X11, Y11)
  22.     如果表达式 (GetColor = COL11) 为真,则
  23.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X12, Y12)
  24.         如果表达式 (GetColor = COL12) 为真,则
  25.             X01=X11:Y01=Y11+10:time01=500
  26.             调用子程序 CX.直接点击
  27.             跳转到标记 确定判断_结束
  28.         条件结束
  29.     条件结束
  30.     X11=479:Y11=329:COL11="633000":X12=X11:Y12=372:COL12="633000"
  31.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X11, Y11)
  32.     如果表达式 (GetColor = COL11) 为真,则
  33.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X12, Y12)
  34.         如果表达式 (GetColor = COL12) 为真,则
  35.             X01=X11:Y01=Y11+10:time01=500
  36.             调用子程序 CX.直接点击
  37.             跳转到标记 确定判断_结束
  38.         条件结束
  39.     条件结束
  40.     标记 确定判断_结束
  41. 子程序结束,回到调用处
  42. 子程序 CX.写入文件
  43.     （VBScript语句） dim fso,file,filename
  44.     （VBScript语句） Set fso=CreateObject("Scripting.FileSystemObject")
  45.     如果表达式 (fso.FileExists(filename)=0) 为真,则
  46.         （VBScript语句） Set file =fso.CreateTextFile(filename,2)
  47.         （VBScript语句） file.Close
  48.     条件结束
  49.     （VBScript语句） Set file=fso.OpenTextFile(filename,2)
  50.     （VBScript语句） file.WriteLine(txt)
  51.     （VBScript语句） file.Close
  52. 子程序结束,回到调用处
  53. 子程序 CX.读文件
  54.     （VBScript语句） dim fso,file,filename
  55.     （VBScript语句） Set fso=CreateObject("Scripting.FileSystemObject")
  56.     如果表达式 (fso.FileExists(filename)=0) 为真,则
  57.         （VBScript语句） Set file =fso.CreateTextFile(filename,2)
  58.         （VBScript语句） file.WriteLine(101)
  59.         （VBScript语句） file.Close
  60.     条件结束
  61.     （VBScript语句） Set file=fso.OpenTextFile(filename,1)
  62.     （VBScript语句） txt=file.ReadLine
  63.     （VBScript语句） file.Close
  64. 子程序结束,回到调用处
  65. 子程序 CX.多确认
  66.     延时50毫秒
  67.     D_qr=0
  68.     标记 多确认开始
  69.     标记 休息一分钟2
  70.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 271, 165)
  71.     如果表达式 (GetColor = "4AEBFF") 为真,则
  72.         延时10000毫秒
  73.         跳转到标记 休息一分钟2
  74.     条件结束
  75.     //胜利，判断血量
  76.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 467, 229)
  77.     如果表达式 (GetColor = "00FFFF") 为真,则
  78.         i=0
  79.         循环 6 遍
  80.             Xa=263-var3-i:Ya=35
  81.             调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, Xa, Ya)
  82.             //MessageBox Xa & "|" & Ya & "|" & Getcolor
  83.             如果表达式 (GetColor = "0024FF") 为真,则
  84.                 跳转到标记 需要恢复
  85.             否则如果(GetColor="AD6921" or GetColor="B56D29")为真,则
  86.                 buxue=0
  87.                 跳转到标记 需要恢复
  88.             条件结束
  89.             i=i+1
  90.         循环结束
  91.         标记 需要恢复
  92.         调用插件命令 Bkgnd.LeftClick(Hwnd, 477, 360)
  93.         调用插件命令 Bkgnd.LeftClick(Hwnd, 477, 360)
  94.         D_qr=1
  95.         延时200毫秒
  96.         跳转到标记 134.多确认结束
  97.     条件结束
  98.     //胜利，判断血量
  99.     //下面这句按从左到右，从上到下的顺序查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色
  100.     调用插件命令 XY = Bkgnd.FindColor(Hwnd, 475,310,476,452,"633000")