Question

vb里用PostMessage模拟鼠标关闭句柄为me.hwnd的窗口

我怎么写都关不了。

Answer 1

标准模块里：
Public 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

Public Const WM_SYSCOMMAND = &H112

Public Const SC_CLOSE = &HF060&

Form1里：

Private Sub Command1_Click()

PostMessage Me.hwnd, WM_SYSCOMMAND, SC_CLOSE, 0

End Sub

参考http://blog.csdn.net/subo86/archive/2009/02/03/3860096.aspx