-
Regolamento Macrocategoria DEV
Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!
- 19 Aprile 2010
- 7
- 0
- Miglior risposta
- 0
Mikleman
Utente Colossal
@Z3r0 semplicemente perchè quello è un codice vbscript e non vb6,non so perchè l'abbia impostato in quel modo ._.
Comunque si può fare così: crei un file .vbs e sfruttando windows media player puoi aprire il lettore cd
Comunque si può fare così: crei un file .vbs e sfruttando windows media player puoi aprire il lettore cd
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Franmatrix
Utente bannato
- 11 Febbraio 2010
- 812
- 0
- Miglior risposta
- 0
Allora il Codice esiste e molti lo usano per fare scherzi ecco tieni spero di esserti stato utile ;)
Code :
Private Sub Form_Load()
Call eject
End Sub
Public Sub eject()
'code to eject cdrom ok
Dim owmp As Object
Dim colCDROMs
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
End If
End Sub
Code :
Private Sub Form_Load()
Call eject
End Sub
Public Sub eject()
'code to eject cdrom ok
Dim owmp As Object
Dim colCDROMs
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
End If
End Sub