My Scroll is Broken.md

My Scroll is Broken

Following AutoHotkey2 script will disable the broken wheel, and add scroll functionality on the middle button. Alt + MButton + drag the mouse up or down.

; disable wheels
*WheelUp:: return
*WheelDown:: return

*!MButton:: {
  MouseGetPos(, &y1)
  KeyWait("MButton")
  MouseGetPos(, &y2)
  delta := Ceil((y2 - y1) / 100)
  if (delta > 0) {
    i := 0
    while (i < delta) {
      Send("{WheelUp 1}")
      i++
    }
  } else {
    i := 0
    while (i < -delta) {
      Send("{WheelDown 1}")
      i++
    }
  }
}