PC PRANKS!!

Geoff · 08-23-2005, 04:10 AM

Something cool i just learnt: Start a notepad doc. paste:

MsgBox "D:\ CONTAINS HARMFULL MATERIAL, INCLUDING VEGEMITE",vbcritical,"WARNING"

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Where "Warning" and "D:\ CONTAINS HARMFULL MATERIAL, INCLUDING VEGEMITE" can be changed to suit. Save as blah.vbs - this will display error msg. and open optical drives!!- if Windows media player is installed!!Cool eh?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

08-23-2005, 04:10 AM	#1
Geoff Resident-in-Training Join Date: Aug 2005 Posts: 7	Something cool i just learnt: Start a notepad doc. paste: MsgBox "D:\ CONTAINS HARMFULL MATERIAL, INCLUDING VEGEMITE",vbcritical,"WARNING" Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom End If Where "Warning" and "D:\ CONTAINS HARMFULL MATERIAL, INCLUDING VEGEMITE" can be changed to suit. Save as blah.vbs - this will display error msg. and open optical drives!!- if Windows media player is installed!!Cool eh?

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)