Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Keys) As Short
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Timer1.Interval = 10
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.F11) Then
MsgBox("key F13 wurde gedrückt")
End If
If GetAsyncKeyState(Keys.F12) Then
MsgBox("Key F12 wurde gedrückt")
End If
End Sub
End Class
Bitte ein kleines Beispiel
oO Ich habe doch gesagt das es damit geht ...
Naja is jetzt eh gesperrt
mfG