7Jul

Dumme Geek Tricks: Hvordan få datamaskinen til å 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 å gjøre 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 til slutt løslatt 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-operativsystemene. 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!

Single Use 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 "Nerdene skal arve jorden"

Etter at du har skrevet inn teksten du ønsker å høre, trykk bare på "File" og klikk på "Save"Som. .. "alternativ.

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.

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.

Begynn 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 skrevet inn, bare lagre filen som "Text to 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 merke 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.

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 virker fortsatt ikke 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 ved å å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 hvis time( tid) & lt;12 da Sapi.speak "Good Morning Geekmeister" ellers hvis time( tid) & gt;12 da hvis time( tid) & gt;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) & gt;12 da Sapi.speak time( tid) -12 annet hvis time( tid) = 0 da Sapi.speak "12" ellers Sapi.speak time( tid) avslutt hvis slutt hvis om minutt( tid)10 da Sapi.speak "o" hvis minutt( tid) & lt;1 deretter Sapi.speak "klokke" annet Sapi.speak minutt( tid) ende hvis ellers Sapi.speak minutt( tid) ende hvis om time( tid) & gt;12 da Sapi.speak "P.M."ellers hvis time( tid) = 0 da hvis 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."slutt hvis ellers Sapi.speak "A.M."avslutte 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.

Oppstart Hilsen

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 ved å å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.

Sett Sapi = Wscript. CreateObject( "SAPI.SpVoice") dim str hvis time( tid) & lt;12 da Sapi.speak "Good Morning Geekmeister" ellers hvis time( tid) & gt;12 da hvis time( tid) & gt;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) & gt;12 da Sapi.speak time( tid) -12 annet hvis time( tid) = 0 da Sapi.speak "12" ellers Sapi.speak time( tid) avslutt hvis slutt hvis om minutt( tid)10 da Sapi.speak "o" hvis minutt( tid) & lt;1 deretter Sapi.speak "klokke" annet Sapi.speak minutt( tid) ende hvis ellers Sapi.speak minutt( tid) ende hvis om time( tid) & gt;12 da Sapi.speak "P.M."ellers hvis time( tid) = 0 da hvis 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."slutt hvis ellers Sapi.speak "A.M."avslutte hvis slutt hvis slutt hvis

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 du vil at den skal spilles 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" dafinn mappen "Oppstart" 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 inn følgende bane 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: \ Brukere \ USERNAME \ AppData \ Roaming \ Microsoft \
Windows \ Startmeny \ Programmer \ Oppstart

Når du er i oppstartsmappen, limer du bare 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 har problemer med å lage noen av skriptene, er de alle gratis å laste ned ved hjelp av disse linkene.

  1. Geek Test
  2. Hilsen
  3. Oppstart Hilsen
  4. Fortellstid
  5. Tekst til tale