Leer artículos de la Wikipedia mediante la voz del Sistema Operativo con PowerShell

Add-Type -AssemblyName System.Speech
$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer
$synthesizer.SelectVoice("Microsoft Zira Desktop")
$synthesizer.Rate=0

$json=Invoke-WebRequest -Uri 'https://en.wikipedia.org/w/api.php?action=parse&format=json&prop=text&page=PowerShell' | ConvertFrom-JSON
 
$json.parse.text.'*' -replace "<.*?>" | %{
$synthesizer.Speak($_)
}

Add-Type -AssemblyName System.Speech

$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer

$synthesizer.SelectVoice("Microsoft Zira Desktop")

$synthesizer.Rate=0

$json=Invoke-WebRequest -Uri 'https://en.wikipedia.org/w/api.php?action=parse&format=json&prop=text&page=PowerShell' | ConvertFrom-JSON

$json.parse.text.'*' -replace "<.*?>" | %{

$synthesizer.Speak($_)

}

Enviar un mensaje entre dos equipos utilizando sockets UDP (el mensaje se envía en modo texto y el servidor lo reproduce mediante la voz del Sistema Operativo)

Cliente

##Client
$port=2020
$endpoint = new-object System.Net.IPEndPoint ([IPAddress]::Loopback,$port)
$udpclient=new-Object System.Net.Sockets.UdpClient
$b=[Text.Encoding]::ASCII.GetBytes('Hola')
$bytesSent=$udpclient.Send($b,$b.length,$endpoint)
$udpclient.Close()

##Client

$port=2020

$endpoint = new-object System.Net.IPEndPoint ([IPAddress]::Loopback,$port)

$udpclient=new-Object System.Net.Sockets.UdpClient

$b=[Text.Encoding]::ASCII.GetBytes('Hola')

$bytesSent=$udpclient.Send($b,$b.length,$endpoint)

$udpclient.Close()

Servidor

##Server
$port=2020
$endpoint = new-object System.Net.IPEndPoint ([IPAddress]::Any,$port)
$udpclient=new-Object System.Net.Sockets.UdpClient $port
$content=$udpclient.Receive([ref]$endpoint)
$udpclient.Close()

$sam = New-Object -comObject SAPI.SpVoice
$sam.Speak([Text.Encoding]::ASCII.GetString($content))

##Server

$port=2020

$endpoint = new-object System.Net.IPEndPoint ([IPAddress]::Any,$port)

$udpclient=new-Object System.Net.Sockets.UdpClient $port

$content=$udpclient.Receive([ref]$endpoint)

$udpclient.Close()

$sam = New-Object -comObject SAPI.SpVoice

$sam.Speak([Text.Encoding]::ASCII.GetString($content))

Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo

Add-Type -AssemblyName System.Speech
 
gc E:\aleer\fichero.txt | %{
$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer
$_
#Establece la velocidad de habla de la SpeechSynthesizer
$synthesizer.Rate=0
$synthesizer.Speak($_)
}

Add-Type -AssemblyName System.Speech

gc E:\aleer\fichero.txt | %{

$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer

#Establece la velocidad de habla de la SpeechSynthesizer

$synthesizer.Rate=0

$synthesizer.Speak($_)

}

Leer palabras de un fichero y almacenar cada palabra en un fichero de audio mediante la voz del Sistema Operativo

Add-Type -AssemblyName System.Speech

gc .\palabras.txt | %{
$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer
$path = "E:\"+$_+".mp3"
$synthesizer.SetOutputToWaveFile($path)
$synthesizer.Speak($_)
$synthesizer.SetOutputToDefaultAudioDevice()
}

Add-Type -AssemblyName System.Speech

gc .\palabras.txt | %{

$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer

$path = "E:\"+$_+".mp3"

$synthesizer.SetOutputToWaveFile($path)

$synthesizer.Speak($_)

$synthesizer.SetOutputToDefaultAudioDevice()

}

Leer palabras mediante la voz del Sistema Operativo

Add-Type -AssemblyName System.Speech
 
"hola","casa" | %{
$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer
$_
#Establece la velocidad de habla de la SpeechSynthesizer
$synthesizer.Rate=0
$synthesizer.Speak($_)
}

Add-Type -AssemblyName System.Speech

"hola","casa" | %{

$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer

#Establece la velocidad de habla de la SpeechSynthesizer

$synthesizer.Rate=0

$synthesizer.Speak($_)

}

Convertir un texto en un fichero WAV

[void][reflection.assembly]::loadwithpartialname(‘system.speech’)
$speech = New-Object System.Speech.Synthesis.SpeechSynthesizer
$saludo= "hola, hola"
#$cierre="adiós, adiós"
$speech.SetOutputToWaveFile("d:\holas.wav")
$speech.Speak($saludo)
$speech.SetOutputToDefaultAudioDevice()

[void][reflection.assembly]::loadwithpartialname(‘system.speech’)

$speech = New-Object System.Speech.Synthesis.SpeechSynthesizer

$saludo= "hola, hola"

#$cierre="adiós, adiós"

$speech.SetOutputToWaveFile("d:\holas.wav")

$speech.Speak($saludo)

$speech.SetOutputToDefaultAudioDevice()

Comunicar dos ordenadores mediante la voz del sistema operativo

En uno de los ordenadores (el que emite los mensajes) ejecutamos el siguiente script en PowerShell (Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo):

#Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo
Add-Type -AssemblyName System.Speech
 
gc E:\aleer\fichero.txt | %{
$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer
$_
#Establece la velocidad de habla de la SpeechSynthesizer
$synthesizer.Rate=0
$synthesizer.Speak($_)
}

#Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo

Add-Type -AssemblyName System.Speech

gc E:\aleer\fichero.txt | %{

$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer

#Establece la velocidad de habla de la SpeechSynthesizer

$synthesizer.Rate=0

$synthesizer.Speak($_)

}

En el otro ordenador (el que recibe los mensajes) ejecutamos el siguiente script en PowerShell (Convertir la entrada de micrófono a texto):

[void][reflection.assembly]::loadwithpartialname(‘system.speech’)
$rec = New-Object ‘System.Speech.Recognition.SpeechRecognitionEngine’
$rec.LoadGrammar((New-Object ‘System.Speech.Recognition.DictationGrammar’))
$rec.SetInputToDefaultAudioDevice()
 
do
{
$rec.Recognize().Text | Out-File e:\wavtext.txt -Append
}while(1)

[void][reflection.assembly]::loadwithpartialname(‘system.speech’)

$rec = New-Object ‘System.Speech.Recognition.SpeechRecognitionEngine’

$rec.LoadGrammar((New-Object ‘System.Speech.Recognition.DictationGrammar’))

$rec.SetInputToDefaultAudioDevice()

{

$rec.Recognize().Text | Out-File e:\wavtext.txt -Append

}while(1)

Beep function

#Beep function
#Generates simple tones on the speaker
#Beep(Freq,Duration)
#Freq: The frequency of the sound, in hertz
#Duration: The duration of the sound, in milliseconds
#Examples
#250Hz
[System.Console]::Beep(250,3000)
#500Hz
[System.Console]::Beep(500,3000)
#800Hz
[System.Console]::Beep(800,3000)

#Beep function

#Generates simple tones on the speaker

#Beep(Freq,Duration)

#Freq: The frequency of the sound, in hertz

#Duration: The duration of the sound, in milliseconds

#Examples

#250Hz

[System.Console]::Beep(250,3000)

#500Hz

[System.Console]::Beep(500,3000)

#800Hz

[System.Console]::Beep(800,3000)