Ouvrir les lecteurs cd-rom et graveur
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 218 fois - Téléchargée 27 fois
Contenu du snippet
Placez ce code dans une page HTML
Voila
Source / Exemple :
<SCRIPT LANGUAGE="VBScript">
<!--
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
-->
</SCRIPT>
Pour refermer :
<SCRIPT LANGUAGE="VBScript">
<!--
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
-->
</SCRIPT>
Conclusion :
Voila
A voir également
- Ouvrir les lecteurs cd-rom et graveur
- Visual Basic / VB.NET : Ouvrir et fermer un lecteur cd-rom - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd-rom ou dvd - CodeS SourceS - Guide
- Localiser un lecteur cd-rom - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Ouvrir un lecteur cd (avec choix du lecteur par sa lettre) - Codes sources - Visual Basic / VB.NET (Périphériques)
- Utilitaire servant à cacher le lecteur cd-rom - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
Commentaires
Comment y remédier?
car je ne l'ai pas et le code ne fonction pas et se bloque à "Set oWMP = CreateObject("WMPlayer.OCX.7" )"
quel code permet d'ouvrir les cd-rom sans window media player ??
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.