
Michael Cain
0
4163
107
Existuje spousta zábavných žertů, které můžete hrát s přáteli pomocí počítače. Pravděpodobně jste už viděli všechna ta strašidelná videa na YouTube. 14 Nejoblíbenější žerty na YouTube, které můžete hrát se svými přáteli 14 Nejoblíbenější žerty na YouTube, které můžete hrát na svých přátel. Určitě ano, pokud vím, že to nepovede k tomu, že by mě někdo chtěl zabít. Udržování vtipných věcí pomáhá budovat spojení ... že lidé se k sobě navzájem dobře vyděsí. Není to tak dávno, co Justin popsal několik opravdu zábavných způsobů, jak žertovat své rodiče. 4 vtipné způsoby, jak žertovat své rodiče s rodinným počítačem Všechny tyto nápady jsou zábavné, ale letos, co takhle vylézat své přátele trochu s vaší vlastní programovací dovedností?
V tomto článku vám ukážu, jak si můžete vytvořit svůj vlastní malý skript systému Windows, který bude běžet téměř na jakémkoli moderním počítači se systémem Windows. Jediné, co musíte udělat, je otevřít Poznámkový blok, napsat tento skript, uložit jej jako soubor .wsf a poté nechat přátele otevřít soubor. Skript automaticky otevře Poznámkový blok a poté začne psát - kompletní se zvukovými efekty psacího stroje - stejně jako počítač vlastní posedlý duch.
Skutečnou krásou tohoto malého skriptu je, jak kreativní jste se jeho spuštěním. Vložte ji do spouštěcí složky počítače, aby se spouštěla při spuštění počítače, nebo nahraďte jeden z jejich oblíbených zkratek na ploše a odkazujte na soubor místo na aplikaci.!
Skriptování posedlého psaní počítače
Myšlenka na to přišla ze zkušenosti na vysoké škole, když jsem prošel kolem profesorské kanceláře a viděl jsem, že má starý počítač DOS, který píše sám. Byl profesorem informatiky a jasně napsal program pro DOS, který dokázal psát všechny sám, doplněný zvukovými efekty, pauzy a všechno. Velmi autentické. V tomto článku budete dělat totéž, jen s Windows a pomocí VB Script k dokončení úlohy. Projdu vás procesem.
První krok - stáhněte soubor WAV psacího stroje z libovolného z vašich oblíbených webových stránek se soubory WAV zdarma SoundBible: Zdarma ke stažení MP3 a WAV Soundsible: Zdarma ke stažení MP3 a WAV Sounds .
Nejlépe si stáhněte ten, který trvá od 30 sekund do minuty, v závislosti na tom, kolik textu chcete, aby vaše fantomová aplikace sama psala na obrazovku. Uložte soubor do c: / windows / Media / se zbytkem zvukových souborů systému Windows, takže je snadné je najít později.
Dále otevřete textový soubor a uložte jej jako soubor .wsf. V mém případě jsem to nazval “phantomtype.wsf“. Deklarujte všechny požadované proměnné, nastavte odkaz na textový soubor a potom zadejte text, který má vaše duchová psaní na obrazovce psát.
Možnost Explicitní při chybě Pokračování Další Dim PoznámkaShell Dim SoundShell Dim strText Dim intTextLen Dim x Dim intPause Dim strTempText strSoundFile = "C: \ Windows \ Media \ typewriter1.wav" strText = "Dobrý den. Jmenuji se Ryan. Vlastnil jsem váš počítač
a s tím nemůžete dělat nic. Samozřejmě, myslím, že
můžete okno vždy zavřít, ale to by nebylo zábavné! “
Zatím je to docela jednoduché? Dva “Shell” Proměnné jsou v podstatě příkazy shellu, které se chystají spustit Poznámkový blok a váš zvukový soubor. Fantomové psaní přijde z vašeho skriptu, který posílá stisky kláves do aplikace Poznámkový blok za scénami. To je snadné - stačí použít “CreateObject” nastavit dva objekty aplikace a poté spustit každou aplikaci, počkat mezi každým spuštěním nepatrně.
Nastavit NoteShell = CreateObject ("WScript.Shell") Nastavit SoundShell = CreateObject ("Wscript.Shell") NoteShell.Run "Poznámkový blok" WScript.Sleep 1000 SoundShell.Run "C: \ Windows \ Media \ typewriter1.wav", 0, Pravda WScript.Sleep 500
Oběť nyní uvidí na obrazovce vyskakovací poznámkový blok a za sekundu se začne psát zvuk psaní. V tu chvíli začnete na obrazovku posílat strašidelný text, stejně jako tam někdo sedí a píše. Tady je, jak tato část funguje.
intTextLen = Len (strText) intPause = 100 Pro x = 1 do intTextLen strTempText = Mid (strText, x, 1) NoteShell.SendKeys strTempText WScript.Sleep intPause Pokud intPause <= 500 Then intPause = intPause + 100 Else intPause = 100 End If Next
Může to vypadat komplikovaně, ale nebojte se, není to vůbec. První řádek kontroluje délku dlouhého řetězce textu, který jste zadali na začátku tohoto programu. To je text, který chcete magicky objevit - po jednom písmenu - na obrazovce. Další řádek vytvoří počáteční pauzu (desetinu sekundy) mezi každým zadaným písmenem.
Smyčka For, kterou vidíte níže, která v podstatě začíná na pozici 1, extrahuje z vašeho textu jediné písmeno, odešle toto písmeno do programu Poznámkový blok a poté chvíli počká, než se přesune k dalšímu písmenu v textu. Docela v pohodě, hm?
A aby věci zůstaly autentické, tak málo “LI” prohlášení udržuje přidávání a odečítání pauzy mezi psanými písmeny, aby celá věc vypadala opravdu autenticky, jako by tam někdo seděl a psal.
Nyní zavřete skript.
WScript.Quit
Uložte soubor znovu - ujistěte se, že máte “wsf” rozšíření - a máte hotovo. Poklepejte na soubor a podívejte se na váš strašidelný počítač!
Tady je můj skript v akci (přeji si, abys slyšel psací zvuky, je to nepokoje!)
Stejně jako většina programů, i když jste na to, mohl by trochu vylepšit. Zvukový soubor musí odpovídat množství času potřebného k dokončení psaní. Nebo byste mohli opakovat psaní i zvuk, ale budete muset vymyslet způsob, jak nechat osobu zavřít aplikaci duchů psaní. Pokud tak neučiníte, “sendkeys” bude pokračovat v psaní bez ohledu na to, jaké okno se otevírají ... což je vlastně docela vtipné chování podobné virům, ale ne něco, co bych vám doporučil udělat svým přátelům.
Vyzkoušejte tento strašidelný malý skript a dejte nám vědět, co si o něm vaši přátelé mysleli. Přišli jste s jinými způsoby, jak to vylepšit? Sdílejte své myšlenky v sekci komentářů níže.
Obrázek Kredit: Shutterstock