//=========================得到窗口============================
Hwnd = Plugin.Window.Find(0, "《天龙八部OL》 3.20.1105 (华东电信一区:虎丘剑池)")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))

Uy = CLng(MyArray(1))

Do


Rem xunguai
KeyPress "F11", 1
Delay 500
IfColor 324+Ux,35+Uy,"11EA",0 Then
    KeyPress "F2", 1
    Delay 200
    Rem 继续
KeyPress "F1", 1
    Delay 2000
IfColor 322+Ux,34+Uy,"393839",0 Then
    Goto xunguai
Else
        Goto 继续
            End If
    End If
Loop
//===============================================================