Mažoji (vizuali) pagrindinė istorija
1988 m. Pasirodė pirmoji iteracija VBScript arba (Visual Basic Scripting Edition) ir vis dar buvo labai primityvi versija, kurią turime šiandien. Per pastaruosius metus "Microsoft" paprasto naudojimo ir lengvosios scenarijų kalbos poreikis padidėjo. Dėl to bendrovė toliau dirbo ir 1996 m. Išleido ją visuomenei.
Tai paprastas scenarijus, kuris naudoja COM (Component Object Model) kurti, skaityti, atnaujinti ir ištrinti failus "Microsoft" operacinėse sistemose. Išleidus "Windows 98", jis buvo įdiegtas su kiekvienu kompiuteriu. Tai labai universali dėl to, kad VBScript prieglobos aplinka gali būti įterpta į programas naudojant "Microsoft Script Control". Jis dažnai naudojamas kartu su interneto informacijos tarnybomis, "Windows Script Host" ir "Internet Explorer".
Tačiau, tai yra pakankamai techninio drožlės drožlės. Pasirūpinkime ja ir sužinokime, kaip pasikalbėti su kompiuteriu!
Vieno naudojimo VBScripts
Visual Basic scenarijaus kūrimas yra labai lengvas ir jam nereikalingos jokios specialios programos. Nors yra programų, kurias galite naudoti rašydami labiau pažengusius scenarijus, dauguma programuotojų ir žmonių, kurie rašo scenarijus, tiesiog naudoja "Microsoft Notepad".
Pradėkime procesą atidarę "Notepad". Po to, kai atidarote "Notepad", viskas, ko jums reikia padaryti, yra įvesti šį kodą arba tiesiog nukopijuokite jį į "notepad" langą. Norėdami pakeisti tai, ką jūsų scenarijus leidžia kompiuteriui pasakyti, tiesiog pakeiskite skyrelį, kuriame sakoma: "Geeks paveldės žemę", ką norite išgirsti.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Dabar, norėdami pakabinti jį, pabandykite sukurti keletą scenarijų su bet kokiu tekstu, kurį norite išgirsti. Arba galite dešiniuoju pelės klavišu spustelėti VBScript ir pasirinkti parinktį "Atidaryti naudojant …", tada pasirinkite "Notepad", jei norite redaguoti tą pačią bylą esantį tekstą.
Teksto į kalbą scenarijus
Dabar, kai žinote, kaip parašyti vienkartinį scenarijų ir tikriausiai su juo žaisdavote keletą kartų, jums gali būti šiek tiek nuobodu. Štai kodėl mes ketiname jį užpulsti.
Kitas dalykas, kurį mes išmokti, - tai sukurti šriftą, kuris yra šiek tiek pažengęs nei vienkartinio naudojimo scenarijus. Tai sukurs dialogo langą, kuriame galėsite įvedinėti tekstą ir jį perskaityti kompiuteryje.
Pradėkite atidarę savo užrašų knygutę ir įvesdami šį scenarijų arba nukopijuokite ir įklijuokite jį į užrašų bloknotės langą.
Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message
Dabar įjunkite "Geeks paveldės žemę", tada paspauskite mygtuką "OK", kad paleistumėte scenarijų ir girdėtumėte savo tekstą garsiai.
Sveikinimai VBScript scenarijus
Tai tampa gana įdomu, bet jūsų kompiuteris vis tiek nesusijęs su jumis. Dabar bandysime kitą paprastą scenarijų, kuriame atsižvelgiama į dienos laiką ir tinkamą atsaką į dienos laiką. Šis scenarijus perskaitys jūsų kompiuterio laiką ir, atsižvelgiant į tai, jis jus sveikins tam tikru būdu.
Pradėkite, atidarę užrašų knygutę ir įterpdami šį trumpą scenarijų. Jūs galite pakeisti skyrių, kuriame yra dienos sveikinimai, bet kuria fraze, kurią norite išgirsti, ir pakeisti Geekmeister savo vardu.
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
Skriptas sako, kad jei laikrodis ką nors skaito prieš 12, tai yra rytas, o kas po 12 dienos yra popietė; tačiau ji taip pat turi sąlygą, kuri sako, net jei ji yra po 12, kol laikas praėjo 16:00 (16:00), jis tampa vakaru.
VBScript scenarijaus dienos laikas
Jei norite gauti šiek tiek daugiau pažangių ir gauti laiko, galite sukurti naują užrašų knygutę ir įvesti šį scenarijų.
Scenarijus gali atrodyti sudėtingas, tačiau iš esmės jis sako savo kompiuteriui, ką pasakyti ir kaip tai pasakyti pagal laiką, kuris rodomas kompiuterio laikrodyje. Jūs visada galite pakeisti "Dabartinis laikas" su bet kokiu įvedimu norimam laikui.
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
Dabar jums reikia įrašyti failą kaip VBScript, kaip tai padarė ankstesniuose veiksmuose, tada eikite į tą aplanką. Jei viskas vyktų gerai, turėtumėte dukart spustelėti jį ir išgirsti, kad kompiuteris pasakytų jums laiką.
Paleisties sveikinimas
Dabar, kai žinote, kaip priversti kompiuterį pasveikinti jus ir parodyti jums laiką, kiek įdomu tai būtų, jei kompiuteris įjungs kompiuterį. Tai iš tikrųjų yra labai lengva padaryti, jei tiesiog sujungsite du scenarijus ir įdėsite juos į reikiamą vietą.
Pradėkite nuo atidarydami "Microsoft" užrašinę ir nukopijuokite šį kodą į langą. Tai tiesiog abiejų kodų kopija. Nepamirškite, kad galite pasikeisti sveikinimo žodžiu į "Kas vyksta", "Sveikas meistras", "Greetings your allmighty highness" arba viską, ko nori, kad jūsų kompiuteris jums pasakytų.
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
Kai šį kodą visiškai nukopijuosite į "notepad", eik į priekį ir įrašykite jį kaip "Startup greeting.vbs". Jis taip pat gali būti vadinamas viskuo, ko norite, tačiau šios demonstracijos tikslais lengviau, jei visi esame tame pačiame puslapyje. Dabar, kai jis buvo išsaugotas, galite dvigubai spustelėti VBScript failą, kad išgirstumėte, kaip jis sveikina jus ir parodo jums laiką.
Jei dėl kokios nors priežasties tai jums neveikia, galite rankiniu būdu pereiti į paleisties aplanką. Pirmiausia turėsite eiti į aplanką, kuriame išsaugomas jūsų "Startup greeting.vbs", ir nukopijuokite jį. Kitas žingsnis yra įvesti šį kelią į bet kurio "Explorer" lango viršuje ir paspausti "Enter". Jums reikės pakeisti "USERNAME" pavadinimą, kurį naudosite savo kompiuterio paskyrai.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
Kai esate paleidimo aplanke, tiesiog įklijuokite VBS failą ir esate gerai eiti. Dabar, kai kitą kartą paleisite kompiuterį ir prisijungsite, jis turėtų automatiškai pasveikinti jus ir informuoti, kiek laiko jis yra.
- Geek testas
- Pasveikinimas
- Paleisties sveikinimas
- Pasakojimo laikas
- Iš rašto į kalbą
