lugin.Window.Find(0, "QQ幻想世界")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem 脚本开始
Rem 选怪
Delay 32
KeyPress "Tab", 1
Delay 1000
IfColor 528+Ux,44+Uy,"D79D",0 Then
    Rem JZD
KeyPress "F10", 1
    Delay 1000
    KeyPress "F2", 1
Else
Goto 选怪
End If
    IfColor 315+Ux,52+Uy,"383433",0 Then
    Goto JZD
Else
End If
Delay 32
IfColor 147+Ux,45+Uy,"FFFFFF",1 Then
KeyPress "2", 1
Else
End If
IfColor 120,58,"83600A",1 Then
KeyPress "1", 1
End If
KeyPress "Space", 1
Delay 500
KeyPress "Space", 1
Delay 500
KeyPress "Space", 1
Delay 500
KeyPress "Space", 1
    Goto 脚本开始