[Помощь] Автоответ в репорт для администратора. - Форум Cheat-Master.ru

  • Страница 1 из 1
  • 1
Модератор форума: tumkin, Junger  
Форум » Программирование » AHK Программирование » [Помощь] Автоответ в репорт для администратора.
[Помощь] Автоответ в репорт для администратора.
LiRДата: Понедельник, 17.10.2016, 16:36 | Сообщение # 1
Боец
Группа: Пользователи
Сообщений: 79
Статус: Offline
StringCaseSense, Locale
CL = %A_MyDocuments%\GTA San Andreas User Files\CR-MP\GenerationC\chatlog.txt
StringCaseSense, Locale
Loop,Read, %CL%
Line := A_LoopReadLine
RegExMatch(Line, "`[[0-9]+:[0-9]+:[0-9]+`] ", timestamp)
Line := RegExReplace(Line, "`[[0-9]+:[0-9]+:[0-9]+`] ", "")
RegExMatch(Line, "`[Жалоба] от [A-z]+_[A-z]+[([0-9]+`]: {FFFFFF}", ID)
StringTrimLeft, ID, ID, 1
StringTrimRight, ID, ID, 1
IfInString, A_LoopReadLine, спасиб
IfInString, A_LoopReadLine, {FFFFFF}
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/ans " ID " Администрация желает вам приятной игры {ENTER}
sleep 500
SendInput {F8}
}

______________________
В чем ошибка? Почему не запускается и не отвечает на репорт скрипт?


Сообщение отредактировал LiR - Понедельник, 17.10.2016, 16:39
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
DemchogДата: Понедельник, 17.10.2016, 18:25 | Сообщение # 2
Любитель
Группа: Заблокированные
Сообщений: 34
Статус: Offline
Скачай SAMP UDF - https://yadi.sk/d/NzoAEHoGvrWWN
Перетащи на рабочий стол или в папку со скриптом.
Код:
Код

#Persistent
#SingleInstance, Force
#NoEnv
#Include, SAMP-UDF-Developer.ahk
CL := % A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Loop {
    chatline := GetNewLine(CL)
    if (RegExMatch(chatline, "^\[\d{2}:\d{2}:\d{2}\] \[Жалоба\] от (\w+)\[(\d{1,3})\]: \{FFFFFF\}(.*)", match)) {
  if (InStr(match3, "спасиб") || InStr(match3, "sps")) {
   SendChat("/ans " match2 " Администрация желает вам приятной игры! ")
  }
    }
}

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
}


Сообщение отредактировал Demchog - Понедельник, 17.10.2016, 18:25
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
LiRДата: Вторник, 18.10.2016, 01:23 | Сообщение # 3
Боец
Группа: Пользователи
Сообщений: 79
Статус: Offline
Цитата Demchog ()
Перетащи на рабочий стол или в папку со скриптом.

Не отвечает sad
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
DemchogДата: Вторник, 18.10.2016, 07:50 | Сообщение # 4
Любитель
Группа: Заблокированные
Сообщений: 34
Статус: Offline
LiR, значит попробуй так:
Код

#Persistent
#SingleInstance, Force
#NoEnv
#Include, SAMP-UDF-Developer.ahk
CL := % A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Loop {
chatline := GetNewLine(CL)
if (RegExMatch(chatline, "^\[\d{2}:\d{2}:\d{2}\] \[Жалоба\] от (\w+)\[(\d{1,3})\]: \{FFFFFF\}(.*)", match)) {
if (InStr(match6, "спасиб") || InStr(match6, "sps")) {
SendChat("/ans " match5 " Администрация желает вам приятной игры! ")
}
}
}

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
}


Сообщение отредактировал Demchog - Вторник, 18.10.2016, 07:50
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
LiRДата: Вторник, 18.10.2016, 18:51 | Сообщение # 5
Боец
Группа: Пользователи
Сообщений: 79
Статус: Offline
Тоже не отвечает..
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
DemchogДата: Среда, 19.10.2016, 07:27 | Сообщение # 6
Любитель
Группа: Заблокированные
Сообщений: 34
Статус: Offline
LiR, у тебя чат-лог находится там же, где и переменная CL?
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Среда, 19.10.2016, 16:36 | Сообщение # 7
Боец
Группа: Заблокированные
Сообщений: 294
Статус: Offline
Demchog,
Ну наверное потому что:
Цитата LiR ()
CL = %A_MyDocuments%\GTA San Andreas User Files\CR-MP\GenerationC\chatlog.txt


https://vk.com/zatkap
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
MrGProДата: Среда, 19.10.2016, 18:23 | Сообщение # 8
Боец
Группа: Пользователи
Сообщений: 125
Статус: Offline
LiR, Вот 100% - рабочий код | + возможность проверять слов с файла Words.txt. | SA:MP
Если вы делаете проверку на GTA:CR а не на SA:MP
Код
SendChat("/ans " match2 " Администрация желает вам приятной игры! ")
на
SendInput, {F6}/ans %mKey2% Администрация желает вам приятной игры!{enter}


Код
#SingleInstance, Force
#NoEnv
#Include Z.ahk
;~ [13:49:12] [Жалоба] от MrGPro[12]: {FFFFFF}бан

