Dumme Geek triks Hvordan lage datamaskinen din snakke med deg

Intelligente maskiner som er i stand til å tale, er ofte ting av futuristiske sci-fi-filmer, men du kan slå hvilken som helst datamaskin til en chatty Cathy. Selv om vi ennå ikke er på scenen med datamaskiner hvor de kan samhandle med oss som mennesker, er det noen få verktøy og enkle skript vi kan skrive for å lage en hvilken som helst datamaskin som kjører Windows, snakker til oss.

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 seg 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 finnes programmer du kan bruke til å skrive mer 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 "Nørdene skal arve jorden"

Etter at du har skrevet inn teksten du ønsker å høre, trykk bare på "File", og klikk på "Lagre som ..." -alternativet.

Finn et sted hvor du vil lagre bildet. For dette eksempelet lagrer jeg det i en tom mappe i nedlastingsmappen. Det viktige du må gjøre er å gi det et navn som slutter med .vbs. Dette vil fortelle datamaskinen at du ikke lagrer en ren tekstfil; heller, du lagrer en VBScript. Vi vil nevne denne prøven "Geek test.vbs" som vist nedenfor.

Nå kan du gå videre og lukke notisblokken og navigere til mappen der du lagret VBScript. Du vil merke at ikonet ikke er det vanlige TXT-ikonet. Det er en liten blå rulle på en hvit bakgrunn. Dobbeltklikk på dette ikonet for å starte ditt enkeltbruksskript og lytt til teksten. Gratulerer, du har nettopp opprettet ditt første skript.

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 single-use scriptet. Dette vil skape 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 melding, sapi message = InputBox ("Hva skal jeg si, din Geekness?", "Jeg snakker for deg.") Angi sapi = CreateObject ("sapi.spvoice") sapi.Speak melding

Etter at koden er oppgitt, lagrer du filen som "Tekst til Speech.vbs" som vist tidligere for å fullføre skriptet. Når den er blitt lagret, naviger til stedet der den er, og dobbeltklikk på den. Du vil legge merke til at vinduet heter "Jeg snakker for deg." Og spørsmålet om å skrive inn tekst som skal vokaliseres er "Hva skal jeg si, din Geekiness?" Du kan alltid endre disse for å si alt du vil ha.

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.

Sett Sapi = Wscript.CreateObject ("SAPI.SpVoice") dim str om time (tid) 12 så hvis time (tid)> 16 da Sapi.speak "God kveld Geekmeister" ellers Sapi.speak "God ettermiddag Geekmeister" slutt hvis slutt hvis slutt hvis

Nå kan du lagre tekstdokumentet som en VBS-fil. Når du har gjort det, gå til mappen der den er lagret og dobbeltklikk på den. Basert på den tiden datamaskinen viser, vil det enten si "God morgen, god ettermiddag eller god kveld Geekmeister."

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.

Sett Sapi = Wscript.CreateObject ("SAPI.SpVoice") Sapi.speak "Nåværende tid er"

hvis time (tid)> 12 da Sapi.speak time (tid) -12 annet hvis time (tid) = 0 så Sapi.speak "12" ellers Sapi.speak time (tid) avslutt hvis slutt hvis

hvis minutt (tid) < 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

hvis time (tid)> 12 da Sapi.speak "P.M." ellers hvis time (tid) = 0 da om minutt (tid) = 0 så Sapi.speak "Midnight" ellers Sapi.speak "A.M." slutt hvis ellers hvis time (tid) = 12 så hvis minutt (tid) = 0 så Sapi.speak "Noon" ellers Sapi.speak "P.M." avslutt hvis ellers Sapi.speak "A.M." slutt hvis slutt hvis slutt hvis

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 hva du vil at datamaskinen skal si til deg.

Sett Sapi = Wscript.CreateObject ("SAPI.SpVoice") dim str om time (tid) 12 så hvis time (tid)> 16 da Sapi.speak "God kveld Geekmeister" ellers Sapi.speak "God ettermiddag Geekmeister" slutt hvis slutt hvis slutt hvis Sapi.speak "Nåværende tid er"

hvis time (tid)> 12 da Sapi.speak time (tid) -12 annet hvis time (tid) = 0 så Sapi.speak "12" ellers Sapi.speak time (tid) avslutt hvis slutt hvis

hvis minutt (tid) < 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

hvis time (tid)> 12 da Sapi.speak "P.M." ellers hvis time (tid) = 0 da om minutt (tid) = 0 så Sapi.speak "Midnight" ellers Sapi.speak "A.M." slutt hvis ellers hvis time (tid) = 12 så hvis minutt (tid) = 0 så Sapi.speak "Noon" ellers Sapi.speak "P.M." avslutt hvis ellers Sapi.speak "A.M." slutt hvis slutt hvis slutt hvis

Når du har kopiert hele koden nøyaktig slik 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 du vil at den skal spille når du slår på datamaskinen, liker Jarvis fra Iron Man, bare velg filen og dra den med musen ned til "Start-knappen." Uten å slippe musen flytte den til "Alle programmer" og finn deretter "Oppstart" -mappen og slipp museknappen.

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: \ Users \ brukernavn \ AppData \ Roaming \ Microsoft \
Windows \ Startmeny \ Programmer \ Oppstart

Når du er i oppstartsmappen, bare lim inn vbs-filen, og du er god til å 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.

Hvis du hadde problemer med å lage noen av skriptene, er de alle gratis å laste ned ved hjelp av disse koblingene.

Geek Test
Hilsen
Oppstarthilsen
Si hva klokka er
Tekst til tale