梦幻诛仙自己点技能优化版 GetKeyFocusWnd 得到可以发送按键消息的窗口

//GetKeyFocusWnd 得到可以发送按键消息的窗口 
//命令功能 获取当前键盘焦点的窗口句柄 
//命令参数 无 
//返 回 值 整数型，窗口句柄 
//可以理解为得到启动游戏的窗口 

//得到当前可以发送按键消息的窗口
Hwnd = Plugin.Window.GetKeyFocusWnd()

//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myarray
Dim x(2)   //选怪坐标放在数组X 和Y里 
Dim y(2)
x(0) = 198
x(1) = 302
x(2) = 405
y(0) = 304
y(1) = 248
y(2) = 186

myarray=Split(sRect,"|")

ux = Clng(myarray(0))
uy = Clng(myarray(1))
// 以上是得到游戏客户端启始坐标的常用方法
Rem 遇敌
Rem 走路
MoveTo 353+ux, 543+uy
Delay 50
LeftClick 1
Delay 500
MoveTo 739+ux, 75+uy
Delay 50
LeftClick 1
Delay 500
Call 吃药()
Call 战斗()

Sub 战斗()
    IfColor 133,37,"C48AC4",0 Then
    Goto 战斗开始
End If
    IfColor 133+ux,37+uy,"C48AC4",1 Then
    Goto 战斗结束
End If
    Rem 战斗等待中
        IfColor 133 + ux, 37 + uy, "C48AC4", 1 Then
        Goto 战斗结束
        End if
    Rem 战斗指令
    i=0      
    For 3  //因为有点个怪所以循 环三次不同的XY来实现三个怪都点击了。
    MoveTo 944+ux, 168+uy
    LeftClick 1
    MoveTo 483+ux, 291+uy
    LeftClick 1
    MoveTo x(i)+ux, x(i)+uy
    LeftClick 1
    KeyDown 18, 1
    KeyPress 65, 1
    KeyUp 18, 1
    
            i = i + 1
    Next
    
            Goto 战斗等待中
Rem 战斗开始
    IfColor 994+ux,223+uy,"4B9CFC",1  Then
    IfColor 996+ux,223+uy,"4B9CFC",1 Then
        Goto 战斗等待中
End If
End If
    Goto 战斗指令
    Rem 战斗结束
    Goto 走路
End Sub
Sub 吃药()
IfColor 856+ux,12+uy,"3B1DE0",1 Then
    MoveTo 856+ux, 12+uy
        RightClick 1
End If

    Delay 500
    IfColor 1009+ux,13+uy,"3B1DE0",1 Then
    MoveTo 1009+ux, 13+uy
        RightClick 1
End If
    Delay 500
    IfColor 856+ux,25+uy,"E06A2B",1 Then
    MoveTo 856+ux, 25+uy
        RightClick 1
End If
    Delay 500
    IfColor 1010+ux,26+uy,"E06A2B",1 Then
    MoveTo 1010+ux, 26+uy
        RightClick 1
End If
    Delay 500
End Sub