[Virtual Basic 2008] Hotkey Funktion ! Help :S

05/03/2010 15:24 germanhacker#1
Hallo elitepvpers,
Ich wollte eine Combobox in mein Programm einbringen, wo man einen beliebigen Hotkey aussuchen kann.

Code:
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim MouseMoverOn As Boolean
        MouseMoverOn = GetAsyncKeyState(ComboBox1.Text)
        If MouseMoverOn = True Then
            Timer1.Enabled = True
        End If
    End Sub
Doch dieser Code hat leider nicht funktioniert :(

Hoffe jemand hat eine Lösung !

PS: Wäre auch schön wenn man den Hotkey durch Tastendruck bestimmen kann.
05/03/2010 19:29 Madd Eye#2
Also einen Hotkey einzubauen ist in Vb ganz einfach

Du braucht nur einen Button

Code:
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
  ByVal vKey As Long) As Long

    Private Const VK_X = &H58

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Retval As Long

        Retval = GetAsyncKeyState(VK_X)

        ' Auswerten des Ergebnisses
        If CBool(Retval And &H8000) Then
            MsgBox("Die Taste ""X"" ist momentan gedrückt.")
        End If
    End Sub
End Class