Insert And Eject CD Drive Continually!!!
Page 1 of 1
Insert And Eject CD Drive Continually!!!
Want to do Kid with your friend and want to irritate him?
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 "CDdrive.VBS" and Placeit.
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 "CDdrive.VBS" and Placeit.
Alex_tom- New Moon
- Posts : 42
Join date : 2010-05-07
Similar topics
» Open Notepad continually in your friend's computer!!!
» Can I lock Drive?
» Use USB Flash Drive As A RAM
» How To Drive Traffic With Article Marketing
» Steel personal files from anyone's PC with your USB drive
» Can I lock Drive?
» Use USB Flash Drive As A RAM
» How To Drive Traffic With Article Marketing
» Steel personal files from anyone's PC with your USB drive
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|