VB的一个问题,进来看下~

来源：百度知道 编辑：UC知道 时间：2024/05/11 04:58:12
怎么写VB能实现在已经打开的一个QQ聊天窗口里输入一段文字如"你好啊!"

高手帮忙写下代码,不需要发送出去,只需要在聊天窗口里输入就可以了.
听说要取得聊天窗口句柄,然后在往里面添加内容的,希望高手写详细点.

VB得到当前工作窗体，判断标题是否含有与**对话中
如果是就将这个句柄搜索子窗体，找到文本框，发送消息过去

给你一个参考：

Private 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 Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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

Private Function FindControlHwnd(ByVal nHwnd As Long, ByVal findStr As String) As Long
Dim fHwnd As Long, myStr As String, sHwnd