原文: 获取弹出式窗口(对话框)句柄 http://www.vbgood.com/thread-103057-1-1.html 昨天遇到了这个问题;碰巧今天在MSDN上看到了这方面的内容,记录下。 假设要获取 Notepad 的弹出消息框,那么可以这样做: Public Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Const GW_CHILD = 5 Public Const GW_HWNDFIRST = 0 Public Const GW_HWNDLAST = 1 Public Const GW_HWNDNEXT = 2 Public Const GW_HWNDPREV = 3 Public Const GW_OWNER = 4 Public Const GW_ENABLEDPOPUP = 6 Public Declare Function GetLastActivePopup Lib "user32" (ByVal hwndOwnder As Long) As Long Public hNotepad As Long, hPopup As Long '===========&