closewindowbyhwnd.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 10 行

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Const WM_CLOSE = &H10
Const WM_DESTROY = &H2

Public Sub CloseWindowByhWnd(hwnd As Long)
        PostMessage hwnd, WM_CLOSE, 0, 0
        PostMessage hwnd, WM_DESTROY, 0, 0
End Sub