How to activate a function with a MouseWheel?

[Crista]

How I am new to this Autoit and I am trying to activate a function using MouseWheel up command but it doesnt work?

HotKeySet("MouseWheel "up", "A")

While 1

Sleep(50)

WEnd

Func A()

Send("{ALTDOWN}")

Sleep(30)

MouseClick("left")

Sleep(30)

Send("{ALTUP}")

EndFunc ;==>A

I have tried googling this but with no result

Could you help please?

[Enforcer]

Read autoit help about function _IsPressed maybe this will help...

#include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1

If _IsPressed("04", $dll) Then

A()

EndIf

WEnd

DllClose($dll)

Func A()

Send("{ALTDOWN}")

Sleep(30)

MouseClick("left")

Sleep(30)

Send("{ALTUP}")

EndFunc ;==>A

========

01 Left mouse button

02 Right mouse button

04 Middle mouse button (three-button mouse)

05 Windows 2000/XP: X1 mouse button

06 Windows 2000/XP: X2 mouse button

========

I don't think that you can hook mouse wheel so simple like you did // HotKeySet("MouseWheelup", "A")

[AndyG]

Hi,

try this....

guicreate("")
GUIRegisterMsg(0x020A, "_Mousewheel") 
guisetstate()

do
    sleep(50)
until guigetmsg()=-3    


Func _Mousewheel($hWnd, $msg, $l, $r) ;abfrage mausrad
    If $l = 0xFF880000 Then ; Mouse wheel up
        tooltip("Mousewheel up")
    Else ; Mouse wheel down
        tooltip("Mousewheel down")
    EndIf
    sleep (1000)
    tooltip("")
EndFunc   ;==>_Mousewheel

Andy

[Enforcer]

Andy, I'm glad that exist's PROgrammers like u ) That can REALY help )) Edited October 12, 2009 by Enforcer

[Crista]

Hi,

try this....

guicreate("")
GUIRegisterMsg(0x020A, "_Mousewheel") 
guisetstate()

do
    sleep(50)
until guigetmsg()=-3    


Func _Mousewheel($hWnd, $msg, $l, $r) ;abfrage mausrad
    If $l = 0xFF880000 Then ; Mouse wheel up
        tooltip("Mousewheel up")
    Else ; Mouse wheel down
        tooltip("Mousewheel down")
    EndIf
    sleep (1000)
    tooltip("")
EndFunc   ;==>_Mousewheel

Andy

Thanks you all for quick reply's, but where do I put all that?! When I run that macro a new Autoit window box opens but its all black? Edited October 12, 2009 by Crista

[AndyG]

Sorry, but this was only an example  

You have to replace your code into the function....but now i see, my Function only works when the window is activated.

I am looking for a solution without any GUI, something with Hooks maybe^^. I will post it here if i find something.....

Andy

/*EDIT*/ ...    If I had carefully read the first post, i had realized that not the WHEELUP (turning the Mousewheel) was mentioned, but the WHEELKLICK   . Sorry....

But here is my Script using _WinAPI_SetWindowsHookEx() to catch a turning Mousewheel without any GUI and it hopefully does what Crista needs^^ 

expandcollapse popup

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>

Opt('MustDeclareVars', 1)

Global $hHook, $hStub_MouseProc, $buffer = "", $hmod

    $hStub_MouseProc = DllCallbackRegister("_MouseWheel", "long", "int;wparam;lparam")
    $hmod = _WinAPI_GetModuleHandle(0)
    $hHook = _WinAPI_SetWindowsHookEx($WH_MOUSE_LL, DllCallbackGetPtr($hStub_MouseProc), $hmod)

    While 1
        Sleep(10)
    WEnd

Func OnAutoItExit(); use it when exit ^^
    _WinAPI_UnhookWindowsHookEx($hHook)
    DllCallbackFree($hStub_MouseProc)
EndFunc   ;==>OnAutoItExit

Func _Mousewheel($nCode, $wParam, $lParam) ;abfrage mausrad

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $wParam = ' & $wParam & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

; look for the  $wParam to get the number of the buttons
switch $wparam
    case 522  ; Mouse wheel up/down , i dont know how to distinguish up and down
        tooltip("mousewheel turning...")  ;
        sleep (1000)  ;not good, better return this function as fast as possible
        tooltip("")
    case 516  
;~      tooltip("right mousebutton down...")  ;
;~      sleep(1000)
;~      tooltip("")
    case 517
;~      tooltip("right mousebutton up...")  ;
;~      sleep(1000)
;~      tooltip("") 
    case 519  ;mousewheelclick^^
        Send("{ALTDOWN}")
        Sleep(30)
        MouseClick("left")
        Sleep(30)
        Send("{ALTUP}")
endswitch       
    Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc

Edited October 12, 2009 by AndyG

[picea892]

http://www.autoitscript.com/forum/index.php?showtopic=81761

[Dim]

Func _Mousewheel($hWnd, $msg, $l, $r) ;abfrage mausrad

Im confused how do I call these functions? what do i put in the params????????

Edited July 2, 2010 by Dim

[Melba23]

Dim,

Welcome to the AutoIt forum.

what do i put in the params?

You put nothing there, Windows does it for you!

GUIRegisterMsg and the message handling functions are not simple to understand. Try reading the tutorial in the Wiki and see if it all becomes clear.

Come back and ask further questions if not.

M23