Ako prinútiť váš počítač hovoriť/hovoriť to, čo píšete

V systéme Windows je skvelá funkcia, ktorá vám umožňuje, aby váš počítač hovoril alebo hovoril čokoľvek, čo mu poviete! Táto metóda využíva vstavané rozhranie API nainštalované v systémoch Windows XP, Vista, 7, 8 a 10 nazývané SAPI (Speech Application Programming Interface).

Rozhranie Microsoft Speech API je to, čo sa používa pre funkciu zjednodušenia prevodu textu na reč zabudovanú do systému Windows. Môžete tiež napísať programy, ktoré volajú API, čo vám umožní nechať hovoriť vaše aplikácie, ale to je pre vývojárov.

Obsah

• Zadajte text, vyslovte správu
• Nakonfigurujte nastavenia hlasu SAPI
• Naplánovať súbor skriptu

Len prinútiť váš počítač, aby povedal, čo chcete, je v skutočnosti celkom jednoduché! V tomto článku vám ukážem, ako vytvoriť skript VBS, ktorý prevezme textový vstup od používateľa a potom ho vysloví. Tiež spomeniem, ako napevno zakódovať text, ktorý chcete vysloviť, a potom naplánovať spustenie skriptu pri konkrétnych udalostiach, ako je spustenie systému Windows alebo odhlásenie.

Zadajte text, vyslovte správu

Začnime jednoduchým skriptom, ktorý zobrazí dialógové okno, v ktorom môžete zadať, čo chcete, aby systém Windows hovoril. Najprv pokračujte a otvorte Poznámkový blok.

Krok 1:  Vložte nasledujúci text do nového dokumentu:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

Upozorňujeme, že keď skopírujete text z webového prehliadača a vložíte ho do programu Poznámkový blok, úvodzovky spôsobia problémy. Pred uložením súboru musíte prejsť a vymazať každý citát (“) a znova ho napísať. V nižšie uvedenom príklade je šesť úvodzoviek. Malo by to vyzerať ako na obrázku nižšie.

Teraz, keď prejdete na uloženie súboru, zadajte mu ľubovoľný názov, ale uistite sa, že za názvom napíšete aj .VBS . Potom v poli Uložiť ako typ vyberte možnosť Všetky súbory namiesto predvolených textových dokumentov.

Teraz dvakrát kliknite na súbor VBS a mali by ste vidieť vstupné pole, do ktorého môžete zadať text, ktorý chcete vysloviť! Zadajte niečo a kliknite na tlačidlo OK.

Ak ste urobili všetko správne, mali by ste počuť buď mužský alebo ženský hlas, aby vyslovil vašu vetu. Ak sa zobrazí akékoľvek chybové hlásenie, nezabudnite text skopírovať a prilepiť znova a nahradiť tieto úvodzovky.

Nakonfigurujte nastavenia hlasu SAPI

Je to zábavné, ale náš malý hovoriaci počítač môžeme nakonfigurovať aj s rôznymi nastaveniami. Môžeme zmeniť hlasitosť, ako rýchlo alebo pomaly hlas hovorí a zmeniť pohlavie medzi mužom a ženou. Tu je nejaký príklad kódu, do ktorého som pridal pár riadkov navyše.

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

Predvolená rýchlosť je 0 a rozsah je -10 až 10. -10 spôsobí, že hlas bude hovoriť super pomaly a 10 bude hovoriť super rýchlo. Hlasitosť je štandardne nastavená na 100 a rozsah je 0 až 100. Riadok, ktorý začína Set sapi.Voice , vám umožní zmeniť hlas, ak je vo vašom systéme nainštalovaný.

Upozorňujeme, že počet hlasov, z ktorých si môžete vybrať, závisí od operačného systému. V systéme Windows 7 existuje iba jeden hlas, Microsoft Anna.

V systéme Windows 10 existujú dva hlasy: Microsoft David a Microsoft Zira, ako je uvedené nižšie.

Ak je vo vašom systéme nainštalovaný iba jeden hlas, musíte zmeniť text sapi.GetVoices.Item(1) na sapi.GetVoices.Item(0) , inak sa vám pri pokuse o spustenie skriptu zobrazí chybové hlásenie. Môžete tiež vytvoriť ďalší dokument programu Poznámkový blok a vložiť doň kód uvedený nižšie, ktorý vám povie, aké hlasy sú nainštalované. Uložte ho ako súbor .VBS, ako je znázornené vyššie, a spustite ho.

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

Doteraz sme na zadávanie textu používali toto kontextové dialógové okno, ale svoju správu môžete jednoducho napísať aj do súboru skriptu. To by bolo užitočné, ak by ste chceli potom naplánovať automatické spustenie skriptu. Je zrejmé, že sa to dá použiť na žartovanie vašich priateľov a rodiny a funguje to naozaj dobre.

Len si predstavte, že niekto zapne počítač a počuje, ako mu počítač hovorí: „Ahoj John, som veľmi ospalý, prosím, dnes ma neobťažuj!“ keď naštartuje! Zo skúsenosti vám môžem sľúbiť, je to hysterické a určite by ste to mali vyskúšať.

Ak chcete správu zakódovať napevno, jednoducho zmeňte posledný riadok na niečo takéto:

sapi.Speak “Hello John, I am very tired today!”

Naplánovať súbor skriptu

Teraz, keď ste napevno zakódovali svoju správu pre zamýšľaný cieľ, jednoducho ju musíte spustiť, keď chcete. Ak ste technicky zdatní, môžete použiť program ako AutoIt , ktorý vám umožní robiť extrémne veci, ako je spustenie súboru skriptu pri otvorení určitého programu alebo pri maximalizácii alebo minimalizácii okna.

Nemám čas sa tomu všetkému venovať v tomto príspevku, ale našťastie má spoločnosť Microsoft vstavanú funkciu s názvom Plánovač úloh, ktorá vám umožňuje ľahko robiť niektoré dosť komplikované veci so skriptami.

Môj predchádzajúci príspevok ide do hĺbky o tom, ako naplánovať spustenie súboru skriptu, keď sa v systéme Windows vyskytnú určité udalosti. Ak máte problémy so spustením skriptu, neváhajte napísať komentár a ja sa pokúsim pomôcť. Užite si to!