Zitat:

Thema Klappe: Des Weiteren steht fest, dass der Eingesetzte PC keine Serielle-Schnittstelle hat, aber USB.

Zitat:

Thema elektrisches Problem: Wie kann ich den Zustand einer Klappe am einfachsten feststellen? Mit einem an der Klappe befindlichen Schalter/Kontakt. Also, Klappe zu = Kontakt zu oder Klappe auf = Kontakt auf.

Zitat:

Thema Software Problem: Das Ganze funktioniert aber nur dann, wenn man den Zustand der Tasten (Maustasten) per VB6 abfragen kann. Dieter hat mal so etwas geschrieben http://www.vbarchiv.net/tipps/details.php?id=878. Leider wird hierbei nur der Zustand abgefragt, wenn die Taste gedrückt wird.

Zitat:

Ich brauche aber beide Zustände, also gedrückt = geschlossen und nicht gedrückt = offen. Sicher geht das auch irgendwie, aber das übersteigt meine Fähigkeiten.

Option Explicit
 
' zunächst die benötigten API-Deklarationen
Private Declare Function GetAsyncKeyState Lib "user32" ( _
  ByVal vKey As Long) As Integer
 
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
Private Const VK_MBUTTON = &H4
 
Private Sub Command1_Click()
    If GetAsyncKeyState(VK_LBUTTON) Then
        Label1.Caption = "linke Maustaste gedrückt"
    Else
        Label1.Caption = "linke Maustaste nicht gedrückt"
    End If
End Sub
 
Private Sub Form_Load()
 
  ' Wichtig! Zunächst zurücksetzen
  Call GetAsyncKeyState(VK_LBUTTON)
  Label1.Caption = ""
End Sub

Zitat:

Franki, ich hoffe ich konnte etwas Licht in das Dunkle bringen. Vielleicht kannst Du mir weiterhelfen. Ich würde mich freuen.