dotNETportal.cz

Dobrý deň. Poradí mi niekto, prosím, ako by sa dalo zistiť, či je DVD mechanika otvorená, alebo zatvorená.

Mám nižšie uvedený kod, krorý mi vyhadzuje rôzne čísla, ale neviem, čo to znamená

Public Class Form1

    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
    Dim lRet, a As String

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       lRet = mciSendString("status CDAudio door", "returnstring", 127, 0)

       a = a & lRet & vbNewLine
       MsgBox(a)

    End Sub
End Class

Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero) Then
            mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero) Then
            mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero)
        End If
    End Sub
End Class

Ďakujem za odpoveď, ale toto je aplikácia na otváranie a zatváranie mechaniky. Ja potrebujem zistiť v akom stave je mechanika, či je otvorená alebo zatvorená. Bez ohľadu na to akým spôsobom bola otvorená alebo zatvorená.

Super to funguje cez C++. Lenže tomu vôbec nerozumiem. Nedá sa také dačo urobiť vo VB.NET alebo C#?

http://www.technical-recipes.com/2014/re...