'virus'' (otvara i zatvara cd-rom)

View previous topic View next topic Go down

'virus'' (otvara i zatvara cd-rom)

Post  Admin on Tue Oct 05, 2010 3:16 pm

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Sacuvajte fajl kao "ime fajla.vbs".

Admin
Admin

Posts : 25
Join date : 2010-10-02

View user profile http://megaforum.pops.tv

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum