Maza (vizuālā) pamata vēsture
1988. gadā parādījās pirmā iterācija VBScript vai (Visual Basic Scripting Edition), un tā joprojām bija ļoti primitīva versija, kas mums ir šodien. Gadu gaitā pieauga nepieciešamība pēc ērti lietojamas un vieglās Microsoft skriptu valodas. Tāpēc uzņēmums turpināja strādāt pie tā un beidzot to publicēja 1996. gadā.
Tas ir vienkāršs skripts, kas izmanto COM (Component Object Model), lai izveidotu, lasītu, atjauninātu un dzēstu failus Microsoft operētājsistēmās. Tā kā Windows 98 tika izlaists, tas tika instalēts ar katru datoru. Tas ir ļoti daudzpusīgs, jo VBScript mītnes vide var tikt iestrādāta programmās, izmantojot Microsoft Script Control. Tas tiek bieži izmantots Interneta informācijas pakalpojumu, Windows Script Host un Internet Explorer.
Bet, tas ir pietiekami daudz no tehniskā jibber jabber. Sāksim pie tā un uzzināsim, kā padarīt jūsu datoru runāt!
Viena lietojuma VBScripts
Vizuālā pamata skripta izveide ir ļoti vienkārša, un tai nav nepieciešamas īpašas programmas. Lai gan ir programmas, kuras var izmantot, lai rakstītu vairāk augsti attīstītus skriptus, lielākā daļa programmētāju un tādu cilvēku, kuri raksturīgi rakstījuši skriptus, izmanto tikai Microsoft Notepad.
Sāksim procesu, atverot Notepad. Pēc tam, kad esat atvēris Notepad, viss, kas jums jādara, ir ievadīt šādu kodu vai vienkārši nokopējiet un ielīmējiet notepad logā. Lai mainītu to, ko jūsu skripts liek dators pateikt, vienkārši nomainiet sadaļu, kas saka: "Geeks mantos zemi" ar visu, ko vēlaties dzirdēt.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Tagad, lai uzzinātu par to, mēģiniet izveidot vēl dažus skriptus ar jebkuru tekstu, kuru vēlaties dzirdēt. Varat arī uz labo peles kursoru noklikšķināt uz VBScript un atlasīt opciju "Atvērt ar …", pēc tam izvēlieties notepad, lai rediģētu tekstu tajā pašā failā.
Teksts uz runas skriptu
Tagad, kad jūs zināt, kā rakstīt vienreiz lietojamu skriptu un, iespējams, spēlēja ar to vairākas reizes, jums var būt mazliet garlaicīgi. Tāpēc mēs gatavojamies to izmēģināt.
Nākamā lieta, ko mēs iemācīsimies, ir izveidot skriptu, kas ir nedaudz progresīvāks nekā vienreizējās lietošanas skripts. Tas izveidos dialoglodziņu, kurā jūs varat ievadīt tekstu un lasīt to jūsu datorā.
Sāciet, atkārtoti atverot piezīmju grāmatiņu un ievadot šo skriptu, vai arī kopējiet un ielīmējiet to piezīmju grāmatiņas logā.
Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message
Tagad ļaujiet mums ievadīt "Geeks mantos zemi", tad nospiediet pogu "OK", lai palaistu skriptu un dzirdētu jūsu tekstu skaļi.
Sveiciens VBScript skripts
Tas kļūst diezgan jautri, taču jūsu dators joprojām ļoti nedarbojas ar jums. Tagad mēs izmēģināsim vēl vienu vienkāršu skriptu, kas ņem vērā dienas laiku, kā arī atbilstošu atbildi par dienas laiku. Šis skripts lasīs jūsu datora laiku un, pamatojoties uz to, tas jums noteiktā veidā sveiks.
Sāciet, atverot piezīmju bloku un ievietojot šo īso skriptu. Jūs varat aizstāt sadaļu ar dienas sveicieniem ar jebkuru frāzi, kuru vēlaties dzirdēt, kā arī aizstāt Geekmeister ar savu vārdu.
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
Skripts stāsta, ka, ja pulkstenis kaut ko nolasa pirms 12, tas ir no rīta un ka pēc plkst. 12 pēc plkst. taču tam ir arī klauzula, kas norāda, ka pat pēc 12 gadiem, kamēr laiks ir beidzies plkst. 16:00 (plkst. 16:00), tas kļūst par vakaru.
Dienas laiks VBScript skripts
Ja vēlaties iegūt nedaudz vairāk uzlabotas un saņemt laiku, varat izveidot jaunu bloknotu un ievadīt šo skriptu.
Skripts var izskatīties sarežģīti, taču tas būtībā norāda datoram, ko teikt un kā to pateikt, pamatojoties uz laiku, kas tiek rādīts datora pulkstenī. Jūs vienmēr varat nomainīt "Pašreizējais laiks ir" ar jebkuru ievadu par laiku, kuru vēlaties.
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
Tagad jums vienkārši nepieciešams saglabāt failu kā VBScript, kā tas bija iepriekšējos posmos, un pēc tam pārejiet uz šo mapi. Ja viss notiks labi, jums vajadzētu būt iespējai dubultklikšķi uz tā un dzirdēt, ka dators pateiks jums laiku.
Sākotnējais apsveikums
Tagad, kad jūs zināt, kā padarīt savu datoru sveicināt jūs un pateikt jums laiku, cik labi tas būtu, ja dators to darītu, ieslēdzot datoru. To tiešām ir ļoti viegli izdarīt, ja jūs vienkārši apvienojat abus skriptus un nododiet tos pareizajā vietā.
Sāciet, atverot Microsoft notepad un kopējot šo kodu logā. Tas ir vienkārši katra koda kopija, kas jums ir apvienota. Atcerieties, ka jūs varat mainīt sveicienu uz "Kas notiek līdzi, Hello Master, Sveicieni jūsu visvarenais augstums", vai jebko, ko vēlaties, lai jūsu dators tev sacītu.
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
Kad esat nokopējis visu šo kodu tieši tā, kā tas ir, ievietojiet notepad, turpiniet un saglabājiet to kā "Startup greeting.vbs". To var arī saukt par visu, ko vēlaties, bet šīs demonstrācijas nolūkos ir vieglāk, ja mēs visi esam vienā un tajā pašā lapā. Tagad, kad tas ir saglabāts, jūs varat dubultklikšķi uz VBScript faila, lai dzirdētu, ka tas sveicina jūs un paziņo jums laiku.
Ja kāda iemesla dēļ tas jums nedarbojas, varat arī manuāli pāriet uz sāknēšanas mapi. Vispirms atveriet mapi, kurā ir saglabāts jūsu "Startup greeting.vbs" un nokopējiet to. Nākamais solis ir norādīt šādu ceļu jebkura Explorer loga augšdaļā un nospiediet "Enter". Jums vienkārši būs jāmaina USERNAME ar nosaukumu, kuru lietojat sava datora kontā.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
Kad esat palaišanas mapē, vienkārši ielīmējiet vbs failu un jums ir labi iet. Tagad, nākamreiz, kad startējat datoru un piesakāties sistēmai, tam automātiski jāapstiprina un jāinformē, kad tas ir.
- Geek tests
- Sveiciens
- Sākotnējais apsveikums
- Izstāstiet laiku
- No teksta uz izrunu
