Notepad Trick : Continuously Move CD Tray in and out

You can continuously move CD tray of your friend. If he/she has more than one, is not immune to all of them! Seeing the picture below I hope you understand what the following script does insane.





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
Save as "cdtray.VBS" and send it.

Note: When you copy the above code and save it in Notepad, make the following changes to the first line of code, as shown in the following screenshot

Enter the quotes "manually by typing with the keyboard.

Double-click if you want to see what works. It's a fun trick Notepad.

Note: Do not worry, when this crazy notepad trick opens the CD tray continues. To end this script simply Open Task Manager (Ctrl + Alt + Del). In Processes end the process "wscript.exe" Sharing is sexy