[Вопрос] Как считывать ЧатЛог?Почему не работает? - Форум - Cheat-Master.Ru | Читерский Форум | Читы для SAMP,CS,Minecraft,CoD,Warface | Продажа аккаунтов SAMP,WoT,Steam,Origin,Warface | Баги,статьи SAMP-RP,Advance-RP,Diamond-RP | Магазин аккаунтов SAMP-RP,Advance-RP,Diamond-RP,Steam,WoT,Warface

Страница 1 из 11
Модератор форума: tumkin, Junger 
Форум » Программирование » AHK Программирование » [Вопрос] Как считывать ЧатЛог?Почему не работает?
[Вопрос] Как считывать ЧатЛог?Почему не работает?
saalausДата: Воскресенье, 16.10.2016, 13:05 | Сообщение # 1
Боец
Группа: Пользователи
Сообщений: 59
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

Код
file = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
start1:
Loop,Read, %file%
{
IfInString, A_LoopReadLine, Вы провели курс лечения для
{
Goto, start
}
}
goto, start1
start:
filedelete, %file%
fileappend, , %file%
SendChat("Удачного вам дня и не болейте!")
SendInput {f6}/c 060{enter}
goto,start1


Lof4
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
artem227228Дата: Воскресенье, 16.10.2016, 14:38 | Сообщение # 2
Новичок
Группа: Пользователи
Сообщений: 20
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

Зачем ты сразу удаляешь и потом создаёшь файл чатлога?
Код
start:
Sendchat ("Удачного дня, не болейте!")
Sendinput, {F6}/c 60 {enter}
Filedelete, %A_MyDocunents%\GTA San Andreas User Files\SAMP\chatog.txt
Fileappend, %A_MyDocunents%\GTA San Andreas User Files\SAMP\chatog.txt
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Воскресенье, 16.10.2016, 15:18 | Сообщение # 3
Бывалый
Группа: Заблокированные
Сообщений: 301
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

artem227228, Потому что код у него "нубский". Если он не будет удалять чат-лог, то всё время будет желать удачного дня.

https://vk.com/zatkap
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
McFree_Дата: Воскресенье, 16.10.2016, 15:32 | Сообщение # 4
В рядах СМ.
Группа: Читер CM
Сообщений: 359
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

Считывай последнюю строчку, это будет куда лучше и понятней. Желательно конечно не в Loop а в SetTimer чтобы было во втором потоке и не останавливалось при других функциях
Код

Loop
{
GetChatLine(0,First)
if (RegExMatch(First, "Вы провели курс лечения для")) {
Sleep, 600
SendChat("Удачного вам дня и не болейте!")
Sleep, 1100
SendInput {f6}/c 060{enter}
}
Sleep,5
}




Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
saalausДата: Воскресенье, 16.10.2016, 16:23 | Сообщение # 5
Боец
Группа: Пользователи
Сообщений: 59
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.



Lof4
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
McFree_Дата: Воскресенье, 16.10.2016, 18:19 | Сообщение # 6
В рядах СМ.
Группа: Читер CM
Сообщений: 359
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

saalaus, что именно не работает? Команда получения последней строки или проверки на нужную строку?



Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
DemchogДата: Понедельник, 17.10.2016, 07:39 | Сообщение # 7
Любитель
Группа: Пользователи
Сообщений: 34
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

Код

#Persistent
#SingleInstance, Force
CL := % A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Loop {
    chatline :=  GetNewLine(CL)
    if chatline contains Вы проверили курс лечения для
  SendChat("Удачного Вам дня.")
    }
}

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Дата: Понедельник, 17.10.2016, 14:47 | Сообщение # 8
Боец
Группа: Пользователи
Сообщений: 118
Статус: Offline
Войдите на сайт или зарегистрируйтесь для просмотра полного содержимого темы.

saalaus, вот полный код который вы отели использовать
Код
f10::
SetTimer, start, on
SendInput {f6}/me активировал{enter}
Loop, read, %Filename%
nstroki=%A_Index%
return

start:
SetTimer, start, off
if on=2
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, Игрок в чёрном списке.
{
Sendinput {F6}/c %Nick1%, ты занесен в чёрный список{ENTER}
sleep 1000
}
IfInString, stroka, говорит:
{
if (InStr(stroka, "heal")) or (InStr(stroka, "хиал"))
{
RegExMatch(stroka, "\Q] \E(.*)\Q[\E", Nick)
Sendinput {F6}/heal %Nick1% %b%{ENTER}
Sleep 300
nstroki+=1
goto start
}
nstroki+=1
goto start
return

~$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
}
return


Тебе помогли не забывай про благодарность >> тыкни репутацию
--------------------------------------------------------------------------------------------
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум » Программирование » AHK Программирование » [Вопрос] Как считывать ЧатЛог?Почему не работает?
Страница 1 из 11
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
Не робочий аккаун [CastenYT]

▲▲▲▲▲▲ ✭ [Samp-Rp]✭▲▲▲▲▲▲... [Smael[CM]]

Anton[1337] Кидок! [RobertoSaprezza2]

Нужен cleo [lolic]

CLEO Teleport Evolve. [Diaz™]

Продажа аккаунта на Evolv... [[CM]TuBoRG]

Evolve rp. Выход из де мо... [Diaz™]

Pears Project | Авто... [[CM]Binco]

Pears Project | Авто... [[CM]Binco]

✭✭✭Праздничные цены на ва... [Umbrella]

[1]>S0beit - pr9n project for samp 0.3.7 [9462]

[2]>RakBot 0.7.2 - прокачка аккаунтов без GTA [9224]

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

[4]>Скупка 200р Продажа 300р Advance и Diamond [7607]

[5]>Вопросы и ответы [6292]

[6]>[0.3.7][RUS] Sobeit modified by MishaN [6165]

[7]>Продажа вирт 1кк АРП~400р ДРП~400р.СРП~150р. [6065]

[8]>SAMP-Bot 0.5.9.1 by Jamely [4698]

[9]>Бесконечное слово [4587]

[10]>[Samp-Rp.Ru]Обновлен список Админов [4126]

[11]>[CLEO] Вопрос - Ответ [4080]

[12]>Курилка [3163]

[1]>АК_47 [24610]

[2]>GеNius [6479]

[3]>romka619 [5383]

[4]>[CM]AGRESSOR [4621]

[5]>[CM]Russel [4519]

[6]>Сэс [4422]

[7]>Snake_Firm [4154]

[8]>Artem_Buero [4015]

[9]>[CM]Durman [3162]

[10]>sky_Woker [3009]

[11]>iMaddy [2869]

[12]>Sa1nteD [2664]

[13]>Logan™ [2511]

[14]>Ch0c0Cube [2420]

[15]>[CM]ProKeyar [2226]

sprayquezza11 [26.05.2017|13:50]

abscaa [26.05.2017|13:48]

Vanish_Play [26.05.2017|13:46]

адм228 [26.05.2017|13:45]

MaksTheKiller [26.05.2017|13:44]

Scholar1337 [26.05.2017|13:29]

kirusha0609 [26.05.2017|13:28]

393384121263 [26.05.2017|13:27]

boer16 [26.05.2017|13:27]

valera1942105 [26.05.2017|13:26]

brdyhretferwtygewtestgesr [26.05.2017|13:24]

жора_квартанов [26.05.2017|13:18]

Ascanius [26.05.2017|13:17]

Efukt22819 [26.05.2017|13:17]

Denchik225 [26.05.2017|13:15]


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

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