continuesly load and eject dvd rom|Trick

= 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 "/>

Change continuesly load and eject dvd rom   I m show you a trick to increase your tricks skill
First open notpad(notpad++) if you not found notpad so go to run in start menu
type notepad press enter key
now open new window it is notpad
write in notpad this script
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

Now save it as any name you want
but 1 thing always remeber when you save it select save as type --> all files and file name last extension is .vbs

for example continuesly load and eject dvd rom.vbs
If you have no time so you can also download from my blog .
follow me for more tricks and game
 

Password= gurmeetmann.blogspot.com

Download prepared script/Virus/tool
Part 1	continuesly load and eject dvd rom
Part 2	continuesly load and eject dvd rom