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
//这里惩恶已经做完了。。。。。。。。。
//这里惩恶已经做完了。。。。。。。。。
//这里惩恶已经做完了。。。。。。。。。
//这里惩恶已经做完了。。。。。。。。。
//这里惩恶已经做完了。。。。。。。。。