1. This forum is in read-only mode.

Random .vbs codes (as collected from the internet)

Discussion in 'Forum Games, Jokes & Random' started by kyrodon, Feb 14, 2010.

  1. kyrodon

    kyrodon Guest

    Okay so I was reading the fake error thread so I did some research.


    Stupidity Shutdown
    *This pops up a funny message then will shutdown the computer

    CODE@echo off
    msg * Fatal system error due to admin stupidity!
    shutdown -c "Error! You are too stupid!" -s -t 10

    -Endless Notepads
    *This will pop up endless notepads until the computer freezes and crashes*


    CODE@ECHO off
    :top
    START %SystemRoot%\system32\notepad.exe
    GOTO top

    -Crazy caps lock
    *This constantly turns caps lock on and off really fast continuously*

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

    -Endless Enter
    *This constantly makes it so the enter button is being pressed continuesly*

    CODESet wshShell = wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "~(enter)"
    loop

    -Endless Backspace
    *This makes it so the backspace key is constantly being pressed*

    CODEMsgBox "Let's go back a few steps"
    Set wshShell =wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "{bs}"
    loop

    -Popping CD Drives
    *This will make the CD drives constantly pop out*

    CODESet 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
    End If
    wscript.sleep 100
    loop



    Simply copy and paste them to note pad, save them as .vbs and you're good to prank somebody.
    I take no credit from these codes, they were all gathered from the internet. I just collected them.

    Edit: i got another one

    Code:
    Set wshShell = wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "You are a fool."
    loop

    VBS script that keeps typing "you are a fool!"
     
  2. yoshi2889

    yoshi2889 Well-Known Member

    Really cool, gonna send the ''Endless notepad'' one to my rival :D
     
  3. kyrodon

    kyrodon Guest

    lol, i'd recomend the you are a fool and the continuous enter xD
     
  4. yoshi2889

    yoshi2889 Well-Known Member

    Or all in once, that results in a PC crash...
     
  5. kyrodon

    kyrodon Guest

    Personally, i dont think you should crash it, do something to annoy them, i mean like go onto thier computer when tey're not there and run the open disk drives code.