U sustavu Windows postoji zgodna značajka koja vam omogućuje da računalo razgovarate ili govorite ono što vam kažete! Ova metoda koristi predinstalirani ugrađeni API instaliran na Windows XP, Vista, 7, 8 i 10 pod nazivom SAPI (Speech Application Programming Interface).
Microsoft Speech API je ono što se koristi za značajku pristupačnosti teksta u govor ugrađena u sustav Windows. Također možete pisati programe koji zovu API, što bi vam omogućilo da dopuste vašim aplikacijama da govore, ali to je za programere.
Samo da vaše računalo kaže ono što želite je zapravo prilično lako! U ovom članku pokazat ću vam kako izraditi VBS skriptu koja će korisniku unijeti tekst, a zatim je izgovoriti. Također ću spomenuti kako hard-kodirati tekst koji želite izgovoriti, a zatim zakazati skriptu da se pokrene na određenim događajima kao što je pokretanje sustava Windows ili odjavljivanje.
Počnimo s jednostavnom skriptom koja će otvoriti dijaloški okvir u kojem možete upisati ono što želite da sustav Windows govori. Prvo, idi naprijed i otvorite Notepad.
Korak 1: Zalijepite sljedeći tekst u novi dokument:
Dim poruka, sapi
message = InputBox ("Unesite tekst koji želite izgovoriti", "Izgovorite ovo")
Postavi sapi = CreateObject ("sapi.spvoice")
sapi.Speak poruku
Imajte na umu da prilikom kopiranja teksta iz web preglednika i zalijepite ga u Notepad, citati će uzrokovati probleme. Prije nego što spremite datoteku, morate proći i izbrisati svaki citat (") i ponovno upisati citat. U donjem primjeru postoji šest navoda. Trebao bi izgledati poput slike ispod.
Sada kada idete spremiti datoteku, navedite ga bilo kojem nazivu, ali svakako upišite .vbs nakon imena. Dalje, za Spremi kao vrstu kutija, odaberite Sve datoteke umjesto zadanih tekstualnih dokumenata.
Sada dvaput kliknite na VBS datoteku i trebali biste vidjeti ulazni okvir gdje možete upisati tekst koji želite izgovoriti! Upišite nešto i kliknite U redu.
Ako ste učinili sve dobro, trebali biste čuti kako muški ili ženski glas izgovori svoju rečenicu. Ako dobijete bilo kakvu poruku o pogrešci, svakako kopirajte i zalijepite tekst i zamijenite te navode.
Ovo je zabavno, ali možemo konfigurirati i naše malo računalo koje govori s različitim postavkama. Možemo promijeniti glasnoću, koliko brzo ili sporo glas govori i promijeniti spol između muškarca i žene. Evo primjera kod gdje sam dodao nekoliko dodatnih linija.
Dim poruka, sapi
message = InputBox ("Unesite tekst koji želite izgovoriti", "Izgovorite ovo")
Postavi sapi = CreateObject ("sapi.spvoice")
Postavi sapi.Voice = sapi.GetVoices.Item (1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak poruku
Zadana je stopa 0, a raspon je od -10 do 10. -10 će glas govoriti super polako, a 10 će govoriti super brzo. Glasnoća je zadana na 100 i raspon je od 0 do 100. Redak koji počinje sa Postavi sapi.Voice omogućit će vam da se prebacite na drugi glas ako je instaliran na vašem sustavu.
Imajte na umu da broj glasova koje možete odabrati ovisi o operacijskom sustavu. U sustavu Windows 7 postoji samo jedan glas, Microsoft Anna.
U sustavu Windows 10 postoje dva glasa: Microsoft David i Microsoft Zira kao što je prikazano u nastavku.
Ako je na vašem sustavu instaliran samo jedan glas, morate to promijeniti sapi.GetVoices.Item (1) do sapi.GetVoices.Item (0), inače ćete dobiti poruku o pogrešci kada pokušate pokrenuti skriptu. Također možete stvoriti još jedan Notepad dokument i zalijepiti kôd u nastavku koji će vam reći koji su glasovi instalirani. Spremite je kao .VBS datoteku kao što je gore prikazano i pokrenite ga.
Postavi VObj = CreateObject ("SAPI.SpVoice")
Za svaki glas u VObj.getvoices
I = I + 1
msgbox "" & (I - 1) & "-" & Voice.GetDescription
Sljedeći
Do sada smo koristili ovaj popup dijaloški okvir za unos teksta, ali jednostavno možete upisati i poruku u datoteku skripte. To bi bilo korisno ako biste željeli zakazati skriptu da se automatski pokreće. Očigledno, to se može koristiti za vrijeđanje svojih prijatelja i obitelji i to jako dobro radi.
Samo zamislite da netko okreće računalo i čuje računalo govoreći im: "Hello John, jako sam pospan, nemoj me smetati danas!" Mogu vam obećati iz iskustva, to je histerično i svakako biste ga trebali probati.
Da biste potvrdili poruku, jednostavno promijenite zadnji redak na nešto slično:
sapi.Speak "Hello John, danas sam jako umoran!"
Sada kad ste hardcodirali poruku za ciljani cilj, jednostavno ga morate pokrenuti kada želite. Ako ste tech-pamet, možete koristiti program kao što je AutoIt, koji će vam omogućiti da napravite ekstremne stvari kao što je pokrenuti datoteku skripta kada je određeni program otvoren ili kada je Windows maksimiziran ili minimiziran.
Nemam vremena za sve to u ovom postu, ali srećom, Microsoft ima ugrađenu značajku nazvanu Task Scheduler koja vam omogućuje jednostavno sastavljanje nekih složenih stvari s skriptama.
Moj prethodni post ide dublje o tome kako zakazati datoteku skripte za pokretanje kada se određeni događaji pojavljuju u sustavu Windows. Ako imate bilo kakvih problema s dobivanjem skripte, slobodno pošaljite komentar i pokušat ću vam pomoći. Uživati!
