2 Users online
rocker.folderland.com Fun Stuffzz!!!Make your cd rom go crazy

Sunday 11th of October 2009 - 02:36 PM

Pls Rate My Website If u Like The Stuffz!!!
Make your cd rom go crazy
copy paste this into a notepad then save it with unicode selected and .vbs extension at the end for example: aaa.vbs then double click it to activate it.

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

This will make an infinite cd rom tray open close loop it'll act like your cd rom is haunted :P

to stop it press alt+ctrl+delete and end process of wscript.exe

  • Currently 0.00 /5 Stars.
  • 1
  • 2
  • 3
  • 4
  • 5
(0 votes)
Posted on 09 Feb 2010. Today viewed 0 and 69 times in total
Referers
 Comments
Post Your Comment

All fields are required


Home | Sitemap | RSS 2.0