request: scrolling (for mouse with no scroll wheel)

[berserkk]

Hi there,
I have a mouse without a scroll wheel (it's an ergonomic 3m one)
what i would like is to be able to scroll using the buttons on the mouse
for e.g. hold middle mouse button and use left click to send scroll down, right click to send scroll up)
i.e. have combined clicks send a different command (middle+left = scroll down)
also is it possible to send repeated keystrokes, as atm scrolldown will only work once when holding down the button.
thanks for your great proggy!
Ben

[phil]

Hi,

Im having problems with the combined clicks stuff... I think its going to take a complete rethink/rewrite which I dont have time for...

But I have been able to add auto-repeat to the Mouse Wheel Down/Mouse Wheel Up options which seems to work quite well...

I might add autorepeat to simulated keystrokes too...

Thanks,
Phil

[berserkk]

thanks for your time phil,
I hope this change will help others,
I ended up going hardcore and writing a script to do this functionality using auto-hotkey because it was driving me nuts.
i now just need free software to scroll the window under the mouse.

this is the script if anyone needs it: (i don't think acceleration works, its supposed to but theres a bug somewhere, haven't looked hard enough yet)

MouseWheelSpeed = 1
MouseWheelAccelerationSpeed = 2
MouseWheelMaxSpeed = 10

MouseRotationAngle = 0


Hotkey, *NumpadAdd, ButtonWheelDown
Hotkey, MButton & LButton, ButtonWheelDown
Hotkey, MButton & RButton, ButtonWheelUp

ButtonWheelUp:
ButtonWheelDown:

If Button <> 0
{
If Button <> %A_ThisHotkey%
{
MouseWheelCurrentAccelerationSpeed = 0
MouseWheelCurrentSpeed = %MouseWheelSpeed%
}
}
StringReplace, Button, A_ThisHotkey, *

ButtonWheelAccelerationStart:
If MouseWheelAccelerationSpeed >= 1
{
If MouseWheelMaxSpeed > %MouseWheelCurrentSpeed%
{
Temp = 0.001
Temp *= %MouseWheelAccelerationSpeed%
MouseWheelCurrentAccelerationSpeed += %Temp%
MouseWheelCurrentSpeed += %MouseWheelCurrentAccelerationSpeed%
}
}
;MsgBox %Button%
If Button = MButton & RButton
MouseClick, wheelup,,, %MouseWheelCurrentSpeed%, 0, D
else if Button = MButton & LButton
MouseClick, wheeldown,,, %MouseWheelCurrentSpeed%, 0, D

SetTimer, ButtonWheelAccelerationEnd, 100
return

ButtonWheelAccelerationEnd:
GetKeyState, kstate, LButton, P
if kstate = D
Goto ButtonWheelAccelerationStart
GetKeyState, kstate, RButton, P
if kstate = D
Goto ButtonWheelAccelerationStart

MouseWheelCurrentAccelerationSpeed = 0
MouseWheelCurrentSpeed = %MouseWheelSpeed%
Button = 0