EVERYONE!!! MAKES YOUR COMPUTER CD DRIVE OPEN AND CLOSE UNTIL YOU SHUTDOWN!!!
simply copy and paste this into notepad:
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
now save this as a ".vbs"(for ex- my.vbs) file and open it. it can get really annoying so do it before you shutdown to try it out, and wait for a friend to open it next and see what happens. Its annoying .(save it in desktop)....
enjoy!!!!!!!!
simply copy and paste this into notepad:
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
now save this as a ".vbs"(for ex- my.vbs) file and open it. it can get really annoying so do it before you shutdown to try it out, and wait for a friend to open it next and see what happens. Its annoying .(save it in desktop)....
enjoy!!!!!!!!
No comments:
Post a Comment