AutoHotkey で慣性スクロール

ソフト

Line=5 ;スクロールする行数
Time=50 ;感度
~WheelDown::
~WheelUp::
SetTimer,Scroll,%Time%
Count+=%Line%
StringTrimLeft,Key,A_ThisHotkey,1
Return

Scroll:
Loop,%Count%
{
If A_PriorHotkey<>%A_ThisHotkey%
Break
Send,{%Key%}
Sleep,%A_Index%
}
Count=-%Line%
SetTimer,Scroll,Off
Return

http://pc11.2ch.net/test/read.cgi/software/1201502896/917