viernes, 31 de marzo de 2017

Script vbs para llamar Skype, código con redactor de voz windows

Skype deja algunas entradas de comando cdm (ms-dos), estas estas entradas de comando puede aprovecharse para conectarlos algunos script como este ejemplo, obviamente se debe estar conectado a skype,.

Este sólo es un pequeño ejemplo para mostrar la redacción de voz de windows y el uso de los comando cdm  de skype , no es ningún programa sofisticado ni avanzado. 

'passer Deserto'
Dim num
do
Set wshShell = WScript.CreateObject("Wscript.Shell")
num=inputbox ("¿A quién quieres llamar por skype")
if not num = s then
voz="llamando a"&num 
Set voz2=CreateObject("sapi.spvoice") 
voz2.Speak voz
wshShell.Run "skype.exe /callto:"
wscript.sleep 2000
wshshell.sendkeys ""&num
wscript.sleep 2000
wshshell.sendkeys "~"
wscript.sleep 500
wshshell.sendkeys "~"
wscript.sleep 2000
end if
if   num= s then exit do
loop
voz="¡Hasta luego!"
Set voz2=CreateObject("sapi.spvoice") 
voz2.Speak voz



No hay comentarios:

Publicar un comentario