VB用API获取不到QQ聊天窗口的输入框？

不知道怎么回事 不管怎么样都获取不到QQ聊天窗口的输入框的柄句 大家先看下我代码 Const WM_SETTEXT = &HC
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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Sub Command1_Click()
Dim tmp As Long
Dim t1 As Long
Dim t2 As Long
tmp = FindWindow("#32770", "与 XX 交谈中")
t1 = FindWindowEx(tmp, 0, "AfxWnd42", "")
t2 = FindWindowEx(t1 , 0 , "RichEdit20A","")
Text1.Text = t2
SendMessage t2, WM_SETTEXT, 0, ByVal "Hello!"
End Sub这段代码返回的是0 不知道怎么回事啊 我弄了许久也没弄好 所以来请教大家乐