Guys try this is..... It is a virus code hope you will enjoy by building it and screwing it on VICTIM'S Pc... :P
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
NOTE: that's it... try if you want at your own risk.... :)
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
NOTE: that's it... try if you want at your own risk.... :)
0 comments:
Post a Comment