关于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不是很了解，帮解决一下
[ 本帖最后由 我是菜鸟哦 于 2008-9-13 08:32 编辑 ]
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不是很了解，帮解决一下
[ 本帖最后由 我是菜鸟哦 于 2008-9-13 08:32 编辑 ]
搜索更多相关主题的帖子:
Postmessage 失败
2008-9-13 08:31
