begin process at 2012 02 16 08:43:47
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > OUVRIR ET FERMER UN LECTEUR CD-ROM

OUVRIR ET FERMER UN LECTEUR CD-ROM


 Information sur la source

Note :
8,27 / 10 - par 11 personnes
8,27 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :mcisendstring, ouvrir, fermer, lecteur, cd Niveau :Débutant Date de création :15/05/1999 Vu :18 344
Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

 Description

Comment ouvrir et fermer le lecteur CD-ROM ?

Mettez ce code dans un Module :

Source

  • Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  • 'Pour Fermer le lecteur
  • Sub FermerCD()
  • ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
  • End Sub
  • 'Pour ouvrir le lecteur
  • Sub OuvrirCD()
  • ret = mciSendString("Set cdaudio door open wait", vbNullChar, 0, 0)
  • End Sub
  • ' Pour Ouvrir le lecteur :
  • Call OuvrirCD
  • ' Pour Fermer le lecteur :
  • Call FermerCD
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Pour Fermer le lecteur
Sub FermerCD()
ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub

'Pour ouvrir le lecteur
Sub OuvrirCD()
ret = mciSendString("Set cdaudio door open wait", vbNullChar, 0, 0)
End Sub

' Pour Ouvrir le lecteur : 
Call OuvrirCD

' Pour Fermer le lecteur : 
Call FermerCD



 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE
Toutes les sources de Nix

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack
Toutes les sources de la catégorie Fichier / Disque

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LECTEUR ENREGISTREUR GRAVEUR par cednoir
VBS - DETECTER, OUVRIR, FERMER LES LECTEURS DE CD par Zlub
Source avec Zip Source avec une capture OUVRIR ET FERMER LE CD-ROM A DISTANCE par didyman
Source avec Zip Source avec une capture EJECTER FERMER CD EN 1 CLIC - C'EST UN GADGET par Philippe734
Source avec Zip Source avec une capture POUR OUVRIRE OU FERMER LE LECTEUR CD par OverDarck

Commentaires et avis

Commentaire de Regiga le 12/03/2002 09:20:23

C vrai. G un graveur et un CD. Comment qu'on fait ?
Sinon, C trop bien

Commentaire de leneuf22 le 20/07/2002 12:41:51

Mat, "mais n'oubliez pas de déclarer la variable ret en Integer"
Pourquoi ? Le résultat est un long.

VB devra caster dans ton dos si ta variable est integer.

Commentaire de SuperClic le 19/08/2002 10:17:04

Trop bien, ta source, Nix !

Commentaire de SuperClic le 20/08/2002 17:42:48

Pour éjecter spécifiquement plusieurs lecteurs, allez voir ma source: "http://www.vbfrance.com/article.aspx?Val=5526"

Commentaire de grosbidou21 le 28/10/2004 17:56:51

le module mciSendString doit être déclaré en "public" et non en "private" si tu veux le placer dans un module.
Comme bcp de tes source, elle est simple, claire et très utile. Que demander de mieu?

Commentaire de lunnatick le 10/08/2006 03:03:22

Bonjour, c'est su VBS ?

Commentaire de djgab21 le 04/01/2008 13:36:18

Super la source NIX

réponse a Lunnatick : en vbs c'est

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

(désolé je suis un peu tard)

Commentaire de jihednond le 13/06/2008 11:59:45

merci ce code fonctionne 100% mes tu doit ajouter

Private Sub Command1_Click()
Call OuvrirCD
End Sub
Private Sub Command1_Click()
Call FermerCD
End Sub
pour que les débutant puisse l'appliquer

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Ouvrir/Fermer le lecteur de CD-Rom [ par Olivier ] Bonjour,En VB, j'arrive à ouvrir/fermer un lecteur de CD-Rom mais je ne sais pas comment faire lorsque l'on a deux lecteurs et/ou graveur pour ouvrir/ batch : comment ouvrir et fermer un lecteur cd en .bat [ par etarip33 ] batch : comment ouvrir et fermer un lecteur cd en .bat et autre truc dans ce genre. merci ouvrir lecteur cd avec visual basic.net [ par jordi90 ] j'ai remarqué que ce code ne marche pas avec visual basic.net qui est ds visual studio 2003  est ce que quelqu'un pourrais me donner un code Ouvrir le lecteur cd (il me faut le chemin d'accès d'origine du projet sinon ça marche pas) [ par ratala ] Je sais on a déja vu ça partout mais commen t on peut ouvrir le lecteur CD avec vb5 parce-que toutes les sources sont données sans leu Agir sur le lecteur CD [ par pifpafpouf2006 ] Bonjour,Je voudrais pouvoir ouvrir et fermer le lecteur Cd ainsi que savoir quand il est ouvert/fermé.Pour l'ouvrir, j'utilise ces 2 lignes suiva Ouvrir un lecteur cd sous VB.net [ par poulain ] Sous VB.net,quelle est le code qui permet d'ouvrir le lecteur CD? Et, si on en a plusieur, d'en ouvrir qu'un, sans préciser la lettre du lecteur? si quelqun avait le code pour ouvrir le lecteur de cd-rom [ par sonic911 ] si quelqun avait le code pour ouvrir le lecteur de cd-rom sa marangerai bcp merci ... prob winsock [ par zeboss ] bonjour, je suis en train de développer 2 appli qui marchent avec Winsock. Dans l'appli 1 (par exemple), je dis à l'appli 2 d'ouvrir son lec Ouvrir un lecteur CD sous VB.net [ par poulain ] Salut! J'me suis amusé a faire un p'tit prog tout simple, j'suis dasn mes tout debuts, mais je ne connais pas le code pour faire ouvrir le lecteu Ejecter et Fermer le lecteur cd rom [ par C ] Salut, je suis désolé mais je ne peut t'apporter de réponse car je ne sais même pas comment faire pour l'ouvrir et le fermer. C'est pour ça que j'aim


Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo Waterfall in Kauai Hawaii With Rainbow 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,279 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)