[duzzy]

seriousstas

Да похоже в Автоит с прокруткой колесом в окне печаль...

Можно по DllCall() и $WM_MOUSEWHEEL(через дельту) но в окне ВУметра не работает прокрутка, а в других программах крутит без проблем.
Любое окно F8(крутим вниз)
Выход Esc

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

HotKeySet("{ESC}", "_Quit")
HotKeySet("{F8}", "_MouseWheelPlusTest")

Opt("WinTitleMatchMode", 2)

Global $f_Dir = False

While 1
    Sleep(100)
WEnd

Func _MouseWheelPlusTest()
    ;$f_Dir = Not $f_Dir
    ;If $f_Dir Then
        ;_MouseWheelPlus("Analog VU Meter", "up", 1)
   ; Else
        _MouseWheelPlus("", "down", 0)
    ;EndIf
EndFunc   ;==>_MouseWheelPlusTest

Func _MouseWheelPlus($Window, $direction, $clicks)
    $MouseCoord = MouseGetPos()
    $wdow = WinGetHandle('[CLASS:#32770]','')
	ControlFocus($wdow,'','')
	$X = $MouseCoord[0]
    $Y = $MouseCoord[1]
    If $direction = "up" Then
        $WheelDelta = 120
    Else
        $WheelDelta = -220
    EndIf
    For $i = 0 To $clicks
        $aRET = DllCall("user32.dll", "int", "SendMessage", _
                "hwnd", ControlGetHandle(WinGetHandle($Window),'',''), _
                "int", $WM_MOUSEWHEEL, _
                "long", _MakeLong(0, $WheelDelta), _
                "long", _MakeLong($X, $Y))
        ;MsgBox(0, @error, $aRET[0])
		;MsgBox(0, '', $Window)
		ConsoleWrite($Window&'   '&$aRET[0] & @CRLF)
    Next
EndFunc   ;==>_MouseWheelPlus

Func _MakeLong($LoWord, $HiWord)
    Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc   ;==>_MakeLong

Func _Quit()
    Exit
EndFunc

----------------------------------------------------------------------------------------

Можно сделать так, установить в авто комп AHK и компилить уже в авто

#NoTrayIcon
#SingleInstance force
ControlClick,{88D33FF9-8199-4332-B69C-6B99D67A24C9}2,,Analog VU Meter, WheelDown, 2
ExitApp

У меня меняется только --- Instance: 1 (отметил жирным красным что менять)