Quote:
Originally Posted by The-Punisher
Danke erstmal
Aber bei mir kommt das hier:
Fehler 1 Der Name "wurde nicht deklariert.
|
"My
.Computer
.Keyboard"
Die Punkte fehlen und hotkeys sind nach meinem Wissen was anderes...
z.b.
Das unter
Public Class Form1 schreiben
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer
und das in einen timer der beim form load anfängt zu ticken
Code:
Dim hotkey1 As Boolean
Dim hotkey2 As Boolean
'Hotkey1 = z.b Start
'Hotkey2 = z.b. Stop
hotkey1 = GetAsyncKeyState(Keys.F11) 'Hier noch hinschreiben welche taste in unserem fall die F11 gedrückt werden muss um das und das auszuführen
hotkey2 = GetAsyncKeyState(Keys.F12)
if hotkey1 = true then
msgbox ("Stop")
else if hotkey2 = true then
Msgbox ("Start")
end if
Lg Algaten™