Can you get a moving logon screen?

Awesome

Member
Sep 8, 2012
54
0
First step – download a typewriter WAV file from any of your favorite
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
ra9gz5.png

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 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!"
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 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!)
typing3.png
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:/
 

BIOS

ಠ‿ಠ
Apr 25, 2012
906
247
First step – download a typewriter WAV file from any of your favorite
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
ra9gz5.png

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 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!"
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 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!)
typing3.png

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:/
Can you show me a pic /vid of final results please..
 

Users who are viewing this thread

Top