- 如果表达式 (GetColor = "00FFFF") 为真,则
- //胜利
- 跳转到标记 选择技能结束
- 条件结束
- i=i+1
- 循环结束
- 标记 选择技能结束
- time_A=time_A+i
- 如果表达式 (time_A < 200) 为真,则
- txt=time_A:filename="..\7time_B.txt"
- 调用子程序 CX.写入文件
- 条件结束
- 标记 741.选择技能结束
- 子程序结束,回到调用处
- 子程序 CX.选择技能二
- K=0
- 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X, Y)
- //txt_record ="选择技能二STAR" & GetColor & "|" & X & "|" & Y
- //Gosub CX.日志.记录
- COL01 = "FFD384"
- 如果表达式 (GetColor = COL01) 为真,则
- //=============================零技能判断======================================
- X01 = X + 66: Y01 = Y + 22 : COL01 = "5A3421" : COL02 = "634131" : COL03 = "634931"
- 循环 5 遍
- 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
- 如果表达式 (Left (GetColor , 2 ) <> "6B") 为真,则
- txt_record = "零技能判断" & var01(i) & ":" & GetColor & "|" & X01 & "|” ※ Y01
- 调用子程序 CX.日志.记录
- 跳转到标记 选择技能二
- 条件结束
- Y01 = Y01 + 1
- 循环结束
- var1 = relace (var1,var01(i), "")
- //=============================零技能判断======================================
- 跳转到标记 选择技能二END
- 标记 选择技能二
- //下面这句用于向后台窗口句柄(变量:Hwnd)的客户区域(坐标:X01, Y01)处发送一个鼠标左键单击
- //X01= X+ 10 : Y01 = Y
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X01, Y01)
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X01, Y01)
- //下面这句取窗口句柄(变量:Hwnd)窗口的客户区(坐标:Y, X)处的颜色
- 延时300毫秒
- 循环 5 遍
- 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X, Y)
- 如果表达式 (GetColor <> COL01) 为真,则
- K=1
- 跳转到标记 选择技能二END
- 条件结束
- 延时time101毫秒
- 循环结束
- 条件结束
- 延时time101毫秒
- 标记 选择技能二END
- txt_record ="选择技能二END"
- //txt_record ="选择技能二END" & GetColor & "|" & X "|" & Y
- 调用子程序 CX.日志.记录
- 子程序结束,回到调用处
- 子程序 CX.选中精灵然后缩小
- time01 = timer - Startime
- 如果表达式 (time01 > var9 or time01 < 0) 为真,则
- //关机计算机(关机)
- 调用插件命令 Sys.ExitOS(1)
- 跳转到标记 END
- 条件结束
- txt_record ="CX.选中精灵然后缩小"
- 调用子程序 CX.日志.记录
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X00, Y00)
- Y00 = Y00 + 10
- 调用子程序 CX.点击判断
- //下面这句是最小化窗口
- Var1114_temp = Var1114
- 调用插件命令 Window.Min(Hwnd)
- filename="..\7time_B.txt"
- 调用子程序 CX.读文件
- time_A=cint(txt)
- 延时time101+time_A * 45毫秒
- //下面这句是还原窗口
- 调用插件命令 Window.Restore(Hwnd)
- 延时100毫秒
- 循环 10 遍
- 延时200毫秒
- //下面这句按从左到右,从上到下的顺序查找窗口句柄(变量:Hwnd)窗口的指定矩形区域内指定颜色
- 调用插件命令 XY = Bkgnd.FindColor(Hwnd, 877, 508, 577, 493, "FFF7AD")
- MyArray = Split(XY, "|")
- X = CInt(MyArray(0)): Y = CInt(MyArray(1))
- 如果表达式 (X > 0 and Y >0) 为真,则
- time_A=time_A-1
- 跳转到标记 窗口还原一
- 否则
- time_A=time_A+1
- 条件结束
- 循环结束
- 标记 窗口还原一
- txt=time_A : filename="..\7time_A.txt"
- txt_record ="CX.选中精灵然后缩小END"
- 调用子程序 CX.写入文件
- 调用子程序 CX.日志.记录
- 子程序结束,回到调用处
- 子程序 CX.精灵恢复
- //点击精灵