@CanalQb

CanalQb - VBS - Dica - Converter Texto em Voz Parte 1


Facilmente, crie um arquivo vbs. e cole este script dentro.

Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3

Dim message, Canal Qbfala, Canal QbgeraWav
curtaocanal = InputBox("Conversor de texto para áudio")

Set Canal QbgeraWav = CreateObject("SAPI.SpFileStream")
Canal QbgeraWav.Open "C:\a\Sample.wav", SSFMCreateForWrite

Set Canal Qbfala=CreateObject("SAPI.spvoice")
Set Canal Qbfala.AudioOutputStream = Canal QbgeraWav
Canal Qbfala.Speak curtaocanal

Link para download das vozes: https://www.upload-4ever.com/e4zbk5g8sjzi

💸Script -- Inicio

Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")

Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")

\ Read file

Dim strRetVal : strRetVal = inFile.ReadAll

curtaocanal = strRetVal

inFile.Close

Const SAFT48kHz16BitStereo = 39

Const SSFMCreateForWrite = 3

Dim message, AirdropsQbfala, AirdropsQBgeraWav

Set AirdropsQBgeraWav = CreateObject("SAPI.SpFileStream")

AirdropsQBgeraWav.Open "Sample.wav", SSFMCreateForWrite

Set AirdropsQbfala=CreateObject("SAPI.spvoice")

Set AirdropsQbfala.AudioOutputStream = AirdropsQBgeraWav

AirdropsQbfala.Speak curtaocanal

💸Script -- Final


CanalQb