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 脚本开始