- 55
- 14
Приветствую, нужна помощь с написанием кода без samp.udf и прочего, просто чистый ахк. Есть текстовый документ, и в нем логируются сообщения, например: Добро пожаловать на. При выводе этого текста должен появиться гуи или msgbox. При повторной отправке текста, будет происходить тоже самое, а не бесконечный цикл с одним текстом
Смог решить проблему самостоятельно.Приветствую, нужна помощь с написанием кода без samp.udf и прочего, просто чистый ахк. Есть текстовый документ, и в нем логируются сообщения, например: Добро пожаловать на. При выводе этого текста должен появиться гуи или msgbox. При повторной отправке текста, будет происходить тоже самое, а не бесконечный цикл с одним текстом
Код:
global file_update := "C:\RAGEMP\clientdata\cef_game_logs.txt"
SetTimer, update1, 50
SetTimer, update2, 50
update1:
FileEncoding, UTF-8
FileRead, chatlog, % file_update
if(RegExMatch(chatlog, "Остановите редактирование", out))
{
SoundPlay, Dev Files\ok.wav
State3:=!State3
Gui +LastFound +AlwaysOnTop -Caption
Gui, Color, 3A3B3C
Gui, Font, s11, Corbel
Gui, Font, cWhite
Gui, Font, w6000
Gui, Add, Picture,, Dev Files\stopr.png
WinSet, TransColor, brown
Gui, Color, brown
Gui, Show, x2 y250 NoActivate, window.
sleep 3000
Gui, Destroy
file := "C:\RAGEMP\clientdata\cef_game_logs.txt"
FileReadLine, line, %file%, 1
FileRead, All, % File
FileOpen(File, "w").Write(RegexReplace(All, "Остановите редактирование"))
}
return
update2:
FileEncoding, UTF-8
FileRead, chatlog, % file_update
if(RegExMatch(chatlog, "Продолжайте редактирование", out))
{
SoundPlay, Dev Files\ok.wav
State3:=!State3
Gui +LastFound +AlwaysOnTop -Caption
Gui, Color, 3A3B3C
Gui, Font, s11, Corbel
Gui, Font, cWhite
Gui, Font, w6000
Gui, Add, Picture,, Dev Files\prodr.png
WinSet, TransColor, brown
Gui, Color, brown
Gui, Show, x2 y250 NoActivate, window.
sleep 3000
Gui, Destroy
file := ""
FileReadLine, line, %file%, 1
FileRead, All, % File
FileOpen(File, "w").Write(RegexReplace(All, "Продолжайте редактирование"))
}
return
Последнее редактирование: