vkлюбаяклавиша::

StringCaseSense, Locale
name = chatlog.txt
loop
{
lastline := GetNewLine(name)
IfInString, lastline, Докладываю
{

SendInput {F6}/r Доклад принят{enter}

}
}

GetNewLine(filename)
{
    static old
    static new
    if !old
    {
       FileGetSize, old, %filename%
       new := old
    }
    while old = new
    {
       sleep 500
       FileGetSize, new, %filename%
    }
    old := new
    Loop, read, %filename%
       if A_LoopReadLine
          last := A_LoopReadLine
    return last
}
return