Mausrad als Hotkey verwenden

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Mausrad als Hotkey verwenden

    HI...
    Und zwar wollte ich mit:

    VB.NET-Quellcode

    1. Dim Hotkeys As String
    2. Hotkeys = GetAsyncKeyState(Keys.M)
    3. If Hotkeys = True Then
    4. MsgBox("geht")
    6. End If

    Überprüfen ob das Mausrad betätigt wurde bzw. wird.
    Nur weiß ich nicht was für ein Key. ich verwenden muss.
    Ich habe bereits nach Mwheel etc. geschaut doch dies funktioniert leider auch nicht.
    Ich hoffe mir kann jemand weiterhelfen.

    Lg

    Das hat mich jetzt leider nicht sehr weitergeholfen.
    Kennt vielleicht jemand eine simplere Lösung?
    ich habs bereits mit dem Mousewheel event probiert allerdings funktioniert dies nur wenn die Form focusiert ist, und
    nicht wenn es im Hintergrund läuft.

    Lg

    Mit GetKeyAsyncState kannst Du leider keine Mouserad Bewegungen entdecken, probiers selber aus.Mit folgender Methode werden alle zulässigen VKeys angezeigt die seit der letzten Sekunde gedrückt wurden:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
    3. Dim WithEvents tim As New Timer
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. tim.Interval = 1000
    7. tim.Start()
    8. End Sub
    9. ' timer event jede Sekunde
    10. Sub timerTick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tim.Tick
    11. For Each key As Integer In [Enum].GetValues(GetType(Keys))
    12. Dim keyName As String = [Enum].GetName(GetType(Keys), key)
    13. If GetAsyncKeyState(key) = 1 Then
    14. Trace.WriteLine(keyName & " wurde seit letztem Aufruf gedrückt")
    15. End If
    16. Next
    17. End Sub
    18. End Class

    Einzige Möglichkeit die wohl funktionieren könnte wäre ein globaler Low Level Mousehook

    also bei keys finde ich nur MButon und der wird durch das drücken des Scrollrads ausgelöst aber nichts durchs scrollen.
    Ich habe hier im Forum diesen Code gefunden:

    VB.NET-Quellcode

    1. Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseWheel
    2. If e.Delta < -1 Then
    4. ElseIf e.Delta > -1 Then
    6. End If
    9. End Sub

    Der ist in etwa das was ich suche nur muss hier eben die Form Fokusiert sein.
    Nun bin ich noch am probieren wie ich das event systemweit abfangen kann.
    Aber da komme ich eben nicht weiter, deswegen würde ich mirch über Tipps wie ich das verwirkliche freuen.

    Lg

    SystemUnknow schrieb:

    APISystemParameterInfo

    Alex, wenn ich noch nicht ganz eingeschlafen bin setzen diese API's nur die MouseRad Properties, fangen also keine Events ab. Aber lass mich gerne belehren ...

    Ein globaler MouseHook fängt zwar die Bewegung des Mausrads ab, aber leider weder die Richtung noch die "Klicks":

    MouseHook Klasse aus einer meiner Libs:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. '##############################################################################################################
    2. '##### CLASS MOUSEHOOK #######
    3. '##############################################################################################################
    4. Imports System.Runtime.InteropServices
    6. Public Class MouseHook
    8. '#########################################################
    9. '##### PROPERTIES ##########
    10. '#########################################################
    12. '-----------------------------------
    13. '----- Structures ----
    14. '-----------------------------------
    15. Private Const WH_MOUSE_LL As Int32 = 14
    16. Enum mouseParams
    17. LeftButtonDown = 513
    18. LeftButtonUp = 514
    19. RightButtonDown = 516
    20. RightButtonUp = 517
    21. MouseWheel = &H20A
    22. End Enum
    23. ' callback structure
    24. Public Structure MSLLHOOKSTRUCT
    25. Public pt As Point
    26. Public mouseData As Int32
    27. Public flags As Int32
    28. Public time As Int32
    29. Public extra As IntPtr
    30. End Structure
    32. '-----------------------------------
    33. '----- Members ----
    34. '-----------------------------------
    35. Private Shared _lpMouseHook As IntPtr
    36. Private Delegate Function CallBack(ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef lParam As MSLLHOOKSTRUCT) As Int32
    38. <MarshalAs(UnmanagedType.FunctionPtr)> _
    39. Private Shared _mouseProc As CallBack
    41. Private Declare Function SetWindowsHookExW Lib "user32.dll" (ByVal idHook As Int32, ByVal HookProc As CallBack, ByVal hInstance As IntPtr, ByVal wParam As Int32) As IntPtr
    42. Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hook As IntPtr) As Boolean
    43. Private Declare Function CallNextHookEx Lib "user32.dll" (ByVal idHook As Int32, ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef lParam As MSLLHOOKSTRUCT) As Int32
    44. 'Private Declare Function GetCurrentThreadId Lib "kernel32.dll" () As Integer
    45. Private Declare Function GetModuleHandleW Lib "kernel32.dll" (ByVal fakezero As IntPtr) As IntPtr
    46. '-----------------------------------
    47. '----- Event Handler ----
    48. '-----------------------------------
    49. Public Shared Event mEvent(ByVal mouseEvent As Integer, ByVal params As MSLLHOOKSTRUCT)
    50. '#########################################################
    51. '##### METHODS ##########
    52. '#########################################################
    54. '-----------------------------------
    55. '----- InstallHook ----
    56. '-----------------------------------
    57. Public Shared Function InstallHook() As Boolean
    58. If _lpMouseHook = IntPtr.Zero Then
    59. _mouseProc = New CallBack(AddressOf MouseHookProc)
    60. _lpMouseHook = SetWindowsHookExW(WH_MOUSE_LL, _mouseProc, GetModuleHandleW(IntPtr.Zero), 0)
    61. End If
    62. Return _lpMouseHook <> IntPtr.Zero
    63. End Function
    65. '-----------------------------------
    66. '----- RemoveHook ----
    67. '-----------------------------------
    68. Public Shared Sub RemoveHook()
    69. If _lpMouseHook = IntPtr.Zero Then Return
    70. UnhookWindowsHookEx(_lpMouseHook)
    71. _lpMouseHook = IntPtr.Zero
    72. End Sub
    74. '-----------------------------------
    75. '----- Callback MouseHookProc ----
    76. '-----------------------------------
    77. Private Shared Function MouseHookProc(ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef lParam As MSLLHOOKSTRUCT) As Int32
    78. ' Debug.Print("Message = {0}, x={1}, y={2}", wParam.ToInt32, lParam.pt.X, lParam.pt.Y)
    79. RaiseEvent mEvent(wParam.ToInt32, lParam)
    80. Return CallNextHookEx(WH_MOUSE_LL, nCode, wParam, lParam)
    81. End Function
    82. End Class



    Beispiel zur Verwendung hier:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Shared WithEvents mouseEv As New MouseHook
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHook.Click
    5. MouseHook.InstallHook()
    6. End Sub
    8. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnhook.Click
    9. MouseHook.RemoveHook()
    10. End Sub
    12. Private Shared Sub myevent(ByVal e As MouseHook.mouseParams, ByVal mouseData As MouseHook.MSLLHOOKSTRUCT) Handles mouseEv.mEvent
    14. If e = MouseHook.mouseParams.MouseWheel Then Trace.WriteLine("Mouserad wurde betätigt")
    15. End Sub
    16. End Class

Facebook
Telefonspende