Hallo zusammen
Ich wollte wieder einmal ein bisschen in Visual Basic zu programmieren und hab folgendes Problem:
Ich will. dass sich das CD Fach am Computer öffnet und wieder schliesst per Knopfdruck. Den Code um das Fach zu schliessen und zu öffnen hab ich schon aber leider kann man ja bei den Laptops das CD Fach nicht automatisch schliessen lassen. Deshalb will ich, dass das Programm auf Knopfdruck auf "CD Close" die Informationen des Computer ausliest und wenn es ein Laptop ist eine Meldung ausgibt.
Folgenden Code hab ich schon:
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Public Class Form1
' zunächst die benötigte API-Deklaration
Private Declare Function mciExecute Lib "winmm.dll" ( _
ByVal lpstrCommand As String) As Long
Private Sub CDOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDOpen.Click
mciExecute("Set CDaudio door open")
End Sub
Private Sub CDClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDClose.Click
mciExecute("Set CDaudio door closed")
End Sub
End Class
|