关于Postmessage发送信息失败的问题
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]]