Cómo usar VB para enviar mensajes a una ventana QQ abierta

Declarar función FindWindowExA Lib "user32" (ByVal Hwnd1 como largo, ByVal Hwnd2 como largo, _

ByVal lpsz1 como cadena, ByVal lpsz2 como cadena) como largo

Declarar Función SendMessageA Lib "user32" (ByVal Hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As Long

Declarar función GetWindowTextA Lib "user32" (ByVal Hwnd As Long, ByVal lpString As String, _

ByVal cch As Long) As Long

Const EM_ REPLACESEL = amp HC2

Const BM_CLICK = amp HF5

Sub Test()

Atenuar Hwnd mientras

Atenuar título como cadena

Hwnd = FindWindowExA(0, 0 , "#32770", vbNullString)

Hacer mientras Hwnd gt 0

Hwnd = FindWindowExA(0amp; Hwnd, "#32770", vbNullString)

Título = Espacio(255)

GetWindowTextA Hwnd, Título, 256

Si (Título como "*En el chat*") O (Título como "*Grupo*") O (Título Como "*En sesión*") Luego

Enviar mensaje principal, "Grupo de mensajes QQ"

Finalizar si

Bucle

End Sub

Función EnviarMsg(Hwnd As Long, Meg As String)

Atenuar Hwnd1 As Long

Atenuar Hwnd2 As Long

Hwnd1 = FindWindowExA (Hwnd, 0, "#32770", vbNullString)

Hwnd2 = FindWindowExA(Hwnd1, 0, "Botón", "Enviar(S)")

Hwnd1 = FindWindowExA(Hwnd1 , Hwnd2, "AfxWnd42", vbNullString)

Hwnd1 = FindWindowExA(Hwnd1, 0, "RichEdit", vbNullString)

SendMessageA Hwnd1, EM_REPLACESEL, 0, ByVal Meg

Enviar mensaje

A Hwnd2, BM_CLICK, 0, ByVal 0

Función final