setwindowtext
想做个QQ自动聊天器,可是遇到困难。。 为了方便大家,特意把代码简化,下面是出现错误的地方:

其中在设置消息框里面的消息时遇到问题：

n=setwindowtext( QQ消息框句柄, "要设置的消息 ")
msgbox n

N的返回值为1 ,可是QQ的发送消息框并没有任何待 发送的消息,请问,是不是不应该使用这个函数来设置QQ发送消息框里面的内容呢?
请问上面的程序错误的地方在哪里,谢谢!
QQ消息框句柄没有错误。

[解决办法]
//用sendkeys只能发送按键消息,照您的说法,是要我发送那些字母的按键啊

你的理解有误,它发送的是字串

//n = SendMessage(文本框句柄, WM_SETTEXT, 0, "hell! ")
MsgBox n
n的返回值为1,可是QQ文本框里根本没有反应。。。

修改为:
n = SendMessage(文本框句柄, WM_SETTEXT, 0, byval "hell! ")
MsgBox n
试试
[解决办法]
找到原因了，QQ用的不是Edit而是RichEdit.

Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA " (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const EM_SETSEL = &HB1
Private Const EM_REPLACESEL = &HC2

Dim s As String

s = "hello world "

SendMessage h, EM_SETSEL, 0, -1
SendMessage h, EM_REPLACESEL, 0, ByVal s