MiniContestador Autorespondedor para Msn Messenger

[Dbase3]

Código: Seleccionar todo

; Author: Basicos de www.autoit.es Ejemplito de mini contestador
; cambiar el mensaje de respuesta al gusto
;para salir al lado del reloj cerrar 
Opt("WinTitleMatchMode", 2)
$sRespuesta = "No estoy en el PC, pero amenazo volver, ciao"
While 1
 if WinExists("Conversa") then 
   WinActivate("Conversa")
   Send($sRespuesta&"{ENTER}")
   Winclose("Conversa")
 endif
 Sleep(10000)
Wend
exit

;También se puede usar ControlSend("", "", "DirectUIHWND1", "")

[Rupert.25]

Me gusta el programa, veré que puedo hacer para utilizarlo.

Excelente idea, muchas gracias!

[gna08]

jejej es interesante revivir post antioguos.. sobre todo si tiene 4 años de antiguedad
ajaj xD

[Rupert.25]

jaja es verdad no lo había notado. Sin embargo mi buen amigo, las buenas ideas nunca caducan, solo se renuevan

¿No crees?

[gna08]

es cierto es cierto..

[Beaker]

hola, pues soy nuevo en el foro y tambien en autoit, pero hago este pequeño aporte o modificacion del mini-contestador, solo agrege un InputBox en el que se podra cambiar el texto a enviar como autorespuesta, asi ya no se tiene que estar compilando con un nuevo mensaje espero que no les moleste, aqui el codigo:

Código: Seleccionar todo

; Author: Basicos de www.autoit.es Ejemplito de mini contestador
; cambiar el mensaje de respuesta al gusto
;para salir al lado del reloj cerrar 
;mini-modificacion por Beaker
  

 Opt("WinTitleMatchMode", 2)
$sRespuesta = InputBox("Mini-Contestador Para MSN" , "Mensaje:" , "Escriba lo que desee autoresponder" , "" , 270 , 50)
While 1
if WinExists("Conversa") then 
   WinActivate("Conversa")
   Send($sRespuesta&"{ENTER}")
   Winclose("Conversa")
endif
Sleep(10000)
Wend

saludos

[gna08]

Bueno, ya que estamos, le agregamos mas mejoras.. como por ejemplo guardar el texto en un ini por si acaso siempre es lo mismo, para no tener que escribir siempre lo mismo y aplicar lo de ControlSend, corregido el tema de las ventanas, (reemplzado por el class :O y cuenta las ventanas que respondio,, agregada la tecla ESC para salir,, cuando sale muestra la cantidad de vetnanas donde se le respondio ..
detalles nomas..

Código: Seleccionar todo

; Author: Basicos de http://www.autoit.es Ejemplito de mini contestador
; cambiar el mensaje de respuesta al gusto
;mini-modificacion por Beaker
;modificacion por Gna08 xD
#NoTrayIcon

HotKeySet("{esc}", "salir")

Opt("WinTitleMatchMode", 2)
$ini = IniRead("Datos.ini", "info", "texto", "No estoy aqui... regreso luego")
$sRespuesta = InputBox("Mini-Contestador Para MSN" , "Mensaje:" , $ini,  "" , 270 , 50)
IniWrite("Datos.ini", "info", "texto", $sRespuesta)

$count = 0
While 1
	if WinExists("[Class:IMWindowClass]") then
		ControlSend("[Class:IMWindowClass]", "", "DirectUIHWND2", $sRespuesta & "{ENTER}")
		Winclose("[Class:IMWindowClass]")
		$count = $count + 1
	endif
	Sleep(1000)
Wend

Func salir()
	MsgBox(64, "Listo", "Cantidad de ventanas respuestas: " & $count)
	Exit
EndFunc

[Beaker]

tambien intente eso de poner cuantas ventanas habian sido respondidas, pero era mejor saber que decian completamente, es decir, el nick del usuario (como se pone en el titulo de la ventana) y guardarlo en un txt como si fuese un log.... pero no lo logre

saludos y buena modificacion gna08