Joke with friends: Open DVD or CD drive infinitely

No comments

There are a very funny trick that you can joke with your friends without stop laughing. So in this post i'll teach you how to open DVD or CD drive infinitely. We don't need any software, we do that with notepad. Want to see your friend angry and laugh, then do next.

1. Create a new text document and type in next, text given below.


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



2. Now from File menu choose Save as, and save file as DVD.vbs ( you can change DVD, but .vbs is important! ).
3. Now just open that file and you can see that DVD/CD drive start infinitely opening and closing.
If you want to close, then open Task Manager and find your file name from list, you give it in step 2. And close that process, or you just can restart computer. You can make it autorun with Windows startup by moving it to the StartUp folder in Start menu.

No comments :

Post a Comment