Hwnd = Plugin.Window.Find(0, "诛仙3")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
Rem xuanze
Call chiyao()
KeyDown "2", 1
Delay 3500
KeyUp "2", 1
Delay 300
KeyPress "Tab", 1
Delay 100
IfColor 699+Ux,54+Uy,"2E1BCE",0 Then
Rem gongji
Call chiyao()
KeyPress "1", 5
Delay 100
IfColor 701+Ux,58+Uy,"302420",0 Then
Goto gongji
Else
Goto xuanze
End If
Else
Goto xuanze
End If
Sub chiyao()
IfColor 220+Ux,32+Uy,"403B46",0 Then
KeyPress "F1", 1
Delay 100
End If
End Sub
这个代码放技能没问题，Tad选择附近怪没问题，选择怪以后无法按1键进行攻击！