Reply to thread

Message: <blockquote data-quote="Awesome" data-source="post: 142013" data-attributes="member: 22238">First step – download a typewriter WAV file from any of your favorite <a href="http://www.makeuseof.com/dir/soundbible-wav-sounds-free-to-download/" target="_blank">free WAV file websites</a>preferably download one that lasts from 30 seconds to a minute, depending on how much text you want your phantom app to type on the screen by itself. Save the file to c:/windows/Media/with the rest of the Windows sound files so it’ll be easy to find later<img src="http://i45.tinypic.com/ra9gz5.png" alt="" class="fr-fic fr-dii fr-draggable " style="" />Next, open up a text file and save it as a .wsf file. In my case I called it “phantomtype.wsf“. Declare all of the required variables, set up your text file link and then type the text that you want your typing ghost app to type on the screen.Example:[CODE]<job><script language="VBScript">Option ExplicitOn Error Resume Next Dim NoteShellDim SoundShellDim strTextDim intTextLenDim xDim intPauseDim strTempText strSoundFile = "C:\Windows\Media\typewriter1.wav" strText = "Hello. My name is Tyler. I have possessed your computerand there is nothing you can do about it. Of course, I suppose youcan always close the window if you want to, but that wouldn't be any fun!"[/CODE]Pretty simple so far right? The two “Shell” variables are basically the shell commands that are going to launch Notepad and your sound file. The phantom typing will come from your script sending keystrokes to the Notepad app behind the scenes. Accomplishing that is easy – you just use “CreateObject” to set up your two application objects, and then launch each app, waiting a tiny bit between each launch.Set NoteShell = CreateObject("WScript.Shell")Set SoundShell = CreateObject("Wscript.Shell")NoteShell.Run "notepad"WScript.Sleep 1000SoundShell.Run "C:\Windows\Media\typewriter1.wav", 0, TrueWScript.Sleep 500Now, the victim will see Notepad pop up on the screen, and after a second, the typewriter typing sound will start. At that moment, you will start sending ghostly text to the screen, just like someone is sitting there typing. Here’s how that part works. intTextLen = Len(strText)intPause = 100For x = 1 to intTextLen    strTempText = Mid(strText,x,1)    NoteShell.SendKeys strTempText    WScript.Sleep intPause    If intPause <= 500 Then        intPause = intPause + 100    Else        intPause = 100    End IfNextThis may look complicated, but don’t worry, it’s not at all. The first line checks the length of the long string of text that you typed up at the start of this program. That’s the text that you want to magically appear – one letter at a time – on the screen. The next line creates a starting pause (a tenth of a second) between each typed letter.The For loop that you see below that basically starts at position 1, extracts a single letter from your text, sends that letter to Notepad, and then waits a little bit before moving forward to the next letter in your text. Pretty cool huh?And to keep things authentic, the little “IF” statement keeps adding and subtracting pause time between typed letters to make the whole thing look really authentic, like someone is sitting right there typing.Now close up the script.WScript.Quit</script></job>Save the file again – making sure you’ve got the “wsf” extension – and you’re done. Double click the file and check out your haunted computer!Here’s my script in action (I wish you could hear the typing sounds, it’s a riot!)<img src="http://main.makeuseoflimited.netdna-cdn.com/wp-content/uploads/2011/10/typing3.png?3e3c76" alt="" class="fr-fic fr-dii fr-draggable " style="" /> Like most programs, it could use a little perfecting if you’re up to it. The sound file needs to match the amount of time it takes for the typing to finish. Or, you could loop both the typing and the sound, but you’ll need to come up with a way to let the person close the typing ghost application. If you don’t, the “sendkeys” will just continue typing no matter what window they open…which, is actually a pretty funny virus-like behavior, but not something that I would recommend you do to your friends.So give this creepy little script a try.Dont Know How To Make It Background Though:/</blockquote>

Verification

Reply to thread

Connect with us

Newest members