Inteligentní stroje schopné řeči jsou často předmětem futuristických filmů sci-fi, ale můžete přeměnit libovolný počítač na chatu Cathy. Přestože ještě nejsme na pódiu s počítačem, kde mohou s námi komunikovat jako lidé, existuje několik nástrojů a jednoduchých skriptů, které můžeme napsat, aby se k nám každý počítač, který běží Windows, mluvil.

Malá (vizuální) základní historie

V roce 1988 se objevila první iterace VBScript nebo (Visual Basic Scripting Edition) a byla stále velmi primitivní verzí toho, co máme dnes. V průběhu let se zvýšila potřeba snadno použitelného a lehkého skriptovacího jazyka pro společnost Microsoft. Z tohoto důvodu společnost pokračovala v práci a nakonec ji zveřejnila v roce 1996.

Jedná se o jednoduchý skript, který používá COM (Component Object Model) k vytváření, čtení, aktualizaci a mazání souborů v operačních systémech Microsoft. Od vydání Windows 98 byl nainstalován s každým počítačem. Je vysoce univerzální vzhledem k tomu, že hostitelské prostředí VBScript může být vloženo do programů pomocí programu Microsoft Script Control. Používá se často s Internetovými informačními službami, Windows Script Host a Internet Explorer.

Ale to stačí technického jabberu. Podívejme se na to a naučte se, jak váš počítač mluvit!

Jednoduché použití VBScripts

Vytvoření základního vizuálního skriptu je velmi snadné a nevyžaduje žádné speciální programy. Ačkoli existují programy, které můžete použít k psaní více vysoce pokročilých skriptů, většina programátorů a lidí, kteří dabble při psaní skriptů používají Microsoft Poznámkový blok.

Začněte proces otevřením programu Poznámkový blok. Po otevření programu Poznámkový blok stačí zadat následující kód nebo jej jednoduše zkopírovat a vložit do okna poznámkového bloku. Chcete-li změnit to, co váš skript dělá z počítače, řekněte, jednoduše nahradit část, která říká "Geeks zdědí zemi" s tím, co chcete slyšet.

dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'

Po úspěšném zadání textu, který chcete poslouchat, stiskněte tlačítko "Soubor" a klikněte na možnost "Uložit jako ...".

Najděte místo, kam chcete obrázek uložit. U tohoto příkladu jej ukládám do prázdné složky v adresáři Stažení. Důležitá věc, kterou musíte udělat, je dát jemu jméno, které končí .vbs. Tím bude počítač informovat o tom, že neukládáte soubor prostého textu; spíše ukládáte VBScript. Tento vzorek pojmenujeme "Geek test.vbs", jak je uvedeno níže.

Nyní můžete pokračovat a zavřít poznámkový blok a přejděte do složky, kde jste uložili VBScript. Všimnete si, že ikona není normální ikona TXT. Je to malý modrý svitek na bílém pozadí. Poklepáním na tuto ikonu spustíte skript pro jedno použití a nasloucháte textu. Gratulujeme, právě jste vytvořili svůj první skript.

Nyní, abyste si to pověsili, zkuste vytvořit další skripty s jakýmkoli textem, který chcete slyšet. Případně můžete kliknout pravým tlačítkem myši na VBScript a zvolit volbu "Otevřít s ..." a potom zvolit poznámku pro úpravu textu ve stejném souboru.

Skript textu k řeči

Nyní, když víte, jak napsat scénář pro jedno použití a pravděpodobně jste si s ním několikrát hráli, můžete se trochu znudit. To je důvod, proč to uděláme.

Další věc, kterou se naučíme, je, jak vytvořit skript, který je o něco pokročilejší než skript pro jedno použití. Tím vytvoříte dialogové okno, do něhož můžete zadávat text a nechat si ji přečíst pomocí počítače.

Začněte tím, že znovu otevřete svůj zápisník a vložte tento skript nebo jej zkopírujte a vložte do okna poznámkového bloku.

Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message

Po zadání kódu soubor jednoduše uložíte jako "Text to Speech.vbs", jak je to uvedeno dříve, abyste dokončili skript. Jakmile je uložen, přejděte na místo, kde se nachází, a dvakrát klikněte na něj. Všimnete si, že okno je nazýváno "já mluvím za vás." A výzva k zadání textu, který má být vokalizován, je "Co mám říkat, vaši mágnost?" Můžete je změnit vždy, abyste řekl co chcete.

Prozatím, vraťme se "Geekové zdědí Zemi" a poté stiskem tlačítka "OK" spustíte skript a slyšíte váš text nahlas.

Pozdravy VBScript Script

To je dost zábavné, ale váš počítač s vámi stále velmi nezajímá. Nyní zkusíme jiný jednoduchý skript, který bere v úvahu denní čas, stejně jako vhodnou odpověď pro denní dobu. Tento skript bude číst čas vašeho počítače a na základě toho vás určitě pozdraví.

Začněte tím, že otevřete poznámkový blok a vložíte tento krátký skript. Část, která má pozdravy dne, můžete nahradit libovolnou frází, kterou chcete slyšet, a nahradit Geekmeister svým vlastním jménem.

Set Sapi = Wscript.CreateObject('SAPI.SpVoice') dim str if hour(time) < 12 then Sapi.speak 'Good Morning Geekmeister ' else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak 'Good evening Geekmeister ' else Sapi.speak 'Good afternoon Geekmeister ' end if end if end if

