Question

你好我隐藏运行了一个程序（Shell "c:\2345.exe", vbHide ）然后找到了隐藏窗口的句柄和窗口里按钮的句柄

接上边……我想用SENDMESSAGE给这个按钮发个WM_CHAR但是没有成功，请问你后什么好办法吗？
psotmessage(按钮句柄,245,0,0)和sendmessage(按钮句柄,245,0,0)都用过了，就是没反应，但是sendmessage(父窗口句柄,16,0,0)可以关闭隐藏的父窗口

Answer 1

sendmessage这样试试
Const WM_SETTEXT = &HC
SendMessage hwnd, WM_SETTEXT, 0, ByVal lpstr
最后参数lpstr里存放被发送的字符串，若失败，去掉ByVal重试

追问

谢谢！我是要向这个按钮发送按键245去按这个按钮，不是文本。

追答

PostMessage hwnd，WM_KEYDOWN，VK_A，0 '按下A键
PostMessage hwnd，WM_UP，VK_A，0 '释放A键
SendMessage和PostMessage 的第二个参数不是你那样用的，而且不同信息参数值不同，有很多类型

追问

谢谢啊，还是不行。

追答

看到你的问题补充就知道你根本不会用这俩函数，建议你查查MSDN或其他相关资料详细了解其各个参数含义及用法，尤其是PostMessage 的某些参数需要特殊构造出来，并非像你那样随意的用。psotmessage(按钮句柄,245,0,0)这样的用法更是让人费解，如果是模拟按下245键，也是声明常量后，一个起一个落6条语句

追问

请问
If IsUnicode(hWnd) Then
PostMessage hWnd, WM_CHAR, AscW(字符), 0
Else
PostMessage hWnd, WM_CHAR, Asc(字符), 0
end if
AscW(字符)或者Asc(字符)中的字符怎么取，是取控件的名称还是类名还是别的什么

追答

都不是。
如果你要对某控件发送消息，那么第一个参数为指定目标控件句柄，控件和窗口一样是有句柄的，而且相对独立。此函数第一个参数，表明句柄，是一long型数据，不管目标是窗口还是窗口的控件，你只要想办法获取即可。
WM_CHAR指定发送消息类型，那么第三个参数就是消息内容，这里需要字节型数据，即先把字符型数据转换成byte数组，再发送。

Sub setQQText(ByVal fhwnd As Long, ByVal mystr As String)
' 向聊天窗口的文本框写入消息。fhwnd 是那个文本框的句柄，mystr 是你要写入的消息
Dim mydata() As Byte, i As Long, tmp_k As Long
i = 0
mydata = StrConv(mystr, vbFromUnicode)
tmp_k = UBound(mydata)
While i <= tmp_k
If mydata(i) < 128 Then
PostMessage fhwnd, WM_CHAR, mydata(i), 0&
i = i + 1
Else
PostMessage fhwnd, WM_CHAR, mydata(i), 0&
PostMessage fhwnd, WM_CHAR, mydata(i + 1), 0&
i = i + 2
End If
Wend
End Sub