(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