Hwnd = Plugin.Window.MousePoint()
rem a
//-----------------------------------
Sub pd()
Dim q(3)
q(0) = "5A614A" //过图
q(1) = "0B650B" //团队框架
q(2) = "60E9FF" //登录界面
q(3) = "0B3150"
for i = 0 To 3
FindColor 27,145,158,425,q(i),intX,intY
If intX > 0 And intY > 0 Then
MessageBox "找到"
EndScript
Exit For
End If
next
End Sub
For 20
For 20
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
Call Plugin.Bkgnd.Keydown(Hwnd, 68)
Call pd
Call Plugin.Bkgnd.Keyup(Hwnd, 68)
Delay 70
Call Plugin.Bkgnd.Keydown(Hwnd, 68)
Delay 135
Call Plugin.Bkgnd.Keyup(Hwnd, 68)
Delay 70
Call Plugin.Bkgnd.Keydown(Hwnd, 68)
Delay 135
Call Plugin.Bkgnd.Keyup(Hwnd, 68)
Delay 70
Call Plugin.Bkgnd.Keydown(Hwnd, 68)
Delay 135
Call Plugin.Bkgnd.Keyup(Hwnd, 68)
Delay 70
Next
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Call pd
Delay 800
Call pd
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 54)
Call pd
Delay 800
Call pd
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Next
Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 55)
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 56)
Call Plugin.Bkgnd.KeyPress(Hwnd, 57)
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call pd
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 54)
Call pd
Delay 800
Call pd
Delay 800
goto a