+- Hackonology Forums (https://hackonology.com/forum)
+-- Forum: Hackonology Forums official Information (https://hackonology.com/forum/forumdisplay.php?fid=1)
+--- Forum: Hackonology (https://hackonology.com/forum/forumdisplay.php?fid=81)
+---- Forum: Fun Hack with Hackonology (https://hackonology.com/forum/forumdisplay.php?fid=35)
+---- Thread: Continually Pop The CD Drive Using Notepad (/showthread.php?tid=55)
Continually Pop The CD Drive Using Notepad - Hacker - 09-01-2020
Step 1. Open Notepad.
Step 2. Copy the code given below onto the notepad file:
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
Step 3. Save it as “Anything.VBS”.
Now open the file and see the magic! The file will continuously force the CD rom to pop out! And Ifyou have more than one then it pops out all of them!