Väike (visuaalne) põhi ajalugu
Aastal 1988 ilmnes esimene VBScript või (Visual Basic Scripting Editioni) iteratsioon ja see oli täna väga primitiivne versioon. Aastate jooksul on Microsoft vaja kasutada hõlpsasti kasutatavat ja kerget skriptikeelt Microsoftile. Sel põhjusel jätkas ettevõte seda tööd ja lõpuks avaldas selle 1996. aastal avalikkusele.
See on lihtne skript, mis kasutab COM (Component Object Model) failide loomiseks, lugemiseks, värskendamiseks ja kustutamiseks Microsofti operatsioonisüsteemides. Windows 98-st vabastati see installitud igasse arvutisse. See on väga mitmekülgne, kuna VBScript-hostkeskkonda saab programmi Microsoft Script Control abil sisse lülitada. Seda kasutatakse sageli Interneti infoteenuste, Windows Script Hosti ja Internet Exploreri abil.
Kuid sellel on piisavalt tehnilist vibreerijat. Lase käia ja õppida, kuidas teie arvuti rääkida!
Ühekordse kasutamise VBScripts
Visuaalse baasskripti loomine on väga lihtne ja ei vaja mingeid eriprogramme. Kuigi on olemas programme, mida saab kirjutada rohkem kõrgelt arenenud skripte, enamik programmeerijaid ja inimesi, kes oskavad kirjutada skripte lihtsalt kasutada Microsofti Notepad.
Alustame protsessi, avades Notepad. Kui olete Notepad avanud, peate lihtsalt sisestama järgmise koodi või lihtsalt kopeerima ja kleepida selle märkme akna aknasse. Selleks, et muuta seda, mida teie skript arvuti abil ütleb, asenda lihtsalt jaotis, mis ütleb: "Geeksid peavad pärima maa" igaks, mida soovite kuulda.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Nüüd, kui soovite selle riputada, proovige luua mõne teise skripti mis tahes tekstiga, mida soovite kuulda. Teise võimalusena võite klõpsata VBScript-i paremal hiireklõpsuga ja valida "Avada koos …" ja valida sama faili teksti redigeerimiseks märkmik.
Teksti kõnekscript
Nüüd, kui sa tead, kuidas kirjutada ühekordseks kasutamiseks mõeldud skripti ja ilmselt mängida seda mõne korraga, võib natuke natuke igav olla. Sellepärast me kavatseme seda üles tõsta.
Järgmine asi, mida me õpime, on see, kuidas luua skripti, mis on veidi edenenud kui ühekordse kasutusega skript. Sellega luuakse dialoogiboks, mille abil saate sisestada teksti ja seda, et arvutisse on see teie poolt loendatud.
Alusta avage oma märkmik uuesti ja sisestage see skript või kopeerige ja kleepige see märkme akna aknasse.
Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message
Praegu sisestage "Geeksid peavad pärima maa", seejärel vajutage "OK" nuppu, et käivitada skript ja kuulda oma teksti valjusti.
Tervitus VBScript-skript
See muutub päris naljaks, kuid teie arvuti ikka ei suhtle teiega väga. Nüüd proovime veel ühte lihtsat skripti, mis võtab arvesse päeva kellaaega ja asjakohast vastust päeva aja kohta. See skript loeb teie arvuti aega ja põhineb sellel, et see tervitab teid kindlalt.
Alustage oma märkmiku avamisega ja lisage see lühike skript. Saate asendada osa, millel on päeva tervitused, mis tahes fraasiga, mida soovite kuulda, ja asendada Geekmeister oma nimega.
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
Skript ütleb, et kui kell loeb midagi enne 12, on hommikul ja pärast kella 12 pärast on pärastlõunal midagi; aga on ka klausel, mis ütleb, et isegi kui see on pärast 12, senikaua, kui aeg on kell 16.00 (16.00), muutub see õhtuseks.
Päevase päeva VBScript-skript
Kui soovite saada natuke rohkem arenenud ja aega saada, saate luua uue märkmepaberi ja sisestada selle skripti.
Skript võib olla keeruline, kuid see tähendab sisuliselt arvutile seda, mida öelda ja kuidas seda öelda, võttes aluseks aja, mis kuvatakse teie arvuti kellaajal. Võite alati asendada "praegune kellaaeg" mis tahes sissejuhatuses teie soovitud aja jooksul.
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
Nüüd peate lihtsalt salvestama faili VBScript-failina nagu eelmistes etappides ja seejärel liikuge sellele kausta. Kui kõik läks hästi, peaksite sellel topeltklõpsama ja kuulda, et arvuti ütleb teile aja.
Käivitamise tervitus
Nüüd, kui sa tead, kuidas oma arvutit tervitada ja aeg teile öelda, kui lahe oleks see, kui arvuti teeks seda arvuti sisselülitamisel. Seda on tegelikult väga lihtne teha, kui ühendate lihtsalt kaks skripti ja asetage need õigesse kohta.
Alusta, avage Microsoft notepad ja kopeerige see kood aknale. See on lihtsalt teie jaoks koondatud mõlema koodi koopia. Ärge unustage, et saate muuta tervitust "Milline on üles kutt, tere magister, tervitused teie kõikvõimsaks kõrgeks" või midagi, mida teie arvuti teie jaoks ütleks.
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
Kui olete kogu selle koodi kopeerinud täpselt nii, nagu see on, märkmikusse, jätkake ja salvestage see "Startup greeting.vbs". Seda saab nimetada ka kõigile, mida soovite, kuid selle tutvustamise eesmärgil on lihtsam, kui me kõik oleme samal lehel. Nüüd, kui see on salvestatud, võite topeltklõpsuga VBScript-faili kuulata, et see tervitab teid ja ütleb teile aja.
Kui mingil põhjusel see teie jaoks ei toimi, saate ka käivituskausta käsitsi liikuda. Esmalt minge kausta, kuhu salvestatakse teie "Startup greeting.vbs" ja kopeerige see. Järgmine samm on sisestada järgmine tee iga Exploreri akna ülaosale ja vajutada "Enter". Peate lihtsalt muutma USERNAME nimega, mida kasutate oma arvuti kontol.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
Kui olete käivituskaustas, lihtsalt kleepige vbs-fail ja teil on hea minna. Nüüd, kui käivitate arvuti järgmisel korral ja logige sisse, peaks see automaatselt tervitama ja teavitama teid sellest, millal see on.
- Geeki test
- Tervitus
- Käivitamise tervitus
- Telli aega
- Tekst kõneks