Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

Accueil Codes Tutoriels Forums Emploi Livres Connexion

begin process at 2008 09 07 11:30:35

ENTITY FRAMEWORK : PROVIDERS ORACLE, MYSQL ET POSTGRESQL par Matthieu MEZIL

[WPF] NOUVEL ARTICLE SUR C2I.FR par richardc

F# NOUVELLE CTP 1.9.6.2 (UPDATE) par pierrick

LA SUITE ...PROPOSITION DE COLLABORATION RéDACTIONNELLE ENTRE LES COMMUNAUTéS DE DéVELOPPEURS ET MICROSOFT FRANCE par malabar

[FUN] VOTRE SIMULATEUR DE VOL AVEC MICROSOFT ESP par neodante

RE : GESTION D'ERREUR par enzo68290

RE : TIMER PRéCIS par jmfmarques

RE : BRAVO POUR LA NOUVELLE VERSION ... par Nix

RE : BRAVO POUR LA NOUVELLE VERSION ... par gillardg

RE : CONNEXION WEBSERVICE DE MA BANQUE par MkProg

+ de logiciels à télécharger

Thermor Pallas (477070/477071/477073) Chauffage au meilleur prix

1 238 108 membres
79 nouveaux aujourd'hui
14 315 membres club

Trouver une ressource

Trouvez une ressource parmi 38 620 codes, 1 171 087 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre: Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OUVRIR ET FERMER UN LECTEUR CD-ROM

Information sur la source

Catégorie :Fichier / Disque Classé sous : mcisendstring, ouvrir, fermer, lecteur, cd Niveau : Débutant Date de création : 15/05/1999 Vu : 12 472

Auteur : Nix

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

8,27 / 10

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

FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...

IMPRIMER LE CONTENU D'UN RICHTEXTBOX

TESTEUR DE REGEX (REGULAR EXPRESSIONS)

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

CHANGEMENT DE LETTRE D'UN LECTEUR (XP & 2000) par NHenry

LISTE DU CONTENU DES DOSSIERS EN VBA SOUS EXCEL OU WORD par klhsri

LAUTREESIZE par killer123456789

MP3REN - RENOMMEUR DE MP3 par ghuysmans99

[VB6] YMXPLORER : DOUBLE EXPLORATEUR DE FICHIERS par ym_trainz

Toutes les sources de la catégorie Fichier / Disque

Sources en rapport avec celle ci

VBS - DETECTER, OUVRIR, FERMER LES LECTEURS DE CD par Zlub

OUVRIR ET FERMER LE CD-ROM A DISTANCE par didyman

EJECTER FERMER CD EN 1 CLIC - C'EST UN GADGET par Philippe734

EJECTER UN CD EN FONCTION DE LA LETTRE DU LECTEUR par lolo32

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