求QQ2006正式输入框的窗口句柄(VB)

来源：百度知道 编辑：UC知道 时间：2024/09/12 21:45:10
我是用在VB上的,试了RichEdit2OA和RichEdit 这两个,都不正确
但是我用窗口句柄查看器,查输入框的,句柄是RichEdit2OA,可是为什么不正确呢??

那么QQ2006正式输入框的窗口句柄到底是什么呢??麻烦大家告诉我.

附上语句
Edit_Hwnd = FindWindowEx(AfxWnd42的窗口句柄语句, 0, "RICHEDIT", "")
If Edit_Hwnd = 0 Then
MsgBox "操作失败3", , "操作失败3"
End If
2.
Edit_Hwnd = FindWindowEx(AfxWnd42的窗口句柄语句, 0, "RICHEDIT20A", "")
If Edit_Hwnd = 0 Then
MsgBox "操作失败3", , "操作失败3"
End If

用这两个都会弹出错误提示,所以这两个应该都不是真正句柄
我要他密码来干什么??
我是问消息输入框句柄,什么密码,不懂装懂

Option Explicit

Private Const WM_CHAR = &H102

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
    Dim hwnd1 As Long
    Dim hwnd2 As Long
    Dim hwnd3 As Long
    Dim hwnd4 As Long
    
    hwnd1 = FindWindow("#32770", "与 鲸无敌 聊天中")
    If hwnd1 <> 0 Then
        hwnd2 = GetDlgItem