Página 1 de 1
MiniContestador Autorespondedor para Msn Messenger
Publicado: 11 Dic 2006, 04:18
por 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", "")
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 21 May 2010, 04:59
por Rupert.25
Me gusta el programa, veré que puedo hacer para utilizarlo.
Excelente idea, muchas gracias!
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 16 Jun 2010, 04:12
por gna08
jejej es interesante revivir post antioguos.. sobre todo si tiene 4 años de antiguedad
ajaj xD
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 16 Jun 2010, 04:30
por 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?
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 16 Jun 2010, 04:33
por gna08
es cierto es cierto..
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 10 Jul 2010, 23:42
por 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
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 11 Jul 2010, 00:54
por 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
Re: MiniContestador Autorespondedor para Msn Messenger
Publicado: 11 Jul 2010, 01:03
por 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
