|
[Помощь] Знающие люди. Замена кнопки
|
|
| Maskerano |
Дата: Понедельник, 19.09.2016, 16:39 | Сообщение # 1
|
Новичок
Сообщений: 8
Статус: Offline
|
Уважаемые форумчане. Что то я совсем запутался. Прошу у вас помощи.
Есть Код:
Код delete::
Loop
{
SendMessage, 0x50,, 0x4190419,, A
Wordes = (warn|kick|ban|jail|offban|offwarn|skin|unwarn|unjail|testahk)
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(.).*_(.*)\[.*?]:\s*(/`*" Wordes "\s.*?)\n", Match)
StringReplace, Match3, Match3, +, {ASC 0043} , 1
StringReplace, Match3, Match3, !, {ASC 0033} , 1
FileAppend,%Match3% By %Match1%%Match2%`n,logachat.ini
Sleep 100
SendInput,{BS 50}{F6}%Match3% | %Match1%. %Match2%{space} {enter}
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Return
}
Вопрос: Посоветуйте как заменить delete:: , на автовыдачу, т.е не надо будет нажимать делит , а сам будет реагировать и выдавать варны кики и тд...
|
|
|
|
|
| shamanchik9991 |
Дата: Понедельник, 19.09.2016, 18:09 | Сообщение # 2
|
Любитель
Сообщений: 31
Статус: Offline
|
Лучше не делать на автомате, ибо если будет слив, ты там всех перебанишь
|
|
|
|
|
| Maskerano |
Дата: Понедельник, 19.09.2016, 18:18 | Сообщение # 3
|
Новичок
Сообщений: 8
Статус: Offline
|
Цитата shamanchik9991 (  ) Лучше не делать на автомате
Вот решил пока так сделать.
|
|
|
|
|
| MrGPro |
Дата: Понедельник, 19.09.2016, 18:42 | Сообщение # 4
|
Боец
Сообщений: 202
Статус: Offline
|
delete - код кнопки или (название), :: - определяет что это кнопка
При нажатии на кнопку выполняется всё что ниже
Loop - это цикл "петля" (повторяет действие {...code...} 'n раз (Null - бесконечно, 25 - 25 раз)
Return - заканчивает цикл действия (скрипт дальше ничего не делает),кто не читает док ahk лепят его везде
Null - Пустое значение аналог if (steam ="")
Обычный Цикл: Действия
Код start:
{
.... code ....
}
return
Пример цикла бесконечной петли
Код #SingleInstance force
F2:: ; запускает скрипт по нажатию кнопки чтобы отключить такую активацию удали (F2:: и 1й return после кода)
Loop ; Null петля - бесконечная петля
{
if a_index = 5 ; количество выполненых повторов
{
MsgBox,,Статус петли, Выполнено %a_index% задано 5 раз и остановлена #1
break
}
MsgBox,,Статус петли, Выполнено %a_index% задано 5 раз ; просто для показа цикла петли
}
MsgBox,,Статус петли, Действие после петли ;то что появится после выполнения остановки loop
return ; скрипт дальше ничего не делает -> Удали return и посмотри что будет
Delete:
MsgBox,,Скрипт, Вы не указали return выше скрипт выполняет действие дальше
return
DeleteX:
MsgBox,,Скрипт, Вы указали return выше скрипт не выполняет действие дальше
return
Пример цикла петли по количествам повтора
Код #SingleInstance force
F2:: ; запускает скрипт по нажатию кнопки чтобы отключить такую активацию удали (F2:: и 1й return после кода)
Loop, 15 ; 15 - петля которая будет повторяться 15 раз
{
MsgBox,,Статус петли, Выполнено %a_index% задано 15 раз ; просто для показа цикла петли
}
MsgBox,,Статус петли, Действие после петли ;то что появится после выполнения остановки loop
return ; скрипт дальше ничего не делает -> Удали return и посмотри что будет
Delete:
MsgBox,,Скрипт, Вы не указали return выше скрипт выполняет действие дальше
return
DeleteX:
MsgBox,,Скрипт, Вы указали return выше скрипт не выполняет действие дальше
return
P.S: >>> Для ознакомления: Нажми на меня
Тебе помогли не забывай про благодарность >> тыкни репутацию
---------------------------------------͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏ -----------------------------------------------------
Зам.Администратора на проекте "DayZ Epoсh SPN" сервер Arma 2OA DayZ Epoch пиратка и лицензия
Сообщение отредактировал MrGPro - Понедельник, 19.09.2016, 19:07 |
|
|
|
|
| Maskerano |
Дата: Понедельник, 19.09.2016, 19:23 | Сообщение # 5
|
Новичок
Сообщений: 8
Статус: Offline
|
Цитата MrGPro ( ) Пример цикла бесконечной петли
Как я понял , так. правильно ?
Код
#SingleInstance force
Start:
Loop
{
SendMessage, 0x50,, 0x4190419,, A
Wordes = (warn|kick|ban|jail|offban|offwarn|skin|unwarn|unjail|testahk)
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(.).*_(.*)\[.*?]:\s*(/`*" Wordes "\s.*?)\n", Match)
StringReplace, Match3, Match3, +, {ASC 0043} , 1
StringReplace, Match3, Match3, !, {ASC 0033} , 1
FileAppend,%Match3% By %Match1%%Match2%`n,logachat.ini
Sleep 100
SendInput,{BS 50}{F6}%Match3% | %Match1%. %Match2%{space} {enter}
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Return
}
Сообщение отредактировал Maskerano - Понедельник, 19.09.2016, 19:59 |
|
|
|
|
| MrGPro |
Дата: Понедельник, 19.09.2016, 20:13 | Сообщение # 6
|
Боец
Сообщений: 202
Статус: Offline
|
Maskerano, Return - заканчивает цикл действия (скрипт дальше ничего не делает)
Смотри return заканчивает действие и скрип дальше ничего не делает так сказать переходит в режим ожидания просто не выполняет ни каких действий в loop он не уместен, чтобы сработала функция типа
нужно поместить в самое начало скрипта если нужно чтобы он запускался с другим цыклом используй SetTimer, time, on/off
Тебе помогли не забывай про благодарность >> тыкни репутацию
---------------------------------------͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏ -----------------------------------------------------
Зам.Администратора на проекте "DayZ Epoсh SPN" сервер Arma 2OA DayZ Epoch пиратка и лицензия
|
|
|
|
|
| Maskerano |
Дата: Понедельник, 19.09.2016, 21:42 | Сообщение # 7
|
Новичок
Сообщений: 8
Статус: Offline
|
Цитата MrGPro ( ) чтобы сработала функция
Return - С этим я понял. Что бы повторялся код ставлю "Loop [Повторяет участок кода несколько раз]"
или While-Loop- [Повторяет участок кода пока условие не выполнится]
Код #SingleInstance force
F2::
Start:
{
SendMessage, 0x50,, 0x4190419,, A
Wordes = (warn|kick|ban|jail|offban|offwarn|skin|unwarn|unjail|testahk)
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(.).*_(.*)\[.*?]:\s*(/`*" Wordes "\s.*?)\n", Match)
StringReplace, Match3, Match3, +, {ASC 0043} , 1
StringReplace, Match3, Match3, !, {ASC 0033} , 1
FileAppend,%Match3% By %Match1%%Match2%`n,logachat.ini
Sleep 100
SendInput,{BS 50}{F6}%Match3% | %Match1%. %Match2%{space} {enter}
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
Loop ; <----- Именно вот тут
}
}
Сообщение отредактировал Maskerano - Понедельник, 19.09.2016, 21:43 |
|
|
|
|
| MrGPro |
Дата: Вторник, 20.09.2016, 00:51 | Сообщение # 8
|
Боец
Сообщений: 202
Статус: Offline
|
Maskerano, Слушай я рассмотрел твой код подробней, если не добавить проверки if то скажу честно что ничего хорошего не выйдет. В коде проблемные строки описаны комментами. Если можно скинь примеры строк чат-лога на которое должен реагировать скрипт.
Код F2::
SendInput, {F6} test ключено{enter}
goto, start
return
Start:
FileGetSize, NowSize, C:\GTA San Andreas User Files\SAMP\chatlog.txt
Loop
{
SendMessage, 0x50,, 0x4190419,, A
FileGetSize, LastSize, C:\GTA San Andreas User Files\SAMP\chatlog.txt
if (NowSize < LastSize)
{
NowSize := LastSize
FileRead, Str, C:\GTA San Andreas User Files\SAMP\chatlog.txt
Wordes = (warn|kick|ban|jail|offban|offwarn|skin|unwarn|unjail|testahk)
StringReplace, Str, Str, `r`n, `n,
StringReplace, Str, Str, `r, `n,
RegExMatch("`n" Str "`n" , "i).*\n\[\d+:\d+:\d+]\s*\[A]\s(.).*_(.*)\[.*?]:\s*(/`*" Wordes "\s.*?)\n", Match)
StringReplace, Match3, Match3, +, {ASC 0043} , 1
StringReplace, Match3, Match3, !, {ASC 0033} , 1
FileAppend, %Match3% By %Match1%%Match2%`n, logachat.ini ; постоянно будет добавлять строки в файл без остановки
Sleep 100
SendInput,{BS 50}{F6}%Match3% | %Match1%. %Match2%{space} {enter} ; постоянно будет херачить в чат без остановки
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; постоянно будет удалять лог чата
}
}
return
Добавлено (20.09.2016, 00:51)
---------------------------------------------
Цитата Maskerano ( ) {
Loop ; <----- Именно вот тут
}
}
, выдает ошибку кода.
Если есть { то должна быть и } - всегда закрывай скобки либо будет ошибка
Код loop, 23
{ - эта скобка показывает что это начало кода
- код
} - эта скобка показывает что это конец кода
В основном ее использует в коде где много строк и проверок так
Код
;------------------------------------------ одно строчный код -------------------------------------
If fantik = 1
fantki = luser
else
fantik = noob
;------------------------------------------ много строчный код -------------------------------------
If (fantik = 1)
{
if (noobka = 1 or noobka = 10)
{
goto, start
}
else
{
goto, run
}
}
else
{
fantki = noobka
}
Тебе помогли не забывай про благодарность >> тыкни репутацию
---------------------------------------͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏ -----------------------------------------------------
Зам.Администратора на проекте "DayZ Epoсh SPN" сервер Arma 2OA DayZ Epoch пиратка и лицензия
Сообщение отредактировал MrGPro - Вторник, 20.09.2016, 00:57 |
|
|
|
|
| Maskerano |
Дата: Вторник, 20.09.2016, 08:34 | Сообщение # 9
|
Новичок
Сообщений: 8
Статус: Offline
|
Цитата MrGPro ( ) Если можно скинь примеры строк чат-лога на которое должен реагировать скрипт
В чатлоге : [12:28:10] [A] Santi_Maskerano[0]: /mute 0 1 Мат
|
|
|
|
|
