十万火急!关于sendmessage
如何用sendmessage将特定文本发送到QQ的消息框中,其类是RICHEDIT,可是我怎么也发不进去,代码如下:
'模块代码
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Const WM_SETTEXT = &HC
'窗体代码
Dim strcontent As String
Dim QQMessageWindowWnd As Long
Dim QQMessageRichEditWnd As Long
QQMessageWindowWnd = GetForegroundWindow()
QQMessageRichEditWnd = FindWindowEx(QQMessageWindowWnd, ByVal 0&, "RICHEDIT", vbNullString)
strcontent = Text1.Text
Call SendMessage(QQMessageRichEditWnd, WM_SETTEXT, 0, ByVal strcontent)
请高手指教