Autoit Mouse Wheel Scroll to Mouse Movement

[LegitStack]

So I'm trying to make a script that will move my mouse when I scroll. I know that's weird, but I have my reasons. What I have so far can detect when I'm moving my mouse, but then when I tell the script to make my mouse move whenever it detects scroll activity it freezes. probably because of some feedback loop.

Anyway, If anyone on here wants to help, I'm at a loss of how to solve this problem. Like maybe when it is about to take the action of moving the mouse it could stop detection for a bit, idk. but I don't know how to do that.

 

 

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

#include <MsgBoxConstants.au3>
#include <Misc.au3>
#include <GUIConstants.au3>

Global Const $MSLLHOOKSTRUCT = $tagPOINT & ";dword mouseData;dword flags;dword time;ulong_ptr dwExtraInfo"

Global $currentEvent

Global $hDLL = DllOpen("user32.dll")

#Region ### START Koda GUI section ### Form=

;Register callback
$hKey_Proc = DllCallbackRegister("_Mouse_Proc", "int", "int;ptr;ptr")
$hM_Module = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
$hM_Hook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", "int", $WH_MOUSE_LL, "ptr", DllCallbackGetPtr($hKey_Proc), "hwnd", $hM_Module[0], "dword", 0)

#EndRegion ### END Koda GUI section ###

While 1

WEnd


Func _Mouse_Proc($nCode, $wParam, $lParam)
    Local $info, $mouseData
    If $nCode < 0 Then
        $ret = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hM_Hook[0], _
                "int", $nCode, "ptr", $wParam, "ptr", $lParam)
        Return $ret[0]
    EndIf

    $info = DllStructCreate($MSLLHOOKSTRUCT, $lParam)
    $mouseData = DllStructGetData($info, 3)
    Select
        Case $wParam = $WM_MOUSEWHEEL
            If _WinAPI_HiWord($mouseData) > 0 Then
                ;Wheel Up
                $currentEvent = "WheelUp"

            Else
                ;Wheel Down
                $currentEvent = "WheelDown"
                If _IsPressed("02", $hDLL) Then

                  MsgBox(0,"test","test")

                EndIf
            EndIf
    EndSelect
    
    
    ;;;;;;Mouse Movement CAUSES FREEZING, MAKES ME RESTART COMPUTER:
    if $currentEvent == "WheelUp" then
       $pos = MouseGetPos()
       MouseMove($pos[0]+100,$pos[1]+100,0)
    EndIf
    
    
    
    $ret = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hM_Hook[0], _
            "int", $nCode, "ptr", $wParam, "ptr", $lParam)
    Return $ret[0]
EndFunc   ;==>_Mouse_Proc

Func OnAutoItExit()
    DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hM_Hook[0])
    $hM_Hook[0] = 0
    DllCallbackFree($hKey_Proc)
    $hKey_Proc = 0
EndFunc   ;==>OnAutoItExit

 

[Zedna]

Instead of low level mouse hook try simpler catching of WM_MOUSEWHEEL event

Look here for some example

or look at sources of GUIScrollbars UDF by Melba to see how to work with these events ...

 

Edited March 9, 2018 by Zedna

[LegitStack]

Thanks for this, But I should have mentioned in my original post: that I already tried this, I couldn't get it to work the way I wanted because I don't want the mouse to have to be over a gui, to detect if it's wheel is scrolling or not. I want it to be able to detect and respond to the scroll regardless of where the mouse is on the screen.

Can I do that with the example's you've shown here?

Edited March 9, 2018 by Melba23
Large quote removed

[Melba23]

LegitStack,

When you reply, please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button - responders know what they wrote and it just pads the thread unnecessarily.

Thanks for your future cooperation in this.

M23