Increment/Decrement Mouse speed

decrement mouse speed.applescript

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

set trackingDelta to -1 --decrease
--Open and activate System Preferences
tell application "System Preferences" to activate
--Attempt to change settings using System Events

tell application "System Events"
	tell process "System Preferences"
		--Open the "Keyboard & Mouse" pane
		set clicked to false
		repeat while clicked is false
			try
				set clicked to false
				click menu item "Mouse" of menu "View" of menu bar 1
				set clicked to true
			on error
				set clicked to false
			end try
		end repeat
		
		
		--adjust mouse speed by trackingDelta
		set adjusted to false
		repeat while adjusted is false
			try
				set oldTrackingValue to (get value of slider "Tracking Speed" of window "Mouse")
				set newTrackingValue to (oldTrackingValue + trackingDelta)
				set value of slider "Tracking Speed" of window "Mouse" to newTrackingValue
				set adjusted to true
			on error
				set adjusted to false
			end try
		end repeat
		--end tell
	end tell
end tell
tell application "System Preferences" to quit

increment mouse speed.applescript

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

set trackingDelta to +1 --increase
--Open and activate System Preferences
tell application "System Preferences" to activate
--Attempt to change settings using System Events

tell application "System Events"
	tell process "System Preferences"
		--Open the "Keyboard & Mouse" pane
		set clicked to false
		repeat while clicked is false
			try
				set clicked to false
				click menu item "Mouse" of menu "View" of menu bar 1
				set clicked to true
			on error
				set clicked to false
			end try
		end repeat
		
		
		--adjust mouse speed by trackingDelta
		set adjusted to false
		repeat while adjusted is false
			try
				set oldTrackingValue to (get value of slider "Tracking Speed" of window "Mouse")
				set newTrackingValue to (oldTrackingValue + trackingDelta)
				set value of slider "Tracking Speed" of window "Mouse" to newTrackingValue
				set adjusted to true
			on error
				set adjusted to false
			end try
		end repeat
		--end tell
	end tell
end tell
tell application "System Preferences" to quit