Режим совместимости не помогает, т.е. она стартует, но с нулевым функционалом - просто лежит себе в памяти и на всё забила.
]]>]]>Ссылки (ох надеюсь меня не забанят)
- http://www.mouseimp.com/rus/
или
- http://forum.ru-board.com/topic.cgi?for … topic=6604
там же есть и исходники на С++ и не забудьте проскролить новости и повыкачивать измененные dll-ки под последние офисы и оперы....я уж не помню под что именно, но с ними работает стабильнее. Да, кстати, под семеркой может работать не столь корректно как и под ХР. Под 64 осью по моему не работает....читайте новости там было обсуждение.
Да, скролинг работает с ускорением. В большинстве окон скролит только вверх-вниз. Но есть приятные исключения где скролит и в стороны.
]]>Да, ещё... она скроллит с ускорением или как обычно? Если как обычно, то моя мышка это умеет - клик с удержанием по СКМ и двигай, даже значок скролла отображается, ещё раз нажал выключился, но нет ускорения и на больших страницах надо двигать мышой весьма интенсивно.
]]>
]]>
Во-первых, как соотносятся между собой сообщение про счетчик прокруток за 0.5 с и SetTimer lWDmove , 5000, учитывая такой ценный комметнарий, что 1000 ms = 1 секунда?
Ну это еще полбеды, так как есть...
Во-вторых. Представь себе логику программы, как она выглядит со стороны, а не так, как бы тебе хотелось, чтоб она работала. (Ибо воздействие мысли на работу механизмов и бег электронов пока еще не доказано )
С запуском скрипта начинают работать подпрограммы таймеров. Причем, событие это происходит в скрипте каждые 5 секунд, и никак не завязано на действия пользователя, повороты колеса и прочее, а только на время запуска скрипта.
И вот, проходит время 4990 мс (к примеру) со времени запуска скрипта, и ты решаешь покрутить колесико, чтобы счетчик накрутить... Догадаешься, что будет через 10мс?
;#InstallMouseHook
; 1000 ms = 1 секунда
SetTimer lWDmove , 5000
SetTimer lWUmove, 5000
SetTimer lScrTip, 10
return
lScrTip:
ToolTip WheelDown= %vWDcount% `n WheelUp= %vWUcount%
return
lWUmove:
vWDcount := 0
return
lWDmove:
vWUcount := 0
return
~WheelDown::
Gosub lWDmove
vWDcount++
loop %vWDcount%
{
send, {WheelDown}
}
return
~WheelUp::
Gosub lWUmove
vWUcount++
loop %vWUcount%
{
send {WheelUp}
}
return
tab::
ExitApp
;SetTimer lbSaintsMove, on
;#UseHook, On
;WheelDown::
;GetKeyState, RBstate, RButton
;if RBstate = D
; send {End}
;else
; send {WheelDown}
;return
;WheelUp::
;GetKeyState, RBstate, RButton
;if RBstate = D
; send {Home}
;else
; send {WheelUp}
;return
;#UseHook, OffIndomito, не понял про какие стрелки речь - у себя на мыши после длительных поисков никаких стрелок не обнаружил
(Посмотри пост #3, если тобой подразумевалась клавиатура)
поясняю, что я хочу сделать, но почему то это не получается.
Вариант №1
Считать количество WheelDown и WheelU, и посылать их, т.е. вместо одного столько сколько было прокруток за 0.5 секунды - не получилось.
Вариант №2
Считать количество WheelDown и WheelU, и посылать UP DN стрелок клавиатуры, столько сколько было прокруток колеса мышки за 0.5 секунды - не получилось.
Код был выше приведён, но на него ответили что он работает. Да он работает, но как только указатель мышки попадает в область любого окна где допустим вертикальный скролл счётчик отрубается.
Вот код
;#InstallMouseHook
; 1000 ms = 1 секунда
SetTimer lWDmove , 5000
SetTimer lWUmove, 5000
SetTimer lScrTip, 10
return
lScrTip:
ToolTip WheelDown= %vWDcount% `n WheelUp= %vWUcount%
return
lWUmove:
vWUcount := 0
return
lWDmove:
vWDcount := 0
return
~WheelDown::
Gosub lWUmove
vWDcount++
loop %vWDcount%
{
send, {WheelDown}
}
return
~WheelUp::
Gosub lWDmove
vWUcount++
loop %vWUcount%
{
send {WheelUp}
}
return
tab::
ExitAppДушой понмаю, что где то ошибка, мой mind.dll видимо не верно отрабатывает вызовы
MButton & WheelUp::Send {Home}
MButton & WheelDown::Send {End}
MButton Up::Send {MButton}При зажатой средней кнопке колесо делает то что нужно, и в браузере средняя кнопка вкладки закрывает/ссылки открывает как надо (мелочи вроде посыла MButton Down/Up при отжатии - несущественны) 
.
А доработанный ирбисом код грея я думаю прилепить на PageUp/PageDown:
~MButton::
Return
~WheelUp::
~WheelDown::
if (A_PriorHotkey = "~MButton") && (A_TimeSincePriorHotkey < 500)
Send, % "{"(A_ThisHotkey~="lD" ? "End":"Home")"}"
Return
..слишком часто происходят ложные срабатывания при активном использовании колеса мыши...
При отсутствии контраста между скоростью прокручивания - м.б.
Если же увеличить Counter...
Кроме переменной есть ещё и значение таймера.
Поэтому на основе предложенного скрипта сделал такой вариант: Средняя кнопка мыши, затем в течении небольшого периода (0,5с) пользователь одним поворотом колеса может сделать переход в начало/конец страницы.
#If WinActive("ahk_class OperaWindowClass")
~MButton::
Return
~WheelUp::
~WheelDown::
if (A_PriorHotkey = "~MButton") && (A_TimeSincePriorHotkey < 500)
Send, % "{"(A_ThisHotkey~="lD" ? "End":"Home")"}"
Return