global DirectWords = % A_ScriptDir "\Words.txt"
global DirectChat = "C:\GTA San Andreas User Files\SAMP\chatlog.txt" ; Лично у меня генерируеться на диске C
;~ global DirectChat = % A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt" ; Стандартный путь для всех (Мои Документы)

MsgBox, % DirectChat

IfNotExist, %A_ScriptDir%\Words.txt
{
If (GenWordsFile())
MsgBox, Базовый файл - сгенерирован
}
Words := Object()

Loop, Read, % DirectWords
{
Words.Insert(A_LoopReadLine)
}

Loop
{
chatline := GetNewLine(DirectChat) ; Пока размер файла не измениться ничего не делаем
if (RegExMatch(chatline, "^\[\d{2}:\d{2}:\d{2}\] \[Жалоба\] от (\w+)\[(\d{1,3})\]: \{FFFFFF\}(.*)", ))
{
for index, fword in Words
{
if (InStr(mKey3, fword))
{
MsgBox, % fword . " - найден "
SendChat("/ans " match2 " Администрация желает вам приятной игры! ")
}
}
}
}

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
}

GenWordsFile() ; генерация базового файла
{
GenWords=<br / <img src="/.s/sm/2/angry.gif" border="0" align="absmiddle" alt="angry" />
спасиб
sps
бан
)
FileDelete, %A_ScriptDir%\Words.txt
FileAppend, %GenWords%, %A_ScriptDir%\Words.txt, UTF-8
return True
}


>> Важно измен адрес к файлу chatlog.txt -> на свой
>> Важно для GTA:CR подключите проверку открытия/закрытия чата пример ниже
Код
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return

~$enter UP::
if block=1
{
sleep 600
block=0
}
; вот что добавить в пример выше
loop
{
**** начало ******
if block=1
break
if block=0
continue
***** конец *****
}
return


Тебе помогли не забывай про благодарность >> тыкни репутацию
--------------------------------------------------------------------------------------------


Сообщение отредактировал MrGPro - Среда, 19.10.2016, 18:30
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум » Программирование » AHK Программирование » [Помощь] Автоответ в репорт для администратора.
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
Продажа ОЧЕНЬ ЖИРНОГО ЛИЧ... [[CM]AGRESSOR]

40% без должной причины [Y-3]

Гарант [CM] - Dontikk [Tralik]

[WoT] Продажа аккаунтов о... [POLTABLETKI_com]

Продажа Steam CS:GO 150 р... [PRID0NKA]

Накрутка валюты в играх [[CM]Drunya]

Сделаю бесплатно подписку... [[CM]Drunya]

1927819 Rollcase Не рабо... [АК_47]

[1929280] [CM]STEELLS; Не... [АК_47]

[1929009] {CM}Gew , Невал... [АК_47]

[Заказ № 1929361] Tawwer_... [АК_47]

Откат [АК_47]

[1]>[0.3z][RUS] S0beit modified by MishaN [10001]

[2]>Курилка [10000]

[3]>Поиск CLEO скриптов | Вопросы по клео скриптам [9988]

[4]>Флудильная [9936]

[5]>Курилка [9688]

[6]>Курилка [9614]

[7]>RakBot - Качай аккаунты не напрягаясь! [9602]

[8]>Общение читеров [CM] [9546]

[9]>S0beit - pr9n project for samp 0.3.7 [9490]

[10]>Часто задаваемые вопросы... [8223]

[11]>Скуплю Advance по 300р за 1кк и DIamond по 250р [7624]

[12]>Вопросы и ответы [6466]

[1]>АК_47 [31166]

[2]>GеNius [7073]

[3]>romka619 [5403]

[4]>[CM]Russel [5208]

[5]>[CM]AGRESSOR [4652]

[6]>Сэс [4430]

[7]>Snake_Firm [4377]

[8]>Artem_Buero [4182]

[9]>[CM]Durman [3271]

[10]>sky_Woker [2997]

[11]>iMaddy [2867]

[12]>[CM]Рафаэль [2768]

[13]>Sa1nteD [2692]

[14]>Ch0c0Cube [2453]

[15]>BY [2343]

iaselmur [23.05.2018|01:58]

saymeow123 [23.05.2018|01:21]

zantalai [23.05.2018|00:53]

$Travka$ [23.05.2018|00:51]

Piratobn [23.05.2018|00:25]

Kbvvs740s [23.05.2018|00:08]

Haritosha [22.05.2018|23:39]

Ronn [22.05.2018|23:38]

SeregaBpanMan [22.05.2018|23:28]

soloveyxx [22.05.2018|23:25]

pazzle23 [22.05.2018|23:24]

soloveyx [22.05.2018|23:22]

Follower1192 [22.05.2018|23:18]

santiago_dewerro [22.05.2018|23:18]

Hifargo [22.05.2018|23:14]


CM Team © 2009-2018 Администрация не несёт ответственности за размещённые материалы. Условия пользования
Все материалы предоставлены в ознакомительных целях и администрация предлагает удалить их после ознакомления.

Положение о защите персональных данных на сайте, Пользовательское соглашение, Договор оказания услуг.