¿Cómo utilizar Key Genie para enviar mensajes QQ grupales?

UserVar Hua1="La primera oración ha sido enviada"

UserVar Hua2="La segunda oración ha sido enviada"

UserVar Hua3 = "La tercera oración ha sido enviada"

UserVar Hua4="La cuarta oración ha sido enviada"

UserVar Hua5="La quinta oración ha sido enviada"

UserVar Yanshi =1000 "El intervalo de tiempo entre el envío de dos oraciones, el 1000 predeterminado es 1 segundo"

//Utilice variables para configurar el contenido de la palabra que se enviará

Dim Hua

/ Enviar la primera frase<

Hua = Hua1

Llamar a FaSongXiaoXi()

Retraso Yanshi

/ Envía la segunda oración En una oración, igual que a continuación

Hua = Hua2

Llamar a FaSongXiaoXi()

Delay Yanshi

Hua = Hua3

Llamar a FaSongXiaoXi()

Retrasar a Yanshi

/Enviar segunda frase.

Retrasar a Yanshi

华=华四

Llamar a FaSongXiaoXi()

Retraso de Yanshi

Hua = Hua5

Llamar a FaSongXiaoXi()

Delay Yanshi

EndScript

//Subrutina para enviar mensajes

Sub FaSongXiaoXi()

Complete las palabras a enviar

SayString Hua

Delay 100

//Presione la tecla de acceso rápido Alt S para enviar mensaje QQ, enviado exitosamente

KeyDown 18, 1

KeyPress 83, 1

KeyUp 18, 1

End Sub

- ---- ------------------------------------- Arriba hay un ejemplo--------- ----------------------------------------

Aquí estoy yo. El envío del grupo QQ que escribí antes se basó en TM. Olvidé la versión de TM. Puedes consultarlo:

Registro de llamadas

. iFirst = true

hwnds = dm.EnumWindow(0, "", "TXGuiFoundation", 2 4 8 16) //Obtener el identificador del grupo Q

Llamar a checkQQ //Verificar si el grupo Q se ha abierto y si solo hay un grupo Q abierto

/dm_ret = dm.SetWindowState(hwnds, 12) //Activar ventana

dm_ret = dm.BindWindow( hwnds, 12) //Activar ventana

/dm_ret=dm.BindWindow(hwnds, 12).

BindWindow(hwnds, "gdi", "windows", "windows", 0) //Vincular ventana

Llamar a Plugin.Window.Size(hwnds, 600, 520) //Establecer resolución de ventana

Retraso 500

dm.MoveTo 275, 60 Si hwnd = AtlHwnd entonces

TracePrint "Error 002"

TracePrint hwnd amp " ：" amp.

Retraso 2000

Ir a uno

Si no

Si iFirst = true Entonces

Llame al complemento. Window.Size(hwnd, 540, 492) //Establecer resolución de ventana

iFirst = false

Finalizar si

Retraso 100

KeyDown 17, 1 // ctrl v pegar

KeyPress 86, 1

KeyUp 17, 1

Delay 800

KeyDown 18, 1 // art s enviar