#By Doddy H
use Win32::OLE;
sub speak {
my $habla = Win32::OLE->new("SAPI.SpVoice");
$habla->Speak($_[0],0);
}
Ejemplo de uso speak("Hi brother");
#By Doddy H
use Win32::OLE;
sub speak {
my $habla = Win32::OLE->new("SAPI.SpVoice");
$habla->Speak($_[0],0);
}
Ejemplo de uso speak("Hi brother");
Volver a “Otros lenguajes de Scripting”