Enviar texto al Chat. (Ejemplo para principiantes)

y programas personales para otros como tu, puede que te corrijan ;)
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2091
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Enviar texto al Chat. (Ejemplo para principiantes)

Mensaje por BasicOs »

Un ejemplo didáctico del uso del HotKeySet(), del send() y sleep()
Estando en alguna aplicación donde haya que enviar texto, donde haya control de como se mete el texto.
Al pulsar Alt a se envia el texto, con unas pausas simulando esperas entre 0,2 y 0,8 segundos para que no se envie todo de golpe.

Código: Seleccionar todo

;Creamos las teclas rápidas para activar alt a ,y para salir alt q
HotKeySet("!a","envia")
HotKeySet("!q","SALIR")
; El programa se mantiene en memoria a la espera de llamar a las funciones
While 1
	Sleep(1000)
Wend

; se envian los textos con esperas de sleep() aleatorias
Func envia()
$texto1="hola"
$texto2="como estas?"
$texto3="quería decirte esto"
	Send($texto1)
	Sleep(Random(200,800))
	Send($texto2)
	Sleep(Random(200,800))
	Send($texto3)
EndFunc

;Salir
Func SALIR()
	Exit 0
EndFunc
Salu22:)
Responder