
Joseph Goodman
0
3259
170
Der er en masse sjove pranks, du kan spille på dine venner med en computer. Du har sandsynligvis set alle disse uhyggelige YouTube-videoer 14 mest populære YouTube-sladder, du kan spille på dine venner 14 mest populære YouTube-slynger, som du kan spille på dine venner. Er du ikke bare vild med at spille slynger på andre mennesker? Det gør jeg bestemt, så længe jeg ved, at det ikke vil resultere i, at den eller de andre personer ønsker at dræbe mig. At holde ting sjove hjælper med at opbygge forbindelser ... at folk videresender til hinanden for en god skræmme. For ikke længe siden dækkede Justin et par virkelig sjove måder at prank dine forældre på 4 sjove måder at prank dine forældre med familie computeren 4 sjove måder at prank dine forældre med familie computeren med en computer også. Alle disse ideer er sjove, men i år, hvad med at krybe dine venner lidt ud med din helt egen programmeringsevne?
I denne artikel vil jeg vise dig, hvordan du kan oprette dit eget lille Windows-script, der kører på næsten enhver moderne Windows-computer. Alt hvad du skal gøre er at åbne Notepad, skrive dette script, gemme det som en .wsf-fil og derefter lade dine venner åbne filen. Skriptet åbner automatisk Notepad og begynder derefter at skrive - komplet med skrivemaskine lydeffekter - ligesom computeren selv er besat af et skrive spøgelse.
Den ægte skønhed ved dette lille script er, hvor kreativ du er med at lancere det. Indsæt den i computerens startmappe, så den starter, når computeren starter, eller erstatt en af deres foretrukne skrivebordsgenveje for at linke til din fil i stedet for deres applikation!
Scripting En besat maskinskrivning af computere
Ideen til dette kom fra en oplevelse på college, da jeg gik forbi et professorskontor og så, at han havde en gammel DOS-computer, der skrev helt alene. Han var en computer videnskabsprofessor, og han havde klart skrevet et DOS-program, der kunne skrive alt i sig selv, komplet med lydeffekter, pauser og alt. Meget autentisk. I denne artikel skal du gøre det samme, bare med Windows og bruge VB Script til at udføre jobbet. Jeg leder dig gennem processen.
Første trin - download en skrivemaskine-WAV-fil fra en af dine foretrukne gratis WAV-filwebsteder SoundBible: Gratis at downloade MP3 & WAV-lyde SoundBible: Gratis at downloade MP3 & WAV-lyde .
Download helst en, der varer fra 30 sekunder til et minut, afhængigt af hvor meget tekst du ønsker, at din fantomapp skal skrive på skærmen af sig selv. Gem filen i c: / windows / Medier / med resten af Windows-lydfilerne, så det bliver let at finde senere.
Åbn derefter en tekstfil og gem den som en .wsf-fil. I mit tilfælde kaldte jeg det “phantomtype.wsf“. Angiv alle de nødvendige variabler, opsæt dit link til tekstfil, og skriv derefter den tekst, du vil have, at din skrivende ghost-app skal skrive på skærmen.
Alternativ eksplicit ved fejl Genoptag næste Dim NoteShell Dim SoundShell Dim strText Dim intTextLen Dim x Dim intPause Dim strTempText strSoundFile = "C: \ Windows \ Media \ typewriter1.wav" strText = "Hej. Mit navn er Ryan. Jeg har besat din computer
og der er intet, du kan gøre ved det. Selvfølgelig antager jeg dig
kan altid lukke vinduet, hvis du vil, men det ville ikke være sjovt! "
Temmelig simpel så langt ikke? De to “Skal” variabler er dybest set shell-kommandoerne, der skal starte Notepad og din lydfil. Fantometypen kommer fra dit script, der sender tastetryk til Notepad-appen bag kulisserne. At opnå det er let - du bruger bare “CreateObject” at opsætte dine to applikationsobjekter og derefter starte hver app og vente en lille smule mellem hver lancering.
Sæt NoteShell = CreateObject ("WScript.Shell") Indstil SoundShell = CreateObject ("Wscript.Shell") NoteShell.Run "notepad" WScript.Sleep 1000 SoundShell.Run "C: \ Windows \ Media \ typewriter1.wav", 0, Ægte WScript.Sleep 500
Nu vil offeret se Notepad dukke op på skærmen, og efter et sekund starter skrivemaskine-indtastningslyden. I det øjeblik vil du begynde at sende spøgelsesrig tekst til skærmen, ligesom nogen sidder der og skriver. Her er hvordan den del fungerer.
intTextLen = Len (strText) intPause = 100 For x = 1 til intTextLen strTempText = Mid (strText, x, 1) NoteShell.SendKeys strTempText WScript.Sleep intPause Hvis intPause <= 500 Then intPause = intPause + 100 Else intPause = 100 End If Next
Dette kan se kompliceret ud, men rolig, det er slet ikke. Den første linje kontrollerer længden af den lange tekststreng, som du indtastede i starten af dette program. Det er den tekst, du magisk skal vises - et bogstav ad gangen - på skærmen. Den næste linje opretter en startpause (en tiendedel af et sekund) mellem hvert indtastet bogstav.
For-løkken, som du ser nedenfor, der dybest set starter på position 1, udtrækker et enkelt bogstav fra din tekst, sender dette brev til Notepad og venter derefter lidt, før du går videre til det næste bogstav i din tekst. Temmelig sej hej?
Og for at holde tingene autentiske, det lille “HVIS” udsagn fortsætter med at tilføje og trække pausetid mellem indtastede bogstaver for at få det hele til at se virkelig autentisk ud, som om nogen sidder lige der og skriver.
Luk nu scriptet op.
WScript.Quit
Gem filen igen - sørg for, at du har “WSF” udvidelse - og du er færdig. Dobbeltklik på filen, og tjek din hjemsøgte computer!
Her er mit script i aktion (jeg ville ønske, at du kunne høre skrivelydene, det er et optøjer!)
Som de fleste programmer, kan det bruge lidt perfektion, hvis du er klar til det. Lydfilen skal matche den mængde tid, det tager for indtastningen at afslutte. Eller du kan sløjfe både indtastningen og lyden, men du bliver nødt til at finde ud af en måde at lade personen lukke skrivespøgelsesprogrammet. Hvis du ikke gør det, “SendKeys” vil bare fortsætte med at skrive, uanset hvilket vindue de åbner ... hvilket faktisk er en ret morsom viruslignende opførsel, men ikke noget, som jeg vil anbefale dig at gøre til dine venner.
Så prøv dette uhyggelige lille manuskript og lad os vide, hvad dine venner syntes om det. Opdagede du nogen andre måder at perfeksjonere det på? Del dine tanker i kommentarfeltet nedenfor.
Billedkredit: Shutterstock