Autoit.ES

Publicado: **21 Feb 2011, 17:31**

AutorespondedorSkype.zip: Iniciar con AutorespondedorSkype; (1.12 MiB) Descargado 314 veces

Este es un programa que muestra como reutilizar los programas que ya estén funcionando.
En este caso es un programa que nos avisa con VOZ y sonido que alguien se ha conectado en el messenger:

En este caso he usado un programa de Dimio, (Dspeech) y lo único que hace es escribir el texto que se va a pronunciar en el programa y leerlo. http://dimio.altervista.org/eng/ y español http://www.freedownloadmanager.org/es/d ... h_35883_p/

Está funcionando completo con fuentes y Dspeech en Español (También hay versión de Valenciano y Catalán en la web del autor)

Guardar en una carpeta y Ejecutar AutorespondedorDeSkype.exe, y el espera al lado del reloj, a que alguien llame en el SKYPE para responder.
Indicado para cualquiera y dedicado en especial para personas con discapacidades o problemas de movilidad que tienen dificultad al usar el ordenador o el telefono normal y pueden usar la telefonía de SKYPE.

Código: Seleccionar todo

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=AutorespondedorSkype.ico
#AutoIt3Wrapper_Res_Comment=Autoit.es - BasicOs
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1034
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("WinTitleMatchMode", 4) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
; Creditos BasicOs - www.Autoit.es y a Dimio Home: "http://dimio.altervista.org/"
TrayTip("Está Activado el Autorespondedor de Skype ","www.Autoit.es",0)
While 1
	If WinWait("[CLASS:TCallNotificationWindow]", "") Then ;espera que llame el Skype
		;WinClose("[CLASS:TCallNotificationWindow]", "") ; PUEDE cerrarse la ventana
		WinMove("[CLASS:TCallNotificationWindow]", "",0,0)
		Opt("Trayicondebug", 1)
		If Not ProcessExists("DSpeech.exe") Then Run("D:\DSpeech\DSpeech.exe")
		WinActivate("DSpeech (By Dimio)")
		WinWaitActive("DSpeech (By Dimio)")
		Sleep(500)
		ControlFocus("DSpeech (By Dimio)", "","ThunderRT6TextBox3")
		ControlSetText("DSpeech (By Dimio)", "","ThunderRT6TextBox3","Telephone" & @CRLF & '#PLAY "D:\Dspeech\chiquitoHablando.wav"')
		Sleep(200)
		ControlClick("DSpeech (By Dimio)", "", "ThunderRT6CommandButton6")
		While  1
			Sleep(3000)
			if ControlGetText("DSpeech (By Dimio)", "", "ThunderRT6CommandButton6") = "Leer." Then
				sleep(3000)
				if ControlGetText("DSpeech (By Dimio)", "", "ThunderRT6CommandButton6") = "Leer." Then   ExitLoop
			endif
		WEnd
		ControlSetText("DSpeech (By Dimio)", "","ThunderRT6TextBox3","")
		WinClose("DSpeech (By Dimio)","")
		MouseClick("left",92,48) ; descuelga el tfno
	EndIf
	Sleep(500)
WEnd
Exit

Codigo fuente de LGPL, de uso abierto y libre.

Personalización:
Se puede cambiar el archivo chiquitohablando.wav.

Para mejorar las voces por defecto que trae el PC en Español, se pueden añadir voces adicionales para usar la lectura en voz de textos con pronunciación en español.

Salu22:)
PD: Curiosamente el DSpeech y los otros programas del autor usan el mismo sistema de INTERFACE que Autoit, puede que estén programados en Autoit, el autor dice que no graba nada en el REGISTRO con sus programas. También se puede hacer con las funciones de voz del sistema, pero lo hice así para demostrar el uso sencillo de programas externos en plan pegamento rápido entre programas y el Windows.

Salu22:)

Autoit.ES

Autorespondedor SKYPE - Avisador que habla

Autorespondedor SKYPE - Avisador que habla