HotKey, Numpad7, Start, On ;Задаём Numpad7 метку Start
return

Start:
HotKey, LButton, Lock, On ; Когда вызвали метку, сразу блочим ЛКМ
KeyWait, Numpad7, U ; Отпускаем Numpad7
SetTimer, LButtonOff, 100 ;Запускаем таймер, чтобы когда лкм отжали, скрипт об этом знал.
GetKeyState, state, LButton, P 
If state = U ; Проверяем зажатость ЛКМ, если не нажат, выйти из действий и просто прокрутить вверх.
{
   HotKey, LButton, Lock, Off
   SendInput {WheelUp}
   return
}
If state = D ; Если ЛКМ остался зажатым, изменяем метку для Numpad7.
   HotKey, Numpad7, Lock2, On

Lock:
Return

Lock2: ; Метка со вторым действием.
GetKeyState, state, LButton, P
if state = U ;Если ЛКМ всё же отпустили, то выйти из метки и вернуть всё как было.
   {
      HotKey, Numpad7, Start, On
      HotKey, LButton, Lock, Off
      SetTimer, LButtonOff, off
      return
   }
if state = D ; Если ЛКМ всё еще зажат, то выполняем прокрутку вниз.
   SendInput {WheelDown}
Return

;Таймер на проверку отжатия ЛКМ клавиши.
LButtonOff:
GetKeyState, state, LButton, P
if state = U
   {
      SetTimer, LButtonOff, off
      HotKey, Numpad7, Start, On
      HotKey, LButton, Lock, Off
   }
   return

Numpad7::
KPress := 0
HotKey, vk1, Lock, On
KeyWait, % A_ThisHotkey, U
HotKey, vk1, Lock, Off

If (KPress = 0)
 ToolTip, Нажатий ЛКМ не было, 0,0
Else
 ToolTip, % "Нажатий ЛКМ: " KPress, 0,0
Return

Lock:
KPress++
ToolTip, % "KPress: " KPress, 0,0
Return

Numpad7::
{
    KeyWait "Numpad7",'Up'
    State := GetKeyState('LButton', 'P')
    if State = 1
        {
    loop 
        {
            State := GetKeyState('LButton', 'P')
            State2 := GetKeyState('Numpad7', 'P')
            if State = 1 and State2 = 1
                {
                KeyWait "Numpad7", 'Up'
                SendInput "{WheelDown}"
                }
            if State2 = 0
                break
        }
    }
    else
    SendInput "{WheelUp}"
}