[Помощь]Автоответчик ARP - Форум Cheat-Master.ru

  • Страница 1 из 1
  • 1
Модератор форума: tumkin, Junger  
Форум » Программирование » AHK Программирование » [Помощь]Автоответчик ARP
[Помощь]Автоответчик ARP
Gyfall004Дата: Суббота, 22.10.2016, 00:16 | Сообщение # 1
Боец
Группа: Пользователи
Сообщений: 141
Статус: Offline
Помогите сделать автооответчик по слову(Несколько)
На пример Пишут Когда призыв и сразу ответ на номер телефона
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
QuiсkДата: Суббота, 22.10.2016, 13:59 | Сообщение # 2
Боец
Группа: Пользователи
Сообщений: 64
Статус: Offline
Через чтение последней строки или чатлога и RegExMatch вроде можно реализовать.

<> <> <> <> <> <> <> <> <> <> <> <> <> <> Помог? - поддержи репкой :3 <> <> <> <> <> <> <> <> <> <> <> <> <> <>
http://cheat-master.ru/forum/208-645733-1 - ЛОВЛЯ БИЗНЕСОВ AZRP
http://cheat-master.ru/forum/159-676319-1 - СКРИПТ ДЛЯ ИНВОКЕРА!
http://cheat-master.ru/forum/179-693939-1 - Anti-AFK для GTA Online
<> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <><> <> <> <> <> <> <> <> <> <>
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
DemchogДата: Суббота, 22.10.2016, 15:00 | Сообщение # 3
Любитель
Группа: Заблокированные
Сообщений: 34
Статус: Offline
Vitalyandr, без регулярки вполне можно!
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
MrGProДата: Суббота, 22.10.2016, 19:19 | Сообщение # 4
Боец
Группа: Пользователи
Сообщений: 125
Статус: Offline
Тут типо читаем/создаём массив с файла
Код

global DirectWords = "C:\Users\Dell\Desktop\x.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" ; Стандартный путь для всех (Мои Документы)

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

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


Ищем по чат-логу
Код

Loop
{
chatline := GetNewLine(DirectChat) ; Пока размер файла не измениться ничего не делаем
if (RegExMatch(chatline, "^\[\d{2}:\d{2}:\d{2}\] (\w+)\[(\d{1,3})\] говорит: (.*)", mKey))
{
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
}


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


Сообщение отредактировал MrGPro - Суббота, 22.10.2016, 19:21
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
QuiсkДата: Суббота, 29.10.2016, 09:06 | Сообщение # 5
Боец
Группа: Пользователи
Сообщений: 64
Статус: Offline
Demchog, тут на выбор и удобство каждого. Я лишь пару своих задумок описал.

<> <> <> <> <> <> <> <> <> <> <> <> <> <> Помог? - поддержи репкой :3 <> <> <> <> <> <> <> <> <> <> <> <> <> <>
http://cheat-master.ru/forum/208-645733-1 - ЛОВЛЯ БИЗНЕСОВ AZRP
http://cheat-master.ru/forum/159-676319-1 - СКРИПТ ДЛЯ ИНВОКЕРА!
http://cheat-master.ru/forum/179-693939-1 - Anti-AFK для GTA Online
<> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <><> <> <> <> <> <> <> <> <> <>
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум » Программирование » AHK Программирование » [Помощь]Автоответчик ARP
  • Страница 1 из 1
  • 1
Поиск:
МЕСТО БАННЕРА СВОБОДНО
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
⚡Скупка/Продажа виртов AR... [izreker228]

[1932049] Один_Из_Leone™,... [Один_Из_Leone™]

. [izreker228]

Заказ № 1931658 | Не... [АК_47]

[1932039] [CM]Russel, Нев... [АК_47]

[1929967] garden, не суще... [АК_47]

[1930988] DevS, невалидны... [АК_47]

RollCase [АК_47]

Продам много аккаунтов A... [viruru]

Срочно продам вирты на Ar... [viruru]

♣♣СКУПКА/ПРОДАЖА STEAM АК... [iREVO]

На акке сидит другой чело... [АК_47]

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

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

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

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

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

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

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

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

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

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

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

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

[1]>АК_47 [31230]

[2]>GеNius [7080]

[3]>romka619 [5403]

[4]>[CM]Russel [5214]

[5]>[CM]AGRESSOR [4654]

[6]>Сэс [4430]

[7]>Snake_Firm [4382]

[8]>Artem_Buero [4181]

[9]>[CM]Durman [3272]

[10]>sky_Woker [2997]

[11]>iMaddy [2867]

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

[13]>Sa1nteD [2692]

[14]>Ch0c0Cube [2453]

[15]>BY [2346]

hueputalo222 [28.05.2018|00:09]

_Tez0r_ [27.05.2018|23:51]

mot9noname [27.05.2018|23:44]

0X07H1K34741D0M [27.05.2018|23:44]

Alex1703 [27.05.2018|23:37]

TurboUfka [27.05.2018|23:27]

majorghetto [27.05.2018|23:06]

andrewxdxd [27.05.2018|23:04]

DarkKey [27.05.2018|23:02]

Skphar01 [27.05.2018|22:53]

chetorsamperpro [27.05.2018|22:44]

Gandonv [27.05.2018|22:40]

russianhooligans [27.05.2018|22:30]

Anime_DVC [27.05.2018|22:29]

Kbav[5aw] [27.05.2018|22:28]


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

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