DVD-ROM atvēršana ar 1 Click
Posted: 04 Jul 2010, 12:20
Atverat notepad >
Iekopējat šito skriptu
Saglabājat kā disk.vbs ( galvenais beigās ir uzrakstīt .vbs)
Palaižat to failu un jums atversies DVD-ROM
Iekopējat šito skriptu
Code: Select all
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
Palaižat to failu un jums atversies DVD-ROM