截取鼠标处窗口句柄脚本

截取鼠标处窗口句柄脚本

运行环境：分辨率：1360x768 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.4148

@hapychina    2009/4/26

MessageBox "截取句柄脚本已起动!按空格键截取,按ESC键暂停!"  
Gosub jubing  
Rem mymain  
While 1  
    WaitKey ukey  
    If ukey = 27  
        MessageBox "按空格键截取,按ESC键停止!"  
        Gosub jubing  
    EndIf   
EndWhile   
Sub jubing  
    While 1  
        WaitKey x  
        If x = 32  
            //下面这句是得到鼠标指向的窗口句柄  
            Plugin Hwnd = Window.MousePoint()  
            MessageBox "句柄:"&Hwnd  
        ElseIf x = 27  
            MessageBox "已停止截取句柄!按ESC键可以重新开始!"  
            Goto mymain  
        EndIf   
    EndWhile  
Return