FUNNY FUNNY FUNNY

Billl Gates

Well-known member
  • May 4, 2008
    11,573
    82
    48
    39
    Pita KOtte
    MAKE THE DVD DRIVE GO IN AND OUT


    Set oWMP = CreateObject("WMPlayer.OCX.7" )
    Set colCDROMs = oWMP.cdromCollection
    if colCDROMs.Count >= 1 then
    do
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next ' cdrom
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next ' cdrom
    loop
    End If



    copy this script in notepad and save as run.vbs
    u'll see a magic that ur cd-rom is running in and out


    To stop, launch task manager and then under "Processes" end wscript.exe
     
    Last edited:

    Billl Gates

    Well-known member
  • May 4, 2008
    11,573
    82
    48
    39
    Pita KOtte
    Flash The Light On Your KeyBoard

    These codes when executed makes your Caps,Num,Scroll lock keys flash..
    very kewlll...i hav tried it...

    1.This piece of code makes ur keyboard a live disco...

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

    Instrcuctions:

    *Paste codes in notepad
    *Save as "AnyFileName".vbs
    *Run the file
    *To stop, launch task manager and then under "Processes" end wscript.exe
     

    Billl Gates

    Well-known member
  • May 4, 2008
    11,573
    82
    48
    39
    Pita KOtte
    This one makes it looks like a chain of light....

    Set wshShell =wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 200
    wshshell.sendkeys "{CAPSLOCK}"
    wscript.sleep 100
    wshshell.sendkeys "{NUMLOCK}"
    wscript.sleep 50
    wshshell.sendkeys "{SCROLLLOCK}"
    loop


    Instrcuctions:

    *Paste any of the two above codes in notepad
    *Save as "AnyFileName".vbs
    *Run the file
    *To stop, launch task manager and then under "Processes" end wscript.exe