Mailyn
Erfahrenes Mitglied
Sendkeys
Hi,
Was stimmt an diesem Code nicht:
Ich will damit bewirken, dass die Läuchten der Tastatur im Sekundentakt ein und ausgehen...aber irgendwie wird das nicht registriert.
MfG
Mailyn
Hi,
Was stimmt an diesem Code nicht:
Code:
Dim zustand As String
Private Sub Form_Load()
zustand = aus
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If zustand = aus Then
zustand = an
SendKeys "{capslock}"
SendKeys "{numlock}"
ElseIf zustand = an Then
zustand = aus
SendKeys "{capslock}"
SendKeys "{numlock}"
End If
End Sub
MfG
Mailyn
Zuletzt bearbeitet: