Cómo usar vb para enviar información a qq

Función de declaración privada FindWindow Lib "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) siempre que

Función de declaración privada FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String、

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hwnd Mientras, ByVal wMsg Mientras, ByVal wParam Mientras, lParam Como Cualquiera) Mientras

Declaración privada Sub Sleep Lib "kernel32" (ByVal dwMillisegundos mientras)

Const privada WM_GETTEXT = & HD

Const privada EM_REPLACESEL = &HC2

Const privada BM_CLICK = &HF5

Función privada GetWinText( ByVal WinHwnd As Long) String

Dim lLen As Long

GetWinText = String(255, Chr(0))

lLen = SendMessage(WinHwnd, WM_GETTEXT, Len( GetWinText), ByVal GetWinText)

GetWinText = Left(GetWinText, lLen)

Función final

Subcomando privado1_Click()

En caso de error Ir a ErrorHandler

Dim HFindWnd As Long

Dim QQHwnd As Long, AHwnd As Long, THwnd As Long, RHwnd As Long

List1..Caption = "Obteniendo el envío lista, espere..."

HFindWnd = FindWindowEx(0, 0, "#32770", vbNullString)

Hacer mientras HFindWnd <> 0

Si InStr(GetWinText(HFindWnd), "Chat en curso") & gt; o InStr(GetWinText(HFindWnd), " - ") > GetWinText(HFindWnd), "En conversación") > 0 o InStr(GetWinT

text(HFindWnd), "Inputting") > 0 o InStr(GetWinText(HFindWnd), " - ") > 0 entonces

List1.AddItem GetWinText( HFindWnd)

End If

HFindWnd = FindWindowEx(0, HFindWnd, "#32770", vbNullString)

DoEvents

Bucle

Si List1.ListCount = 0 Entonces

Me.Caption = "No se puede obtener la lista de ventanas de mensajes QQ"

Salir de Sub

Fin si

Me.Caption = "Obteniendo lista de envío completa"

Sleep (500)

Me.Caption = "Enviando ventanas de mensajes QQ"

Me.Caption = "Obteniendo lista de envío completo"

Sleep (500)Caption = "Enviando mensaje QQ, espere..."