Jump to content
santoshM

Disable Mouse Wheel

Recommended Posts

santoshM
i want to disable mouse wheel here is my code


#include "MouseOnEvent.au3"
Global Const $MYBLUE = 0x0B0511
Dim $szDrive, $szDir, $szFName, $szExt
Global  $currentNavigation = $sTempFolder & "\intro2.html"
Global $oIE = _IECreateEmbedded()

Global $hGUI = GUICreate($applicationName, 940, 640, _
        (@DesktopWidth - 940) / 2, (@DesktopHeight - 640) / 2, $WS_POPUP + $WS_CLIPCHILDREN + $WS_CLIPSIBLINGS)
        ;$WS_POPUP)
        GUICtrlSetBkColor(-1,$MYBLUE )


GUICtrlCreateObj($oIE, 0, 0, 940, 640)
GUICtrlSetBkColor(-1,$MYBLUE )
GUICtrlSetStyle(-1, BitOR($WS_EX_TRANSPARENT,$WS_EX_LAYERED))
_IENavigate($oIE,  $currentNavigation)
_BlockMouseClicksInput(0)

Func _BlockMouseClicksInput($iOpt=0)
    If $iOpt = 0 Then
        _MouseSetOnEvent($MOUSE_WHEELSCROLLDOWN_EVENT, "__DummyDown")
        _MouseSetOnEvent($MOUSE_WHEELSCROLLUP_EVENT, "__DummyUP")

    Else
        _MouseSetOnEvent($MOUSE_WHEELSCROLLUP_EVENT)
        _MouseSetOnEvent($MOUSE_WHEELSCROLLDOWN_EVENT)

    EndIf
 EndFunc   ;==>_BlockMouseClicksInput

 Func __DummyDown()
 EndFunc

 Func __DummyUp()
EndFunc

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×