#include <FileConstants.au3>
Local $hTimer = TimerInit()
While 1
Local $fDiff = TimerDiff($hTimer)
if $fDiff > 5000 then
$hTimer = TimerInit()
Local $hFileOpen = FileOpen("log.txt", $FO_APPEND)
Local $aPos = MouseGetPos()
FileWriteLine($hFileOpen, "Позиция мыши через интервал примерно 5 секунд")
FileWriteLine($hFileOpen, $aPos[0] & "," & $aPos[1])
msgbox(0,"Сообщение","Запись позиции мыши произведена!")
Endif