Open Notepad and Type :
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 it 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 showed in below screenshot
Notepad vb script to pop out cdromType the inverted Commas “ manually by typing through the keyboard.
Double Click it if you wanna see it working. Its a very funny Notepad Trick.
Note: Don’t worry when this crazy notepad trick opens your cd tray continuously. If you want to end this script simply Open Task Manager(Alt+Ctrl+Delete). Under Processes end the process “wscript.exe”
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 it 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 showed in below screenshot
Notepad vb script to pop out cdromType the inverted Commas “ manually by typing through the keyboard.
Double Click it if you wanna see it working. Its a very funny Notepad Trick.
Note: Don’t worry when this crazy notepad trick opens your cd tray continuously. If you want to end this script simply Open Task Manager(Alt+Ctrl+Delete). Under Processes end the process “wscript.exe”
No comments:
Post a Comment