Dica - Converter Texto em Voz - parte 2

💸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
Dim vozes

Set AirdropsQBfala = CreateObject("SAPI.spVoice")
Set AirdropsQBgeraWav = CreateObject("SAPI.SpFileStream")

vozes = ""

for lista = 0 to AirdropsQBfala.GetVoices.Count - 1
vozes = vozes & Chr(13) & Chr(10) & lista & ": "& AirdropsQBfala.GetVoices.Item(lista).GetDescription
vozes = left(vozes,inStr(1,vozes,"-",vbTextCompare)-1)
next

voz = Inputbox(vozes, "Escolha seu narrador!"& Chr(13) & Chr(10))
Set AirdropsQBfala.Voice = AirdropsQBfala.GetVoices.Item(voz)

AirdropsQBgeraWav.Format.Type = SAFT48kHz16BitStereo
AirdropsQBgeraWav.Open "Ssdfsdfsdf.wav", SSFMCreateForWrite
Set AirdropsQbfala.AudioOutputStream = AirdropsQBgeraWav
AirdropsQBfala.Speak curtaocanal

💸Script Final
__________________________
Descubra o novo: https://bit.ly/3w8QHEl
VaporFi rede AVAX ROI 1%: https://bit.ly/38nqGYE
Planilha Listão do #AirdropsQB: https://bit.ly/2SnU0Tg
Hideout pagando pra assistir videos: https://bit.ly/3w9dj6b
Rumble: https://bit.ly/3E9ttAh sincronize seu canal do Youtube com o Rumble
Me chame e solicite para adicionar seu canal no meu app de videos, divulgue
e veja o lucro acontecer!
__________________________
Recarregue seu pré com 10% de desconto: https://bit.ly/3Kuw09L Code Promo: xc32880979
__________________________
Pense em Faucets faceis
PipeFlare (ZEN): https://bit.ly/3rBiHyp
GlobalHive (ZEN): https://bit.ly/3pCCJ8L
Horizen (ZEC): https://bit.ly/3x9CaG9
Faucet App: XRP: https://cb.run/e5ev
Stormgain (BTC): https://bit.ly/2WExNmJ
Coinmarketcap (NFT) : https://bit.ly/30oNfbq
__________________________
👉 Exchange’s que indico:
Binance: https://bit.ly/3DucLu6 - https://bit.ly/3LFh7mj
Latoken: https://bit.ly/3qgX6rd
GateIo: https://bit.ly/GateioQb
Cubo, aplicativo Windows para minerar, minere monero. https://bit.ly/3DnhDBn
__________________________
Se der a louca, doem!
BEP20/ERC20 0x0Bb3A1517624Ff45186Df879E9292f67750F8EB0
TRON: THbS5jTwp4rA4GmeUNjyWmkGuua5xD5Zhf
Compre Ações Americanas na Uphold: https://bit.ly/3yOExjK
__________________________
Aplicativos de renda passiva como o Earnapp, são aplicativos que você empresta de 10 até 15% da sua banda de upload para uma empresa, para que ela possa criar uma rede de anúncios, em troca disso ela te paga por giga utilizado, a taxa de 10% é calculado na velocidade que você faz de download (assistir videos) X a velocidade de sua internet: https://cb.run/9v9b

Join Cloud Earning FONE!
Download Now: https://play.google.com/store/apps/details?id=com.cloud.earning
Sign up now and get 200 FONE Bonus.
Use my code and claim your bonus: jts78xy5

Whatsap: https://bit.ly/317JtjK

Att: @AirdropsQb

__________________________
Você não tem grana para uma placa de vídeo top!
Minere monero pelo PC com o cubo usando CPU ao invés de GPU ou HDD.
Faça o teste de 1 mês, mesmo com a grande queda do monero, ele ainda vale mais que R$ 1.000 reais.
https://bit.ly/3DnhDBn