MousePoint 鼠标指向窗口 梦幻诛仙自动寻路打怪脚本

/*命令名称 MousePoint 鼠标指向窗口 
命令功能 得到鼠标指向的窗口句柄 
命令参数 无 
返 回 值 整数型，窗口句柄 
*/
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)

 Dim Myarray
 Myarray=Split(sRect,"|")
ux = Clng(Myarray(0))
uy = Clng(Myarray(1))

Rem 走路
Call 加血()
IfColor 528+ux,22+uy,"1D97F7",0 Then
Call 战斗()
End If
MoveTo 357+ux, 545+uy
Delay 500
LeftClick 1
Delay 1000
MoveTo 722+ux,64+uy
Delay 500
LeftClick 1
Delay 1000
Goto 走路
Sub 战斗()
TracePrint "进入战斗"
    Delay 500
    IfColor 965+ux,523+uy,"394E6",1 Then
    Goto 走路
Else
End If
Rem 指令操作

 KeyDown 18, 1
KeyPress 81, 1
KeyUp 18, 1
KeyDown 18, 1
KeyPress 81, 1
KeyUp 18, 1

Call 战斗()
End Sub
Sub 加血()
//TracePrint "加血"
IfColor 840+ux,14+uy,"B00D9",1 Then
MoveTo  840+ux,14+uy
RightClick 1

End If

    IfColor 1002+ux,15+uy,"B00D9",1 Then
    MoveTo 1002+ux, 15+uy
        RightClick 1
End If
    IfColor 852+ux,26+uy,"D75A03",1 Then
    MoveTo 852+ux, 26+uy
        RightClick 1
End If
    IfColor 983+ux,28+uy,"D95D00",1 Then
    MoveTo 983+ux, 28+uy
        RightClick 1
End If
End Sub