Обнаружение изменений чувствительности мыши

Я ищу программу, работающую в Microsoft Windows 7, которая может обнаруживать и предупреждать или регистрировать каждый раз, когда изменяется чувствительность мыши.

Ответы (1)

Это можно легко сделать с помощью AutoIt, вот скрипт, который я создал,

#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>

;Open/Create log.txt file
$file = FileOpen("log.txt", 1)

;Check to see if it could be opened/created ok
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open/create file.")
    Exit
EndIf

Func detectChanges()
    ;Get Mouse position
    $aPos = MouseGetPos();
    $bPos = MouseGetPos();
    ;See if the mouse position has changed (0 and 1 for x and y)
    While $bPos[0] = $aPos[0] Or $bPos[1] = $aPos[1]
        ;Keep getting new mouse position
        $bPos = MouseGetPos();
    WEnd
    ;Return new position
    Return MouseGetPos();
EndFunc   ;==>detectChanges

;Go on forever
While 1
    $position = detectChanges();
    writeToTextFile($position)
    alertBox($position);
WEnd

Func writeToTextFile($position)
    $time = "Sec: " & @SEC & " Min: " & @MIN & " Hour: " & @HOUR & " Day: " & @MDAY & " Month: " & @MON & " Year: " & @YEAR;
    $write = $time & " | X:" & $position[0] & " Y:" & $position[1] & @CRLF;
    FileWrite($file, $write)
EndFunc   ;==>writeToTextFile

Func alertBox($position)
    MsgBox($MB_SYSTEMMODAL, "Alert: Mousemovement", "Mouse x, y: " & $position[0] & ", " & $position[1])
EndFunc   ;==>alertBox

Скачать скомпилированную версию можно здесь . Вы можете включать и выключать журналы и оповещения, комментируя (;) функции. Вы можете добавить какую-то задержку (Sleep(5000);<= спит в течение 5 секунд) каждый раз, когда запускается метод detectChanges(), иначе файл журнала может стать довольно большим. Если есть вопросы, задавайте :)

Обнаружение изменений чувствительности мыши
СпросиСетьПолитика конфиденциальности1y, 0v