Private Sub command1_click()
  Dim hw&, cnt&
  a = &H30
  Dim rttitle As String * 256
  hw& = FindWindow("Notepad", vbNullString) ’得到文本句柄
  cnt = GetWindowText(hw&, rttitle, 255)
  MsgBox Left$(rttitle, cnt), 0, "RTMain title"  '显示标题
  PostMessage hw&, WM_SYSKEYDOWN, 115, 1      '发送ALT+F4，先要打开个文本，然后发送关闭信息
end sub

标题显示正确，可是消息没有发送，怎么回事啊（


对POSTMessage不是很了解，帮解决一下

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-13 08:32 编辑 [/it]]

PostMessage hw&, WM_CLOSE, 0, 0
试一下这样

恩，谢谢楼上，目的达到了