En liten (visuell) grunnleggende historie
I 1988 dukket opp den første iterasjonen av VBScript eller (Visual Basic Scripting Edition) og var fortsatt en veldig primitiv versjon av det vi har i dag. Gjennom årene har behovet for et brukervennlig og lett skriptspråk for Microsoft økt. På grunn av dette fortsatte selskapet å jobbe med det og endelig sluppet det til offentligheten i 1996.
Det er et enkelt skript som bruker COM (Component Object Model) til å lage, lese, oppdatere og slette filer i Microsoft-operativsystemer. Siden Windows 98 ble utgitt, har den blitt installert med hver datamaskin. Den er svært allsidig på grunn av at VBScript-vertsmiljøet kan integreres i programmer som bruker Microsoft Script Control. Den brukes ofte med Internet Information Services, Windows Script Host og Internet Explorer.
Men det er nok av den tekniske jibberjabberen. La oss komme deg til det og lære å få datamaskinen til å snakke!
Enkelt bruk VBScripts
Å lage et visuelt grunnleggende skript er veldig enkelt og krever ingen spesielle programmer. Selv om det er programmer du kan bruke til å skrive mer svært avanserte skript, bruker de fleste programmører og personer som dobler skriftlige skript bare Microsofts Notisblokk.
La oss starte prosessen ved å åpne Notisblokk. Etter at du har åpnet Notisblokk, trenger du bare å skrive inn følgende kode eller bare kopiere og lime den inn i notisblokken. For å endre hva skriptet gjør datamaskinen sier, bare erstatt avsnittet som sier "Nørdene skal arve jorden" med det du vil høre.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Nå, for å få tak i det, prøv å lage noen flere skript med hvilken som helst tekst du vil høre. Alternativt kan du høyreklikke på VBScript og velge alternativet "Åpne med …" og velg notisblokk for å redigere teksten i samme fil.
Tekst til taleskript
Nå som du vet hvordan du skriver et engangsskript og har sannsynligvis spilt med det noen ganger, kan du bli litt lei. Det er derfor vi skal sparke det oppe.
Den neste tingen vi skal lære, er hvordan du lager et skript som er litt mer avansert enn enkeltbruksskriptet. Dette vil opprette en dialogboks som du kan skrive inn tekst til og få den til å lese tilbake til deg av PCen.
Start med å åpne notisblokken igjen og skriv inn dette skriptet, eller kopier og lim det inn i notisblokken.
Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message
For nå, la oss skrive inn "Nørdene skal arve jorden", og trykk deretter på "OK" -knappen for å kjøre skriptet og høre teksten høyt.
Hilsen VBScript Script
Dette blir ganske morsomt, men datamaskinen er fortsatt ikke i samspill med deg veldig mye. Nå vil vi prøve et annet enkelt skript som tar hensyn til tidspunktet på dagen, samt det aktuelle svaret på tidspunktet for dagen. Dette skriptet vil lese datamaskinens tid og basert på det, vil det hilse på deg på en bestemt måte.
Start med å åpne notisblokken og sette inn dette korte skriptet. Du kan erstatte delen som har hilsen til dagen med en setning du vil høre, samt erstatte Geekmeister med ditt eget navn.
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
Skriptet forteller at hvis klokken leser noe før 12, er det morgen, og at alt etter 12 er ettermiddag; Men det har også en klausul som sier at selv om det er etter 12, så lenge tiden går forbi 16:00 (16:00) blir det kveld.
Tid på dagen VBScript Script
Hvis du vil bli litt mer avansert og motta tiden, kan du opprette en ny notisblokk og skrive inn dette skriptet.
Skriptet kan se komplisert ut, men det er egentlig å fortelle datamaskinen hva du skal si og hvordan du sier det basert på tiden som vises på datamaskinens klokke. Du kan alltid erstatte "Nåværende tid er" med en introduksjon for den tiden du vil ha.
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å trenger du bare å lagre filen som en VBScript som du gjorde i de forrige trinnene, og deretter navigere til den mappen. Hvis alt gikk bra, bør du kunne dobbeltklikke på det og høre at datamaskinen forteller deg tiden.
Oppstarthilsen
Nå som du vet hvordan du får datamaskinen til å hilse på deg og fortelle deg tid, hvor kult ville det være hvis datamaskinen ville gjøre det når du slår på datamaskinen. Det er faktisk veldig enkelt å gjøre hvis du bare kombinerer de to skriptene og legger dem på riktig sted.
Start med å åpne Microsoft notisblokk og kopier denne koden inn i vinduet. Det er bare en kopi av begge koder kombinert for deg. Husk at du kan bytte hilsen til "Hva skjer med dude, Hei Mester, Hilsen din allmektige høyhet," eller alt du vil at datamaskinen skal si til deg.
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
Når du har kopiert hele denne koden akkurat som den er, i notisblokk, fortsett og lagre den som "Oppstart greeting.vbs". Det kan også kalles alt du vil, men i denne demonstrasjonsformål er det lettere om vi er alle på samme side. Nå som det har blitt lagret, kan du dobbeltklikke på VBScript-filen for å høre at det hilser deg og forteller deg tiden.
Hvis det av en eller annen grunn ikke fungerer for deg, kan du også manuelt navigere til oppstartsmappen. Du vil først gå til mappen der "Startup greeting.vbs" er lagret og kopiere den. Det neste trinnet er å skrive følgende sti inn i toppen av et hvilket som helst Utforsker-vindu, og trykk "Enter". Du må bare endre USERNAME med navnet du bruker til datamaskinen din.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
Når du er i oppstartsmappen, bare lim inn VBS-filen, og du er god å gå. Nå, neste gang du starter datamaskinen og logger på, bør den automatisk hilse på deg og informere deg om hvilken tid det er.
- Geek Test
- Hilsen
- Oppstarthilsen
- Si hva klokka er
- Tekst til tale
