Post by serzh82saratov » 16 Jul 2017, 03:24
Хотя наверное имя необязательно, хэндла должно быть достаточно.
Надо расскомментировать ToolTip, при движении мышек должно появлятся число, для каждой мыши своё. Число, которое всплывает при движении мыши которую надо зибиндить, нужно прописать в переменную Mice1. Закомментировать ToolTip, проверить - WheelUp и WheelDown с указанной мыши должны регулировать громкость, на остальных колёсико должно работать по умолчонию.
Code: Select all
#SingleInstance Force
#Persistent
#NoEnv
ListLines Off
SetBatchLines -1
AHKHID_UseConstants()
AHKHID_Register(1, 2, A_ScriptHwnd, RIDEV_INPUTSINK )
OnMessage(0x00FF, "InputMsg") ; WM_INPUT
Mice1 = 393599
Return
InputMsg(wParam, lParam) {
Local DevHandle
Critical
DevHandle := AHKHID_GetInputInfo(lParam, II_DEVHANDLE)
; ToolTip % Clipboard := DevHandle
IsMice1 := DevHandle = Mice1 ? 1 : 0
}
Sound() {
SoundPlay, %A_WinDir%\Media\ding.wav
}
#If IsMice1
WheelUp::
SoundSet +5
Sound()
Return
WheelDown::
SoundSet -5
Sound()
Return
#If
Esc::
ExitApp
Хотя наверное имя необязательно, хэндла должно быть достаточно.
Надо расскомментировать ToolTip, при движении мышек должно появлятся число, для каждой мыши своё. Число, которое всплывает при движении мыши которую надо зибиндить, нужно прописать в переменную Mice1. Закомментировать ToolTip, проверить - WheelUp и WheelDown с указанной мыши должны регулировать громкость, на остальных колёсико должно работать по умолчонию.
[code]#SingleInstance Force
#Persistent
#NoEnv
ListLines Off
SetBatchLines -1
AHKHID_UseConstants()
AHKHID_Register(1, 2, A_ScriptHwnd, RIDEV_INPUTSINK )
OnMessage(0x00FF, "InputMsg") ; WM_INPUT
Mice1 = 393599
Return
InputMsg(wParam, lParam) {
Local DevHandle
Critical
DevHandle := AHKHID_GetInputInfo(lParam, II_DEVHANDLE)
; ToolTip % Clipboard := DevHandle
IsMice1 := DevHandle = Mice1 ? 1 : 0
}
Sound() {
SoundPlay, %A_WinDir%\Media\ding.wav
}
#If IsMice1
WheelUp::
SoundSet +5
Sound()
Return
WheelDown::
SoundSet -5
Sound()
Return
#If
Esc::
ExitApp[/code]