Pour qlq'un qui connait le langage vb
micro
-
lorenzonowar Messages postés 350 Date d'inscription Statut Contributeur Dernière intervention -
lorenzonowar Messages postés 350 Date d'inscription Statut Contributeur Dernière intervention -
je voulais juste demander que je veux avoir le code pour desactiver l'effet de "ctrl+alt+suppr" et je veux auusi avoir le code vb equivalent pour faire sotir et entrer le lecteur cd
ET MERCI D'AVANCE
ET MERCI D'AVANCE
A voir également:
- Pour qlq'un qui connait le langage vb
- Langage ascii - Guide
- Vb - Télécharger - Langages
- Langage binaire - Guide
- Vb cable - Télécharger - Audio & Musique
- Pascal langage - Télécharger - Édition & Programmation
3 réponses
Utiliser les fonction API
1. ejecter le cd ou ouvrir le lecteur cd
Faut créer une feuille avec un bouton de commande.
Il faut declarer dans la section General
Et après le code qui est éxécuté par le bouton
2. Pour sortir le cd il faut utiliser Door Closed
1. ejecter le cd ou ouvrir le lecteur cd
Faut créer une feuille avec un bouton de commande.
Il faut declarer dans la section General
Public 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
Et après le code qui est éxécuté par le bouton
Private Sub Command1_Click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub
2. Pour sortir le cd il faut utiliser Door Closed
Bonjour tu as juste à utiliser cette fonction API.
si ca marche pas tu peux à tout moment me contacter à mon adresse e-mail je l'ai déja fait ton truc mais j'ai peux de souvenir.
*Public 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
bonne chance.
si ca marche pas tu peux à tout moment me contacter à mon adresse e-mail je l'ai déja fait ton truc mais j'ai peux de souvenir.
*Public 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
bonne chance.