Do you have CD/DVD Drive? Then do this funny trick. This trick will Continuously Pop out CD or
DVD Drive:
Open Notepad.
Copy the code
below.
. 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
. Now save as
abc.vbs
Note: You must not keep this file for too long. You must permanently delete it (delete it from the recycle bin as well) as its a malware. But anyway, your computer remains unharmed and this trial is awesome
DVD Drive:
Open Notepad.
Copy the code
below.
. 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
. Now save as
abc.vbs
Note: You must not keep this file for too long. You must permanently delete it (delete it from the recycle bin as well) as its a malware. But anyway, your computer remains unharmed and this trial is awesome
No comments:
Post a Comment