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

来源：百度知道 编辑：UC知道 时间：2024/06/10 08:10:32
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 Long

Private 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

是QQ2008我也获取不到啊 郁闷 谁解答下
答得

SetText不可以就一个个打字进去啊- -
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Const WM_SETTEXT = &HC
Const WM_CHAR = &H102
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 Long
Private