Like So it shows you like It writes Hello , Welcome one by one letter and its not just a plain text auto loaded..
<job>
<script language="VBScript">
Option Explicit
On Error Resume Next
Dim NoteShell
Dim SoundShell
Dim strText
Dim intTextLen
Dim x
Dim intPause
Dim strTempText
strSoundFile = "C:\Windows\Media\typewriter1.wav"
strText = "Hello. My name is Tyler. I have possessed your computer
and there is nothing you can do about it. Of course, I suppose you
can always close the window if you want to, but that wouldn't be any fun!"
Can you show me a pic /vid of final results please..First step – download a typewriter WAV file from any of your favoriteYou must be registered for see links
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
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:
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.Code:<job> <script language="VBScript"> Option Explicit On Error Resume Next Dim NoteShell Dim SoundShell Dim strText Dim intTextLen Dim x Dim intPause Dim strTempText strSoundFile = "C:\Windows\Media\typewriter1.wav" strText = "Hello. My name is Tyler. I have possessed your computer and there is nothing you can do about it. Of course, I suppose you can always close the window if you want to, but that wouldn't be any fun!"
Set NoteShell = CreateObject("WScript.Shell")
Set SoundShell = CreateObject("Wscript.Shell")
NoteShell.Run "notepad"
WScript.Sleep 1000
SoundShell.Run "C:\Windows\Media\typewriter1.wav", 0, True
WScript.Sleep 500
Now, 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 = 100
For 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 If
Next
This 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!)
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:/