Малка (визуална) основна история
През 1988 г. се появи първата итерация на VBScript или (Visual Basic Scripting Edition) и все още е много примитивна версия на това, което имаме днес. През годините необходимостта от лесен за използване и лек скриптов език за Microsoft се увеличи. Поради това компанията продължава да работи върху нея и най-накрая я пуска на обществеността през 1996 г.
Това е прост скрипт, който използва COM (Component Object Model), за да създава, чете, актуализира и изтрива файлове в операционните системи на Microsoft. След издаването на Windows 98, той е инсталиран на всеки компютър. Той е много гъвкав, поради факта, че приложната среда на VBScript може да бъде вградена в програми, използващи Microsoft Script Control. Той се използва често чрез Internet Information Services, Windows Script Host и Internet Explorer.
Но това е достатъчно от техническата jibber jabber. Нека да стигнем до него и да научим как да накараме компютъра ви да говори!
Единична употреба VBScripts
Създаването на визуален основен скрипт е много лесно и не изисква специални програми. Въпреки че има програми, които можете да използвате, за да напишете още много напреднали скриптове, повечето програмисти и хора, които се занимават с писането на скриптове, просто използват Notepad на Microsoft.
Нека да започнем процеса, като отворим Notepad. След като отворите Notepad, всичко, което трябва да направите, е да въведете следния код или просто да го копирате и поставите в прозореца на бележника. За да промените какъв е сценарият ви, кажете на компютъра, просто заменете секцията, която гласи: "Орките ще наследят земята" с каквото искате да чуете.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Сега, за да се озовете, опитайте се да създадете още няколко скрипта с всеки текст, който искате да чуете. Като алтернатива можете да кликнете с десния бутон върху VBScript и да изберете опцията "Отваряне с …", след което изберете notepad, за да редактирате текста в същия файл.
Скрипт от текст към реч
Сега, когато знаете как да напишете скрипт за еднократна употреба и вероятно сте свирили с него няколко пъти, може да сте малко отегчени. Ето защо ще го изстреляме.
Следващото нещо, което ще научим, е как да създадем скрипт, който е малко по-напреднал от скрипта за еднократна употреба. Това ще създаде диалогов прозорец, в който можете да въведете текст и да го прочетете от вашия компютър.
Започнете, като отворите отново бележника си и го въведете или копирайте и го поставете в прозореца на бележника.
Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message
Засега нека влезем в "Звяра ще наследи земята", след това натиснете бутона "OK", за да стартирате скрипта и да чуете текста си на глас.
Поздрави VBScript Script
Това става доста забавно, но компютърът ви все още не взаимодейства с вас много. Сега ще опитаме друг прост скрипт, който взема предвид времето на деня, както и подходящия отговор за времето на деня. Този скрипт ще прочете времето на вашия компютър и въз основа на това ще ви поздрави по определен начин.
Започнете, като отваряте бележника си и въвеждате този кратък скрипт. Можете да замените раздела, който има поздравления за деня с всяка фраза, която искате да чуете, както и да замените Geekmeister със собственото си име.
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
Сценарият казва, че ако часовникът прочете нещо преди 12, това е сутрин и че всичко след 12 е следобед; но има и клауза, която казва, че дори и след 12, докато времето е минало 16:00 (16:00), става вечер.
Време на деня
Ако искате да получите малко по-напреднали и да получите време, можете да създадете нов notepad и да въведете този скрипт.
Сценарият може да изглежда сложен, но всъщност казва на компютъра ви какво да каже и как да го каже, въз основа на времето, което се показва на часовника на компютъра ви. Винаги можете да замените "Настоящото време е" с всяко въведение за времето, което искате.
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
Сега просто трябва да запазите файла като VBScript, както направихте в предишните стъпки, и след това да отидете до тази папка. Ако всичко върви добре, би трябвало да можете да кликнете два пъти върху него и да чуете, че компютърът ви разказва за времето.
Поздравително стартиране
Сега, когато знаете как да накарате компютъра ви да ви поздрави и да ви разкаже за времето, колко готино би било, ако компютърът го направи, когато включите компютъра. Всъщност е много лесно да го направите, ако просто комбинирате двата скрипта и ги поставите на правилното място.
Започнете с отваряне на Microsoft notepad и копиране на този код в прозореца. Това е просто копие на двата кода, комбинирани за вас. Не забравяйте, че можете да промените поздравлението на "Какво е пич, Здравей господар, Поздравявам ви всемогъщата висша мощ" или каквото искате да ви каже компютърът ви.
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
След като сте копирали целия код точно както е в бележника, продължете и го запазете като "Startup greeting.vbs". Тя може да се нарече и всичко, което искате, но за целите на тази демонстрация, е по-лесно, ако всички сме на една и съща страница. Сега, след като е спасен, можете да кликнете два пъти върху файла VBScript, за да чуете, че ви поздравява и ще ви разкаже за времето.
Ако по някаква причина това не работи за вас, можете също така ръчно да се придвижите до стартовата папка. Най-напред ще отидете в папката, където ще бъде запазена вашата "Startup greeting.vbs" и ще я копирате. Следващата стъпка е да въведете следния път в горната част на всеки прозорец на Explorer и натиснете "Enter". Ще трябва да промените USERNAME с името, което използвате за вашия акаунт в компютъра.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
След като сте в стартовата папка, просто поставете файла VBS и сте добре да отидете. Следващия път, когато стартирате компютъра си и влезете, той автоматично трябва да ви поздравява и да ви информира колко е часът.
- Тест за джуджета
- Поздрав
- Поздравително стартиране
- Разказвай времето
- Текст към реч