Zakaj vas ne bi Windowsi pozdravili vsakič, ko jih prižgete?

Ste se že kdaj vprašali, kako bi bilo, če bi vas vaš operacijski sistem ob vsakem vklopu olikano pozdravil? Stvar je pravzaprav dokaj enostavna, zadostovalo pa bo že nekaj preprostih ukazov zapisanih v okno beležnice. Trik smo že poizkusili in moramo vam povedati, da je povsem posrečen, zagotovo pa bo navdušil tiste, ki jim je glas pomembnejši od pisane besede. Vse, kar morate storiti, je, da odprete beležnico in vnesete naslednje besedilo:

Dim speaks, speech

speaks=”Welcome, my master. You are the greatest person on the whole world”

Set speech=CreateObject(“sapi.spvoice”)

speech.Speak speaks

Besedilo v narekovajih (“Welcome, my master. You are the greatest person on the whole world“) lahko zamenjate s katerimkoli stavkom, omejitev bo zgolj vaša domišljija. Res pa je, da bo izgovorjava slovenskih š, č, ž bržkone nemogoča naloga. Po vnosu besedila v beležnico, datoteko shranite s končnico .VBS (npr. greetings.vbs) in jo shranite v zagonsko mapo (Startup ali Zagon – C:UsersXXXAppDataRoamingMicrosoftWindowsStart MenuProgramsStartup).

Po tem dejanju vas bodo Windowsi ob vsakem zagonu nagovorili z glasovnim sporočilom, ki ste ga vnesli. Sporočilo je mogoče še dodatno modificirati in olepšati. Navodila sledijo:

Dodatne nastavitve glasu:

.Pause = premor
.resume = nadaljevanje po premoru
.Rate = hitrost govora. Večje je število, hitrejši bo govor.
.Voice = sprememba glasu (če obstajajo v sistemu)
.Volume = glasnost glasu. V odstotkih.
.WaitUntilDone = wait until done. No, verjetno veste, kaj mislijo.

In še praktičen primer:

with speech
Set .voice = .getvoices.item(0)
.Volume = 100
.Rate = 0
end with