![]() |
Continually pop out CD Drive Using Notepad - Printable Version +- 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 out CD Drive Using Notepad (/showthread.php?tid=69) |
Continually pop out CD Drive Using Notepad - Anonymous - 09-11-2020 This is my favorite trick as this trick continually pop out the CD drive whenever you try to close it. Just copy the below code and paste in the notepad and save it as “cd.vbs”. 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 |