Вопросы по AHK-скриптингу

Rinat_Namazov написал(а):

\r\n

Нажмите для раскрытия...

aniskinag написал(а):

Подскажет может кто? Как сделать что бы АХК видя определённое слово в Чате, отпровляло то слово, которое я закодировал, то есть автовыдача.


Вот что получилось у меня(И то немного баганное).

SetBatchLines -1

chatlog := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
FileDelete, %chatlog%

Words = (kick|mute|jail|slap|sethp|unmute|unjail|sban|ban|sban|warn|skick|mpskin|o|unban|unwarn|setskin|skick|banip|banoff|warnoff|dellveh|sban)

!F2::
FileRead, Str, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringReplace, Str, Str, `r`n, `n, 1
StringReplace, Str, Str, `r, `n, 1

RegExMatch("`n" Str "`n", "i).*\n\[\d+:\d+:\d+]\s*\[A].*?\[.*?]:\s*(/`*" Words "\s.*?)\n", Match)
ToolTip % Clipboard := Match1
FileAppend,%Match1%`n,logachat.ini
SendMessage, 0x50,, 0x4190419,, A
Sleep 500
SendInput,{F6}%match1% {space}
sleep 1000
clipboard =
ToolTip
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
sleep 100
Return


Нужно сделать так, что бы выдавалось не по Альт+Ф2, а автоматом. Грубоговоря админское, тоесть в /a пишут: /a /sethp ID кол-во, и АХК автоматом сразу это выполнял.

Нажмите для раскрытия...

aniskinag написал(а):

Подскажет может кто? Как сделать что бы АХК видя определённое слово в Чате, отпровляло то слово, которое я закодировал, то есть автовыдача.


Вот что получилось у меня(И то немного баганное).

SetBatchLines -1

chatlog := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
FileDelete, %chatlog%

Words = (kick|mute|jail|slap|sethp|unmute|unjail|sban|ban|sban|warn|skick|mpskin|o|unban|unwarn|setskin|skick|banip|banoff|warnoff|dellveh|sban)

!F2::
FileRead, Str, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringReplace, Str, Str, `r`n, `n, 1
StringReplace, Str, Str, `r, `n, 1

RegExMatch("`n" Str "`n", "i).*\n\[\d+:\d+:\d+]\s*\[A].*?\[.*?]:\s*(/`*" Words "\s.*?)\n", Match)
ToolTip % Clipboard := Match1
FileAppend,%Match1%`n,logachat.ini
SendMessage, 0x50,, 0x4190419,, A
Sleep 500
SendInput,{F6}%match1% {space}
sleep 1000
clipboard =
ToolTip
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
sleep 100
Return


Нужно сделать так, что бы выдавалось не по Альт+Ф2, а автоматом. Грубоговоря админское, тоесть в /a пишут: /a /sethp ID кол-во, и АХК автоматом сразу это выполнял.

Нажмите для раскрытия...

semiTimerObj := Func("semiTimer")
setTimer, % semiTimerObj, 500


getNewChatLines() ; получаем из чата только новые строки
{
    static prevChatLine
    static prevTimeStamp
 
    if(!checkHandles())
        return
    dwAddress :=    readDWORD(hGTA, dwSAMP + ADDR_SAMP_CHATMSG_PTR) ; тут смотри сам, ADDR_SAMP_CHATMSG_PTR разный для разных версий сампа 0.3.7r1 - 0x21A0E4, 0.3.7r2 - 0x21A0EC, 0.3dl - 0x2ACA10
    if ErrorLevel
        return
 
    chat :=    []
 
    curChatLine :=    readString(hGTA, dwAddress + 0x62C6, 0xFC)
    curTimeStamp :=    readMem(hGTA, dwAddress + 0x62A6, 4, "int")
    if(curTimeStamp != prevTimeStamp || curChatLine != prevChatLine)
    {
        if(prevTimeStamp != "")
            Loop 100
            {
                chatLine :=        readString(hGTA, dwAddress + 0x152 + (100 - A_Index) * 0xFC, 0xFC)
                timestamp :=    readMem(hGTA, dwAddress + 0x132 + (100 - A_Index) * 0xFC, 4, "int")
                if(chatLine == prevChatLine && timestamp == prevTimeStamp)
                    break
                else
                    chat.push(chatLine)
            }
         
        prevChatLine :=        curChatLine
        prevTimeStamp :=    curTimeStamp
    }
    return chat
}

semiTimer()
{
    a := getNewChatLines()
    for k, v in a
        if(regexmatch(v, "регулярка у тебя неверная, проверяй ее на regex101"))
        {
            ; do something
            ; sendChat("text") Например
        }
}

arsh12344 написал(а):

semiTimerObj := Func("semiTimer") setTimer, % semiTimerObj, 500

Нажмите для раскрытия...

Phoenixxx_CZAR написал(а):

Глупость. Можно писать просто название функции, в SetTimer.

Нажмите для раскрытия...

Northup написал(а):

После введённых клавиш и нажатой кнопки [SAVE], программа выводит окно [сохранено]. Но проблема в том, что не работает клавиша Combo.
Как исправить?
Gui, Add, Hotkey, x12 y70 w100 h30 vKeyB,
Gui, Add, Hotkey, x12 y110 w100 h30 vKeyC,
Gui, Add, Hotkey, x12 y150 w100 h30 vKeyD,
Gui, Add, Hotkey, x132 y320 w90 h30 vCombo,
Gui, Add, Button, x62 y370 w100 h30 gSAVE, Button
; Generated using SmartGUI Creator 4.0
Gui, Show, x686 y211 h431 w247,
return
SAVE:
Hotkey, %KeyA%, Off, UseErrorLevel
Hotkey, %KeyB%, Off, UseErrorLevel
Hotkey, %KeyC%, Off, UseErrorLevel
Hotkey, %KeyD%, Off, UseErrorLevel
Hotkey, %Combo%, Off, UseErrorLevel
Hotkey, %KeyA%, On, UseErrorLevel
Hotkey, %KeyB%, On, UseErrorLevel
Hotkey, %KeyC%, On, UseErrorLevel
Hotkey, %KeyD%, On, UseErrorLevel
Hotkey, %Combo%, On, UseErrorLevel
Gui, Submit, NoHide
MsgBox, Сохранено
return

Combo:
SendInput, %KeyA% ; /*EULS-4*/
SendInput, {sc11} ;
Sleep, 888
SendInput, %KeyB% ; /*ECHO STOMP-Q*/
SendInput, %KeyC% ; /*ULT-R*/
SendInput, %KeyD% ; /*METEOR HAMMER-C*/
return

Нажмите для раскрытия...

Harold_Sandstorm написал(а):

Парни, такое дело. Представим ситуацию: военный стоит на КПП и проверяет документы въезжающих/выезжающих. Надо реализовать код, который будет считывать фамилию и звание/ранг человека. И потом, после ввода команды, допустим, /in, было SendChat("/r В расположение части прибыл " rank " " name2) (ранг и фамилия человека, последнего показавшего паспорт). Прошу помощи конкретно со считыванием инфы.
UPD: project - SRP

Нажмите для раскрытия...