Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
> Est ce que l'un d'entre vous a déjà réussi à faire ouvrir le lecteur de
CD/DVD sous VB.NET ?
Je ne sais pas s'il y a une classe permettant cela directement dans le Framework.. mais voici une technique employant MCI. '***
Module Module1
Private Declare Auto Function mciSendString _ Lib "winmm.dll" _ ( _ ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Int32, _ ByVal hwndCallback As IntPtr _ ) As Int32
Private Declare Auto Function mciGetErrorString _ Lib "winmm.dll" _ ( _ ByVal fdwError As Int32, _ ByVal lpszErrorText As String, _ ByVal cchErrorText As Int32 _ ) As Boolean
Sub Main()
' utilise cdaudio pour le lecteur cd par défaut ' et digitalvideo pour le lecteur dvd par défaut.. ' ' mciSendString("Set cdaudio Door Open", 0, 0, IntPtr.Zero) ' mciSendString("Set digitalvideo Door Open", 0, 0, IntPtr.Zero) ' ' l'exemple essai d'ouvrir le lecteur dvd, ' ça affiche l'erreur si l'appel plante. ' Dim err As Int32 = mciSendString("Set digitalvideo Door Open", 0, 0, IntPtr.Zero) If (err > 0) Then Dim s As String = Space(255) mciGetErrorString(err, s, s.Length) Console.WriteLine(s.TrimEnd()) End If Console.WriteLine() Console.WriteLine("Press Enter to quit...") Console.ReadLine()
> Est ce que l'un d'entre vous a déjà réussi à faire ouvrir le lecteur de
CD/DVD sous VB.NET ?
Je ne sais pas s'il y a une classe permettant cela directement dans le
Framework.. mais voici une technique employant MCI.
'***
Module Module1
Private Declare Auto Function mciSendString _
Lib "winmm.dll" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Int32, _
ByVal hwndCallback As IntPtr _
) As Int32
Private Declare Auto Function mciGetErrorString _
Lib "winmm.dll" _
( _
ByVal fdwError As Int32, _
ByVal lpszErrorText As String, _
ByVal cchErrorText As Int32 _
) As Boolean
Sub Main()
' utilise cdaudio pour le lecteur cd par défaut
' et digitalvideo pour le lecteur dvd par défaut..
'
' mciSendString("Set cdaudio Door Open", 0, 0, IntPtr.Zero)
' mciSendString("Set digitalvideo Door Open", 0, 0, IntPtr.Zero)
'
' l'exemple essai d'ouvrir le lecteur dvd,
' ça affiche l'erreur si l'appel plante.
'
Dim err As Int32 = mciSendString("Set digitalvideo Door Open", 0, 0,
IntPtr.Zero)
If (err > 0) Then
Dim s As String = Space(255)
mciGetErrorString(err, s, s.Length)
Console.WriteLine(s.TrimEnd())
End If
Console.WriteLine()
Console.WriteLine("Press Enter to quit...")
Console.ReadLine()
> Est ce que l'un d'entre vous a déjà réussi à faire ouvrir le lecteur de
CD/DVD sous VB.NET ?
Je ne sais pas s'il y a une classe permettant cela directement dans le Framework.. mais voici une technique employant MCI. '***
Module Module1
Private Declare Auto Function mciSendString _ Lib "winmm.dll" _ ( _ ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Int32, _ ByVal hwndCallback As IntPtr _ ) As Int32
Private Declare Auto Function mciGetErrorString _ Lib "winmm.dll" _ ( _ ByVal fdwError As Int32, _ ByVal lpszErrorText As String, _ ByVal cchErrorText As Int32 _ ) As Boolean
Sub Main()
' utilise cdaudio pour le lecteur cd par défaut ' et digitalvideo pour le lecteur dvd par défaut.. ' ' mciSendString("Set cdaudio Door Open", 0, 0, IntPtr.Zero) ' mciSendString("Set digitalvideo Door Open", 0, 0, IntPtr.Zero) ' ' l'exemple essai d'ouvrir le lecteur dvd, ' ça affiche l'erreur si l'appel plante. ' Dim err As Int32 = mciSendString("Set digitalvideo Door Open", 0, 0, IntPtr.Zero) If (err > 0) Then Dim s As String = Space(255) mciGetErrorString(err, s, s.Length) Console.WriteLine(s.TrimEnd()) End If Console.WriteLine() Console.WriteLine("Press Enter to quit...") Console.ReadLine()
