Sunday, August 29, 2010

Optical Drive Door Virus

Open the notepad type the following coding

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set oCD = oWMP.cdromCollection.getByDriveSpecifier("J:") ' or whatever
If vbOK = MsgBox ("Eject?", vbOKCancel) Then
oCD.Eject
If vbOK = MsgBox ("Close?", vbOKCancel) Then
oCD.Eject
End if
End if

And save it in to filename.vbs

2 comments:

  1. Nice post bro..
    carry on..
    admin
    http://www.coolearningtips.blogspot.com
    http://www.bestptcsitesofindia.com

    ReplyDelete
  2. Nice...
    http://allin1hacking.blogspot.com

    ReplyDelete