|
[Урок] Делаем чекер ников(Админов/Друзей)
|
|
| Artem_Buero |
Дата: Суббота, 24.05.2014, 17:57 | Сообщение # 1
|
Сообщений: 4223
Статус: Offline
|
Для начало надо файл с никами админов например:
Код El_Capone
RuskaDance
Flazy_Fit
Как скрипт будет получать этот файл ваш выбор
Лучше конечно сделать с автообновлением.(URLDownloadToFile)
Сам код проверки:
Код FileRead,Var,Admins.txt ;Читаем файл с никами
StringReplace, Var, Var, `n, `n, UseErrorLevel
StrCount := ErrorLevel + 1
Pes := StrCount ;Тут записываем кол-во строк в файле в переменную Pes
loop, %Pes% ;Цикл
{
FileReadLine,pik,Admins.txt,%A_Index% ;Читаем одну строчку
SendInput,{vk75}/id %pik%{vkd} ;Проверяем на ник
sleep, 1200 ;Ждём
FileRead, string, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ;Читаем чат лог
If string contains %pik% ;Если ник админа найден
{
FileAppend,%pik%`n,badadmin.ini ;Записываем его в файл
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
}
FileRead,adminu,badadmin.ini ;Читаем файл
FileDelete,badadmin.ini
MsgBox,Админы в сети:`n%adminu% ;Показываем админов
Вместо MsgBox лучше сделать GuiControl
Удачи
МОЙ ВК - https://vk.com/gospodin_buero
Сообщение отредактировал Artem_Buero - Суббота, 24.05.2014, 18:05 |
|
|
|
|
| vladua100 |
Дата: Суббота, 24.05.2014, 20:18 | Сообщение # 2
|
Боец
Сообщений: 104
Статус: Offline
|
Код
FileRead,Var,Admins.txt ;Читаем файл с никами
StringReplace, Var, Var, `n, `n, UseErrorLevel
StrCount := ErrorLevel + 1
Pes := StrCount ;Тут записываем кол-во строк в файле в переменную Pes
loop, %Pes% ;Цикл
{
FileReadLine,pik,Admins.txt,%A_Index% ;Читаем одну строчку
Код
Loop, read, Admins.txt
{
Сообщение отредактировал vladua100 - Суббота, 24.05.2014, 20:19 |
|
|
|
|
| Artem_Buero |
Дата: Суббота, 24.05.2014, 20:47 | Сообщение # 3
|
Сообщений: 4223
Статус: Offline
|
vladua100, Вот это поворот 
Спасибо 
МОЙ ВК - https://vk.com/gospodin_buero
|
|
|
|
|
| Secov |
Дата: Четверг, 29.05.2014, 15:15 | Сообщение # 4
|
Боец
Сообщений: 56
Статус: Offline
|
Скрипт не работает, тупо добавляет к содержимому файла admins.txt /id к каждой строке + делает это без интервала
|
|
|
|
|
| Bamboocho |
Дата: Четверг, 28.05.2015, 15:39 | Сообщение # 5
|
Боец
Сообщений: 174
Статус: Offline
|
Можно ли сделать, что бы выдавало админов в диалог в игре?
Тут должна быть подпись, но у меня кончилась фантазия.
|
|
|
|
|
| LalkaCacalka |
Дата: Пятница, 29.05.2015, 12:47 | Сообщение # 6
|
Любитель
Сообщений: 44
Статус: Offline
|
Цитата Bamboocho (  ) Можно ли сделать, что бы выдавало админов в диалог в игре?
Код
#Include samp.ahk
F3::
{
FileRead,Var,Admins.txt ;Читаем файл с никами
StringReplace, Var, Var, `n, `n, UseErrorLevel
StrCount := ErrorLevel + 1
Pes := StrCount ;Тут записываем кол-во строк в файле в переменную Pes
loop, %Pes% ;Цикл
{
FileReadLine,pik,Admins.txt,%A_Index% ;Читаем одну строчку
SendInput,{vk75}/id %pik%{vkd} ;Проверяем на ник
sleep, 1200 ;Ждём
FileRead, string, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ;Читаем чат лог
If string contains %pik% ;Если ник админа найден
{
FileAppend,%pik%`n,badadmin.ini ;Записываем его в файл
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
}
FileRead,adminu,badadmin.ini ;Читаем файл
FileDelete,badadmin.ini
showDialog("0","Админы в сети:", `nadminu , "closed") ;Показываем админов
}
|
|
|
|
|
| Bamboocho |
Дата: Воскресенье, 31.05.2015, 01:58 | Сообщение # 7
|
Боец
Сообщений: 174
Статус: Offline
|
LalkaCacalka, http://li.tl/i/n/q2-ZG.jpg вот такая ошибка вылезает, с чем это может быть связано?
Тут должна быть подпись, но у меня кончилась фантазия.
|
|
|
|
|
| LalkaCacalka |
Дата: Воскресенье, 31.05.2015, 06:26 | Сообщение # 8
|
Любитель
Сообщений: 44
Статус: Offline
|
Bamboocho, у тебя есть samp udf?
|
|
|
|
|
