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