Jak ve Windows převést text na řeč

V tomto článku vám ukážeme, jak ve Windows převést text na řeč. Jednoduše si vyrobíte převaděč textu na řeč skriptem v poznámkovém bloku. Nevýhoda tohoto prográmku je že s češtinou má veliké problémy. Anglické texty ale zvládá bravurně.

Jak ve Windows převést text na řeč:

1. Vytvořte nový textový soubor
2. Otevřete jej a vložte do něj tento kód
   • Dim message, sapi
     message=InputBox("Co chcete abych rekl?","Mluv na me")
     Set sapi=CreateObject("sapi.spvoice")
     sapi.Speak message
3. Běžte do Soubor > Uložit jako..
4. Pojmenujte soubor jakkoliv chcete a dejte mu koncovku .vbs
5. Otevřete vytvořený soubor
6. Zadejte do pole jakýkoliv text a potvrďte OK, Windows vám text přečte