#noenv
#singleinstance force
#ifwinactive ahk_class Valve001

SPI_GETMOUSESPEED = 0x70
SPI_SETMOUSESPEED = 0x71
DllCall("SystemParametersInfo", UInt, SPI_GETMOUSESPEED, UInt, 0, UIntP, MouseSpeed, UInt, 0)

OldMouseSpeed := MouseSpeed 
SlowCoeff      = 0.1
OnExit, ExitLabel
return

~Lbutton:: 
MouseSpeed := MouseSpeed*SlowCoeff   ;Рассчет замедления.
if MouseSpeed < 1                    ;Эксперименты показали, что значения 
    {                                ;меньше 1 игнорируются.
    MouseSpeed = 1
    }
DllCall("SystemParametersInfo", UInt, SPI_SETMOUSESPEED, UInt, 0, UInt, MouseSpeed, UInt, 0)
StringTrimLeft, Key, A_ThisHotKey, 1   ;Вырезаем тильду из переменной, чтобы 
KeyWait, %Key%                         ;сработала команда KeyWait.
MouseSpeed := OldMouseSpeed            ;При отпускании клавиши возвращаем предыдущее значение скорости.
DllCall("SystemParametersInfo", UInt, SPI_SETMOUSESPEED, UInt, 0, UInt, MouseSpeed, UInt, 0)
return

ExitLabel:
MouseSpeed := OldMouseSpeed
DllCall("SystemParametersInfo", UInt, SPI_SETMOUSESPEED, UInt, 0, UInt, MouseSpeed, UInt, 0)
exitapp

;начальная инициализация. Берет текущую (при загрузке скрипта) скорость мышки.
SPI_GETMOUSESPEED = 0x70
SPI_SETMOUSESPEED = 0x71
DllCall("SystemParametersInfo", UInt, SPI_GETMOUSESPEED, UInt, 0, UIntP, MouseSpeed, UInt, 0)
ToolTip, Mouse speed: %MouseSpeed% pixels
SetTimer, RemoveToolTip, 1000

wheelup::
;Ctrl+Numpad8
   MouseSpeed++ ;увеличивает на 1 текущую скорость мышки
   DllCall("SystemParametersInfo", UInt, SPI_SETMOUSESPEED, UInt, 0, UInt, MouseSpeed, UInt, 0) ;задает ее системе
   ToolTip, Mouse speed: %MouseSpeed% pixels ; выдает подсказку у курсора о текущей скорости
   SetTimer, RemoveToolTip, 1000
return

wheeldown::
If MouseSpeed > 1
    MouseSpeed--
else                          ;если скорость минимальна то показать подсказку и выйти
{
    ToolTip, Mouse speed: minimal
    return
}
 DllCall("SystemParametersInfo", UInt, SPI_SETMOUSESPEED, UInt, 0, UInt, MouseSpeed, UInt, 0)
ToolTip, Mouse speed: %MouseSpeed% pixels
SetTimer, RemoveToolTip, 1000
return

RemoveToolTip:                           ;подпрограмма убирания подсказки
SetTimer, RemoveToolTip, Off
ToolTip
return

#noenv
#singleinstance force
#ifwinactive ahk_class Valve001

*$~lbutton::
WinGet, ID, PID, A
WriteAddress = 0x0392364C
ReadAddress = 0x0392364C
Size = 4
Data = 0
PreviousSence := GetVar(ReadAddress,ID,Size) ;запоминаем текущую сенсу
WriteVar(WriteAddress,ID,Size,Data) 
return

*$~lbutton up::
WinGet, ID, PID, A
WriteAddress = 0x0392364C
Size = 4
Data := PreviousSence                    ;возвращаем записанную ранее сенсу
WriteVar(WriteAddress,ID,Size,Data) 
return

;***************функции*************************
WriteVar(WriteAddress,ID,Size,Data) 
{
Address := WriteAddress           ; Адрес, куда писать.
Data := Data                      ; Что писать.
Size := Size                      ; Сколько байт писать.

VarSetCapacity(Buf, Size, 0)      ; Буфер, для записываемых данных.

NumPut(Data, Buf, 0, "UInt")      ; Данные - в буфер.

PROCESS_VM_WRITE = 0x20           ; Права на процесс.
PROCESS_VM_OPERATION = 0x8

PID := ID

hProcess := DllCall("OpenProcess", "UInt", PROCESS_VM_WRITE | PROCESS_VM_OPERATION
                                 , "Int",  False
                                 , "UInt", PID)
If(!hProcess) {
  MsgBox, Не удалось открыть процесс.
  ExitApp
}

Ret := DllCall("WriteProcessMemory", "UInt", hProcess
                                   , "UInt", Address
                                   , "UInt", &Buf
                                   , "UInt", Size
                                   , "UInt", 0)

DllCall("CloseHandle", "UInt", hProcess) ; Освобождение хэндла процесса.

If(!Ret) {
  MsgBox, Не удалось записать.
  ExitApp
}
}

GetVar(ReadAddress,ID,Size) 
{
PID := DllCall("GetCurrentProcessId")
ReadAddress := ReadAddress        ; Адрес, откуда читать.
ReadSize := Size                  ; Сколько байт читать.
VarSetCapacity(Buf, ReadSize, 0)  ; Буфер, куда считывать.    
PROCESS_VM_READ = 0x10            ; Права на процесс.

PID := ID

hProcess := DllCall("OpenProcess", UInt, PROCESS_VM_READ
                                 , Int, False
                                 , UInt, PID)
If(!hProcess) {
  MsgBox, Не удалось открыть процесс.
  ExitApp
}

Ret := DllCall("ReadProcessMemory", UInt, hProcess
                                  , UInt, ReadAddress
                                  , UInt, &Buf
                                  , UInt, ReadSize
                                  , UInt, 0)

DllCall("CloseHandle", UInt, hProcess) ; Освобождение хэндла процесса.

If(!Ret) {
  MsgBox, Не удалось прочитать.
  ExitApp
}

return NumGet(Buf, 0, "UInt")  ; Считывание из буфера в переменную.

}