(0)或者标题("《星尘传说》"),返回找到的句柄Hwnd Plugin Hwnd = Window.Find(0, "《星尘传说》") //得到窗口句柄的客户区大小 Plugin Rect = Window.GetClientRect(Hwnd) Dim MyArray MyArray=Split(Rect,"|") Ux=CLng(MyArray(0)) Uy=CLng(MyArray(1)) KeyPress 88,1 Delay 300 MoveTo 176+Ux,205+Uy Delay 200 LeftDoubleClick 1 Delay 2000 IfColor 1243+Ux,391+Uy,ababab,0 Delay 200 MoveTo 973+Ux,593+Uy Delay 200 LeftClick 1 Delay 200 MoveTo 928+Ux,674+Uy Delay 200 LeftClick 1 Delay 700 MoveTo 1001+Ux,289+Uy Delay 700 LeftClick 1 Delay 700 MoveTo 987+Ux,452+Uy Delay 200 LeftClick 1 Rem + IfColor 1138+Ux,13+Uy,ff00,0 Delay 600 Else Goto + EndIf KeyPress 88,1 Delay 700 MoveTo 133+Ux,453+Uy Delay 200 LeftClick 1 Delay 200 KeyPress 98,1 Delay 50 KeyPress 97,1 Delay 50 KeyPress 99,1 Delay 50 KeyPress 9,1 Delay 50 KeyPress 99,1 Delay 50 KeyPress 99,1 Delay 50 KeyPress 102,1 Delay 200 KeyPress 13,1 Delay 16000 Rem 001 MoveTo 615+Ux,394+Uy Delay 200 RightClick 1 Delay 3000 IfColor 1003+Ux,370+Uy,FFFFFF,1 Goto 001 Else Delay 200 MoveTo 86+Ux,179+Uy Delay 200 LeftDoubleClick 1 Delay 16000 EndIf IfColor 877+Ux,216+Uy,14d9d8,0 MoveTo 954+Ux,429+Uy Delay 200 LeftClick 1 Rem - IfColor 1147+Ux,15+Uy,ff00,0 Delay 500 Else Goto - EndIf Else EndIf KeyPress 88,1 Delay 200 MoveTo 71+Ux,208+Uy Delay 200 LeftDoubleClick 1 Delay 5000 MoveTo 1162+Ux,606+Uy Delay 300 LeftClick 1 Delay 300 MoveTo 965+Ux,611+Uy Delay 300 LeftClick 1 Delay 300 MoveTo 924+Ux,674+Uy