Disable Mouse Wheel

[santoshM]

expandcollapse popup

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