7Jul
"Intelligent" mašinos, galintys kalbėti, dažnai yra futuristiniai "sci-fi" filmai, bet jūs galite paversti bet kurį kompiuterį pokalbio kanalu. Nors dar nėra kompiuterių, kuriuose jie gali bendrauti su mumis, kaip žmonės, dar yra ne vienos, bet ir keletas įrankių ir paprastų scenarijų, kuriuos galime parašyti, kad bet kuris kompiuteris, kuriame veikia Windows, mums kalbėtų.
Mažoji( vizuali) pagrindinė istorija
1988 m. Pirmoji iteracija VBScript arba( Visual Basic Scripting Edition) pasirodė ir vis dar buvo labai primityvios versijos, kurią turime šiandien. Per pastaruosius metus "Microsoft" paprasto naudojimo ir lengvosios scenarijų kalbos poreikis padidėjo. Dėl to bendrovė vis dar dirbo ir galiausiai išleido ją visuomenei 1996 metais.
Tai paprastas scenarijus, kuriame naudojamas COM( komponentų objektų modelis) 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".
Bet tai yra pakankamai techninio švelnumo jabber. Pasirūpinkime ja ir sužinokime, kaip pasikalbėti su kompiuteriu!
vienkartinio naudojimo VBScripts
Visual Basic scenarijaus kūrimas yra labai lengvas ir nereikia jokių specialių programų.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ą, atidarydami "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.
mažas kalbėjimo objekto rinkinys speechobject = createobject( "sapi.spvoice") speechobject.speak "Geeks paveldės žemę"Kai sėkmingai įvesite norimą išgirsti tekstą, tiesiog paspauskite "Failas" ir spustelėkite "Išsaugoti"Kaip. .. "parinktį.
Raskite vietą, kurioje norite išsaugoti vaizdą.Pavyzdžiui, išsaugoju jį tuščiame aplanke, esančiame atsisiuntimų kataloge. Svarbus dalykas, kurį turite padaryti, yra pavadinimas, kuris baigiasi. vbs. Tai parodys kompiuteriui, kad nesaugo paprasto teksto failo;o jūs išsaugojote VBScript. Mes pavadinsime šį pavyzdį "Geek test.vbs", kaip parodyta žemiau.
Dabar galite eiti į priekį, uždaryti užrašų knygutę ir pereiti į aplanką, kuriame išsaugojote VBScript. Pastebėsite, kad piktograma nėra įprasta TXT piktograma. Tai maža mėlyna slinktis ant balto fono. Dukart spustelėkite šią piktogramą, jei norite paleisti savo vienkartinį scenarijų ir klausytis savo teksto. Sveikiname, jūs ką tik sukūrėte savo pirmąjį scenarijų.
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 vienkartinio naudojimo scenarijų ir tikriausiai su ja žaidžiate keletą kartų, jums gali tekti šiek tiek nuobodžiauti.Štai kodėl mes ketiname jį užpulsti.
Kitas dalykas, kurį mes išmokti, yra tai, kaip sukurti scenarijų, kuris yra šiek tiek didesnis 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ę vėl ir įvedę šį scenarijų, arba nukopijuokite ir įklijuokite jį į užrašų bloko langą.
Dim message, sapi message = InputBox( "Ką turėčiau pasakyti, jūsų geekness?", "Aš kalbu už jus".) Nustatyti sapi = CreateObject( "sapi.spvoice") sapi. Speak pranešimasPo kodo įvedimo, tiesiog įrašykite failą kaip "Text to Speech.vbs", kaip parodyta anksčiau, norint užbaigti scenarijų.Kai tai bus išsaugota, eikite į vietą, kurioje ji yra, ir dukart spustelėkite ją.Jūs pastebėsite, kad šis langas vadinamas "Aš kalbu už jus", o raginimas įvesti vokalizuotą tekstą yra "Ką turėčiau pasakyti, jūsų geekiness"? Jūs visada galite tai pakeisti, kad pasakytumėte ką norite.
Šiuo metu leiskite mums įvesti "Geeks paveldės žemę", tada paspauskite mygtuką "OK", kad paleistumėte scenarijų ir girdėtumėte savo tekstą garsiai.
sveikinimai VBScript scenarijus
Tai vis gana įdomu, bet jūsų kompiuteris vis tiek nesusijęs su jumis labai. 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.
Nustatykite Sapi = Wscript. CreateObject( "SAPI.SpVoice") trumpa str if hour( time) & lt;12 tada Sapi.speak "Good Rorning Geekmeister", jei valandą( laiką) & gt;12 tuomet, jei valanda( laikas)>16 tada Sapi.speak "Labas vakaras Geekmeister" dar Sapi.speak "Geras popietės Geekmeister" pabaiga, jei pabaigoje, jei pabaigoje, jeiDabar galite išsaugoti tekstinį dokumentą kaip VBS failą.Kai tai padarysite, eikite į aplanką, kuriame jis išsaugotas, ir dukart spustelėkite jį.Atsižvelgiant į laiką, kurį rodo jūsų kompiuteris, jis sako "Labas rytas, gera popietė ar geras vakaro" Geekmeister ".
scenarijuje sakoma, kad jei laikrodis ką nors skaito prieš 12, tai yra rytas ir kad kas po 12 dienos yra popietė;tačiau ji taip pat turi sąlygą, kuri sako, net jei ji yra po 12 metų, kol laikas praėjo 16:00( 16:00), tai tampa vakaru.
Dienos laikas VBScript scenarijus
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 jūsų kompiuteriui, ką pasakyti ir kaip tai pasakyti pagal laiką, kuris rodomas jūsų kompiuterio laikrodyje. Jūs visada galite pakeisti "Dabartinis laikas" su bet kokiu įvedimu norimam laikui.
Nustatyti Sapi = Wscript. CreateObject( "SAPI.SpVoice") Sapi.speak "Dabartinis laikas yra", jei valanda( laikas) & gt;12 tada Sapi.speak valanda( laikas) -12 kitas, jei valanda( laikas) = 0 tada Sapi.speak "12" dar Sapi.speak valandos( laiko) pabaigoje, jei pabaigoje, jei minutė( laikas) & lt;10 tada Sapi.speak "o", jei minutė( laikas) & lt;1 tada Sapi.speak "clock" else Sapi.speak minute( time) end if else Sapi.speak minute( time) end if if hour( time) & gt;12 tuomet Sapi.speak "P.M."jei valanda( laikas) = 0, tada, jei minutė( laikas) = 0 tada Sapi.speak "Midnight" kitas Sapi.speak "A.M."pabandykite dar kartą, jei valanda( laikas) = 12, tada, jei minutė( laikas) = 0 tada sapi.speak "vidurdienis" kitaip Sapi.speak "P.M."pabaiga, jei dar Sapi.speak "A.M."end if end if end ifDabar jums reikia tik išsaugoti 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ą, ar tai būtų kietas, jei kompiuteris tai atliks, kai įjungsite kompiuterį.Tai iš tikrųjų yra labai lengva padaryti, jei tiesiog sujungsite du scenarijus ir įdėsite juos į reikiamą vietą.
Pradėkite, atidarę "Microsoft" užrašinę ir nukopijuodami šį 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ų.
Nustatyti Sapi = Wscript. CreateObject( "SAPI.SpVoice") Trumpa str if hour( time) & lt;12 tada Sapi.speak "Good Rorning Geekmeister", jei valandą( laiką) & gt;12 tuomet, jei valanda( laikas)>16 tada Sapi.speak "Labas vakaras Geekmeister" dar Sapi.speak "Geras popietės Geekmeister" pabaiga, jei pabaigoje, jei pabaigoje, jei Sapi.speak "Dabartinis laikas", jei valanda( laikas) & gt;12 tada Sapi.speak valanda( laikas) -12 kitas, jei valanda( laikas) = 0 tada Sapi.speak "12" dar Sapi.speak valandos( laiko) pabaigoje, jei pabaigoje, jei minutė( laikas) & lt;10 tada Sapi.speak "o", jei minutė( laikas) & lt;1 tada Sapi.speak "clock" else Sapi.speak minute( time) end if else Sapi.speak minute( time) end if if hour( time) & gt;12 tuomet Sapi.speak "P.M."jei valanda( laikas) = 0, tada, jei minutė( laikas) = 0 tada Sapi.speak "Midnight" kitas Sapi.speak "A.M."pabandykite dar kartą, jei valanda( laikas) = 12, tada, jei minutė( laikas) = 0 tada sapi.speak "vidurdienis" kitaip Sapi.speak "P.M."pabaiga, jei dar Sapi.speak "A.M."pabaiga, jei pabaigoje, jei pabaigoje, jei. Jei šį kodą visiškai nukopijuosite į užrašų knygutę, eik į priekį ir įrašykite jį kaip "Startup greeting.vbs".Jis taip pat gali būti vadinamas viskuo, ko nori, tačiau šio demonstravimo 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 norite, kad įjungtumėte kompiuterį, pvz., Jarvis iš "Iron Man", tiesiog pasirinkite failą ir vilkite jį pele žemyn iki mygtuko "Pradėti". Neleisdami pelės perkelti į "Visos programos", tadaraskite aplanką "Paleistis" ir paleiskite pelės mygtuką.
Jei dėl kokios nors priežasties tai jums neveikia, taip pat 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 tokį kelią į bet kurio "Explorer" lango viršų ir paspausti "Enter".Jums reikės pakeisti "USERNAME" pavadinimą, kurį naudosite savo kompiuterio paskyrai.
C: \ Vartotojai \ USERNAME \ AppData \ Roaming \ Microsoft \
Windows \ Start Menu \ Programs \ Startup
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, kokiu laiku jis yra.
Jei turite kokių nors problemų kurdami bet kuriuos scenarijus, jie visi gali atsisiųsti naudodami šias nuorodas.
- Geek testas
- Sveikinimas
- paleisties sveikinimas
- pasakojimo laikas
- teksto pokalbis