Call Plugin.Bkgnd.LeftClick(Hwnd, WB, WC) Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd, WCF,WCW) Delay 1000 For 15 Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD) Delay 1300 Next //................................................. Rem F Call Plugin.Bkgnd.LeftClick(Hwnd, WE, WA) Delay 1000 YK = Plugin.Bkgnd.GetPixelColor(Hwnd, 401,252) If YK = "00FFFF" Then Goto F1 Else End If Call Plugin.Bkgnd.LeftClick(Hwnd, WB, WC) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd, WFF, WFW) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD) Delay 500 Rem F1 Sub L YB = Plugin.Bkgnd.FindColor(Hwnd, 391, 244, 590, WK, "00001B") //任务完成时候的图值 YB = Split(YB, "|") X = CInt(YB(0)) Y = CInt(YB(1)) End Sub Rem F2 YI = Plugin.Bkgnd.GetPixelColor(Hwnd, WCK, WCL) If YI = "FFFFFF" Then Call L Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y) //如果任务完成了就跳到。。。 Goto F3 Else Call L Delay 400 Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y) Delay 500 Goto F4 End If Rem F3 YI = Plugin.Bkgnd.GetPixelColor(Hwnd, 215, 426) If YI = "29341A" Then Call Plugin.Bkgnd.LeftClick(Hwnd, WE,WA) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd,WCC,WDD) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd, WE,WA) Delay 1500 YG = Plugin.Bkgnd.GetPixelColor(Hwnd, 401,252) If YG = "00FFFF" Then Delay 10 Else MessageBox "任务完成" END If Goto F2 Delay 300 Else Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y) Delay 500 Goto F4 End If Rem F4 YI = Plugin.Bkgnd.GetPixelColor(Hwnd, WCK,WCL) If YI = "FFFFFF" Then Goto F3 Delay 1000 Else Call Plugin.Bkgnd.KeyPress(Hwnd, 90) Delay 1000 Goto F4 End If Delay 1000 YGG = Plugin.Bkgnd.GetPixelColor(Hwnd, 401,252) If YGG = "00FFFF" Then Delay 10 Else MessageBox "任务已经完成" End If Goto F //这里惩恶已经做完了。。。。。。。。。 //这里惩恶已经做完了。。。。。。。。。 //这里惩恶已经做完了。。。。。。。。。 //这里惩恶已经做完了。。。。。。。。。 //这里惩恶已经做完了。。。。。。。。。