¿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
华=华四
p>Llamar a FaSongXiaoXi()
Retraso de Yanshi
Hua = Hua5
Llamar a FaSongXiaoXi()
Delay Yanshi
p>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 p>
- ---- ------------------------------------- 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