Malá (vizuálna) základná história
V roku 1988 sa objavila prvá iterácia jazyka VBScript alebo (Visual Basic Scripting Edition) a stále bola veľmi primitívna verzia toho, čo máme dnes. V priebehu rokov sa zvýšila potreba ľahko použiteľného a ľahkého skriptovacieho jazyka pre spoločnosť Microsoft. Z toho dôvodu spoločnosť naďalej pracuje a nakoniec ju uverejnila v roku 1996.
Jedná sa o jednoduchý skript, ktorý používa COM (Component Object Model) na vytváranie, čítanie, aktualizáciu a odstraňovanie súborov v rámci operačných systémov Microsoft. Od vydania Windows 98 bol nainštalovaný s každým počítačom. Je to veľmi univerzálny, pretože hostiteľské prostredie VBScript môže byť vložené do programov pomocou Microsoft Script Control. Používa sa často v službe Internet Information Services, Windows Script Host a Internet Explorer.
Ale to je dosť technického jabber jabber. Poďme sa na to a naučte sa, ako urobiť váš počítač hovoriť!
VBScripts na jedno použitie
Vytvorenie vizuálneho základného skriptu je veľmi jednoduché a nevyžaduje žiadne špeciálne programy. Napriek tomu, že existujú programy, ktoré môžete použiť na napísanie viac pokročilých skriptov, väčšina programátorov a ľudí, ktorí sa študujú pri písaní skriptov, používajú poznámkový blok Microsoft.
Začnime proces otvorením programu Poznámkový blok. Po otvorení programu Poznámkový blok stačí, aby ste zadali nasledujúci kód, alebo ho jednoducho skopírujte a vložte do okna poznámkového bloku. Ak chcete zmeniť to, čo váš skript robí počítač povedať, stačí nahradiť časť, ktorá hovorí: "Geekovia zdedí zem" s tým, čo chcete počuť.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Teraz, aby ste sa dostali na to, skúste vytvoriť ešte niekoľko skriptov s akýmkoľvek textom, ktorý chcete počuť. Prípadne môžete kliknúť pravým tlačidlom myši na VBScript a vybrať voľbu "Otvoriť s …" a potom zvoliť zápisník pre úpravu textu v rámci rovnakého súboru.
Skript textu do reči
Teraz, keď viete, ako napísať jeden skript použitia a pravdepodobne ste s ním niekoľkokrát hrali, možno sa trochu znudíte. To je dôvod, prečo ho vykopneme.
Ďalšia vec, ktorú sa naučíme, je, ako vytvoriť skript, ktorý je o niečo pokročilejší ako skript s jednoduchým použitím. Týmto sa vytvorí dialógové okno, do ktorého môžete vložiť text a nechať ho čítať späť počítačom.
Začnite otvorením poznámkového bloku znova a zadaním tohto skriptu alebo jeho kopírovaním a vložením 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
Zatiaľ dajte nám vstúpiť "Geekovia zdedia zem" a potom stlačte tlačidlo "OK" na spustenie skriptu a počuť váš text nahlas.
Pozdravy VBScript Script
To sa stáva celkom zábavné, ale počítač stále s vami veľmi nezačne. Teraz budeme skúsiť ďalší jednoduchý skript, ktorý zohľadní dennú dobu, ako aj vhodnú odpoveď na čas. Tento skript bude čítať čas vášho počítača a na základe toho vás bude pozdraviť určitým spôsobom.
Začnite otvorením poznámkového bloku a vložením tohto krátkeho skriptu. Môžete nahradiť časť, ktorá má pozdravy dňa s akoukoľvek frázou, ktorú chcete počuť, ako aj nahradiť Geekmeister svojím vlastným menom.
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
Skript hovorí, že ak hodiny čítajú čokoľvek pred dvanástimi, je ráno a že niečo po 12 je popoludní; má však aj klauzulu, ktorá hovorí, že aj po 12, ak je čas okolo 16:00 (16:00), stane sa večer.
Skript VBScript dňa
Ak by ste chceli získať trochu pokročilejšie a dostať čas, môžete si vytvoriť nový notepad a vložiť tento skript.
Skript môže vyzerať komplikovane, ale v podstate hovorí počítaču čo povedať a ako to povedať na základe času, ktorý je zobrazený na vašom počítači. Vždy môžete nahradiť "Aktuálny čas" s akýmkoľvek úvodom na čas, ktorý 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
Teraz stačí uložiť súbor ako VBScript ako ste urobili v predchádzajúcich krokoch a potom prejsť do tejto zložky. Ak všetko prebehlo dobre, mali by ste byť schopní dvakrát kliknúť na neho a počuť, že počítač vám oznámi čas.
Počiatočné pozdrav
Teraz, keď viete, ako váš počítač pozdraviť a povedať vám čas, aké pohode by bolo, keby to počítač urobil, keď zapnete počítač. Je to jednoducho jednoduché, ak skombinujete dva skripty a umiestnite ich na správne miesto.
Začnite otvorením poznámkového bloku Microsoft a kopírovaním tohto kódu do okna. Je to jednoducho kópia oboch kódov pre vás kombinovaných. Pamätajte si, že môžete zmeniť pozdrav na "Čo je to vole, Dobrý deň Majster, Pozdravte svoju všemocnú výsosť", alebo čokoľvek chcete, aby vám počítač povedal.
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
Po skopírovaní celého kódu presne tak, ako to je, do zápisníka, pokračujte a uložte ho ako "Startup greeting.vbs". Môže sa tiež nazvať všetkým, čo chcete, ale pre účely tejto demonštrácie je jednoduchšie, ak sme všetci na tej istej stránke. Teraz, keď bol uložený, môžete dvakrát kliknúť na súbor VBScript, aby ste počuli, ako vás pozdraví, a povedať vám čas.
Ak z nejakého dôvodu to pre vás nefunguje, môžete tiež manuálne prejsť do spúšťacej zložky. Najskôr prejdete do priečinka, kde sa uloží vaša "Startup greeting.vbs" a skopíruje ju. Ďalším krokom je napísať nasledujúcu cestu do hornej časti okna programu Explorer a stlačiť "Enter". Budete musieť zmeniť USERNAME s menom, ktorý používate pre svoj počítačový účet.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
Akonáhle ste v štartovacej zložke, stačí prilepiť súbor VBS a máte dobré ísť. Pri ďalšom spustení počítača a prihlásení by vás malo automaticky pozdraviť a informovať o tom, čo to je.
- Geek Test
- pozdrav
- Počiatočné pozdrav
- Čas rozprávania
- Prevod textu na reč