Nyní můžete textový dokument uložit jako soubor VBS. Jakmile to uděláte, přejděte do složky, ve které je uložen, a dvakrát klikněte na něj. Na základě doby, kdy se váš počítač zobrazí, bude buď říkat "Dobré ráno, dobré odpoledne nebo dobrý večer Geekmeister."

Scénář říká, že pokud hodiny čte něco před 12, je ráno a všechno po 12 je odpoledne; nicméně má také klauzuli, která říká, že i když je po 12, pokud je čas kolem 16:00 (16:00), stane se večer.

Skript času VBScript

Pokud byste se chtěli trochu rozvinout a dostat čas, můžete vytvořit nový zápisník a zadat tento skript.

Skript může vypadat komplikovaně, ale v podstatě říká, co říká a co říci, na základě času, který je zobrazen na počítačích. Vždy můžete nahradit "aktuální čas" každým úvodem po dobu, kterou chcete.

Set Sapi = Wscript.CreateObject('SAPI.SpVoice') Sapi.speak 'The current time is' if hour(time) > 12 then Sapi.speak hour(time)-12 else if hour(time) = 0 then Sapi.speak '12' else Sapi.speak hour(time) end if end if if minute(time) < 10 then Sapi.speak 'o' if minute(time) < 1 then Sapi.speak 'clock' else Sapi.speak minute(time) end if else Sapi.speak minute(time) end if if hour(time) > 12 then Sapi.speak 'P.M.' else if hour(time) = 0 then if minute(time) = 0 then Sapi.speak 'Midnight' else Sapi.speak 'A.M.' end if else if hour(time) = 12 then if minute(time) = 0 then Sapi.speak 'Noon' else Sapi.speak 'P.M.' end if else Sapi.speak 'A.M.' end if end if end if

Nyní stačí uložit soubor jako VBScript, jako jste učinili v předchozích krocích, a pak přejděte do této složky. Pokud všechno proběhlo dobře, měli byste mít možnost na něj dvakrát kliknout a slyšet počítač, který vám řekne čas.

Počáteční pozdrav

Nyní, když víte, jak vás počítač pozdravit a povědět vám čas, co je skvělé, kdyby to počítač udělal při zapnutí počítače. Je to opravdu velmi snadné, pokud jen skombinujete dva skripty a vložte je na správné místo.

Začněte tím, že otevřete Microsoft notepad a zkopírujete tento kód do okna. Je to prostě kopie obou kódů pro vás kombinované. Nezapomeňte, že můžete pozdrav změnit na "Co je to kámo, Dobrý mistr, Pozdravte svou všemohoucí vysokou postavu", nebo něco, co chcete, aby vám váš počítač řekl.

Set Sapi = Wscript.CreateObject('SAPI.SpVoice') dim str if hour(time) < 12 then Sapi.speak 'Good Morning Geekmeister ' else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak 'Good evening Geekmeister ' else Sapi.speak 'Good afternoon Geekmeister ' end if end if end if Sapi.speak 'The current time is' if hour(time) > 12 then Sapi.speak hour(time)-12 else if hour(time) = 0 then Sapi.speak '12' else Sapi.speak hour(time) end if end if if minute(time) < 10 then Sapi.speak 'o' if minute(time) < 1 then Sapi.speak 'clock' else Sapi.speak minute(time) end if else Sapi.speak minute(time) end if if hour(time) > 12 then Sapi.speak 'P.M.' else if hour(time) = 0 then if minute(time) = 0 then Sapi.speak 'Midnight' else Sapi.speak 'A.M.' end if else if hour(time) = 12 then if minute(time) = 0 then Sapi.speak 'Noon' else Sapi.speak 'P.M.' end if else Sapi.speak 'A.M.' end if end if end if

Jakmile jste celý kód zkopírovali přesně tak, jak to je, do poznámkového bloku, pokračujte a uložte jej jako "Startup greeting.vbs". Může být také nazýváno tím, co chcete, ale pro účely této demonstrace je jednodušší, když jsme všichni na stejné stránce. Nyní, když byl uložen, můžete dvojitým kliknutím na soubor VBScript slyšet, jak vás pozdraví a že vám řekne čas.

Pokud chcete, aby se přehrával po zapnutí počítače, jako je Jarvis od společnosti Iron Man, jednoduše vyberte soubor a přetáhněte jej myší dolů na tlačítko "Start". Bez uvolnění myši jej přesuňte na "Všechny programy" a pak najděte do složky "Startup" a uvolněte tlačítko myši.

Pokud z nějakého důvodu pro vás to nefunguje, můžete také ručně přejít do spouštěcí složky. Najprve se dostanete do složky, kde je uložena vaše "Startup greeting.vbs" a zkopírujte ji. Dalším krokem je zadat následující cestu do horní části okna Průzkumníka a stisknout "Enter". Budete muset změnit jméno uživatele USERNAME s názvem, který používáte pro váš počítačový účet.

C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup

Jakmile jste ve spouštěcí složce, prostě vložte soubor VBS a máte dobré jít. Nyní při příštím spuštění počítače a přihlášení by vás měl automaticky pozdravit a informovat o jakém čase.

Pokud byste měli nějaké potíže s vytvářením některého ze skriptů, mohou být pomocí odkazů zdarma stahovány.

  1. Geek Test
  2. Pozdrav
  3. Počáteční pozdrav
  4. Čas hlášení
  5. Text na řeč
Nejlepší Tipy:
Komentář: