[Создание] Чекер /gnews - Форум читеров,продавцов и покупателей - Cheat-Master.ru

Скидка на продавца и випа!
Страница 1 из 11
Модератор форума: tumkin, Junger 
Форум читеров,продавцов и покупателей » Программирование » AHK Программирование » [Создание] Чекер /gnews
[Создание] Чекер /gnews
SanMartinДата: Воскресенье, 21.08.2016, 13:42 | Сообщение # 1
Новичок
Сообщений: 13
Статус: Offline
Доброго времени суток, читеры и умельцы создавать годные скрипты. Сам я совсем не шарю в скриптах, решил обратиться сюда. Интересует АНК, который чекал бы последние гос.новости и, соответственно, показывал прошедшее после них время.
Если может быть у кого есть/сможете создать, отпишитесь пожалуйста happy


Господин

Сообщение отредактировал SanMartin - Воскресенье, 21.08.2016, 13:42
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
McFree_Дата: Воскресенье, 21.08.2016, 17:02 | Сообщение # 2
В рядах СМ.
Сообщений: 346
Статус: Offline
Могу, но не бесплатно, решай сам. Если хочешь то пиши в личку

Помогаю новичкам!
По всем вопросам в ЛС!
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Понедельник, 22.08.2016, 13:29 | Сообщение # 3
Боец
Сообщений: 294
Статус: Offline
Разбирайся сам: (Скрипт не мой, автора не знаю)
Код
StringCaseSense, Locale
Connected := 0
GN3Im := 0
GN1Im := 0
global usdacha := 0
global uprov := 0
global varnext := 0
script_version := "1.4"
url_script := "https://drive.google.com/open?id=0BwfYrU5QBG26VUY3U09QbWltNGc"
url_version := "https://drive.google.com/uc?id=0BwfYrU5QBG26ZWRDaUFWV29LVEE&export=download"
SetTimer GetLastVersionSoftUp, 200
IniRead, EditN1, config.ini, Setup, GNews31, [Фракция] | Строка 1
IniRead, EditN2, config.ini, Setup, GNews32,  [Фракция] | Строка 2
IniRead, EditN3, config.ini, Setup, GNews33,  [Фракция] | Строка 3
IniRead, EditGN1, config.ini, Setup, GNews1,  [Фракция] | Короткая строка
IniRead, IntGN3, config.ini, Setup, GNews3Int, 10
IniRead, IntGN1, config.ini, Setup, GNews1Int, 3
IniRead, IntBstr, config.ini, Setup, GNewsIntBstr, 1000
Gui, Add, Button, x60 y300 w80 h43 gGO Default, Управление
Gui, Add, Button, x400 y300 w80 h43 gAbout, Об авторе
Gui, Add, Text, x10 y10, Gnews 3 строки:
Gui, Add, Text, x10 y40, Строка 1
Gui, Add, Edit, x80 y40 w430 vEditN1, %EditN1%
Gui, Add, Text, x10 y70 , Строка 2
Gui, Add, Edit, x80 y70 w430 vEditN2, %EditN2%
Gui, Add, Text, x10 y100 , Строка 3
Gui, Add, Edit, x80 y100 w430 vEditN3, %EditN3%
Gui, Add, Text, x10 y140, Gnews 1 строка:
Gui, Add, Edit, x80 y160 w430 vEditGN1, %EditGN1%
Gui, Add, Text, x310 y200 h20 , Автоматическое время подачи
Gui, Add, Text, x310 y215 h20 ,    Часы:  Минуты: Cекунды:
Gui, Add, Edit, x310 y230 w30 h20 vtHour number, %A_Hour%
Gui, Add, Edit, x350 y230 w30 h20 vtMin number, %A_Min%
Gui, Add, Edit, x390 y230 w30 h20 vtSec number, 00
Gui, Add, Text, x10 y200, Интервал между 3 строками:
Gui, Add, Text, x250 y200, (мин.)
Gui, Add, Edit, x200 y200 w40 vIntGN3 number, %IntGN3%
Gui, Add, Text, x10 y230, Интервал между 1 строкой:
Gui, Add, Text, x250 y230, (мин.)
Gui, Add, Edit, x200 y230 w40 vIntGN1 number, %IntGN1%
Gui, Add, Text, x10 y260, Интервал между строками:
Gui, Add, Text, x250 y260, (мсек.)
Gui, Add, Edit, x200 y260 w40 vIntBstr number, %IntBstr%
Gui, Show, w530 h370, Leader + Gnews Diamond RP %script_version%
FileCLog:=% A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Stringhelp := "Напоминалка и автоматическая подача GNews для Diamond RP`n`nF1 - Включение\отключение автоматического GNews`n Ctrl + F1 - Подача 1 строки `n Ctrl + F2 - Подача 3 строк"
loop
{
lastline := GetNewLine(FileCLog)
if RegExMatch( lastline, "Connected. Joining the game\.\.\.")
Connected := 0
if RegExMatch( lastline, "i).*\[Гос\.Новости\] \w+ \[\d+\]:")
{
Gui, Submit, NoHide
IntGN1 := %IntGN1% * 60 * 1000
IntGN3 := %IntGN3% * 60 * 1000
STime:=% A_Hour ""A_Min ""A_Sec
if (NHPTime<STime)
{
NHPTime:=% A_Hour ""A_Min ""A_Sec
NHPTime:=NHPTime+10
GNewsRep:=1
SetTimer, Updategnews, %IntGN1%
}
else
{
GNewsRep:=GNewsRep + 1
if (GNewsRep >= 3)
SetTimer, Updategnews3, %IntGN3%
}
if (GNewsRep >= 3)
addChatMessage("{FFff00}Таймер GNews на 3 строки запущен.")
else
if (GNewsRep = 1)
addChatMessage("{aaff00}Таймер GNews на 1 строку запущен.")
}
if !Connected
{
Gui, Submit, NoHide
IntGN1 := IntGN1 * 60 * 1000
IntGN3 := IntGN3 * 60 * 1000
if RegExMatch( lastline, "i).*Добро пожаловать на Diamond Role Play!") or lastline
{
addChatMessage("Таймеры GNews запущены!")
Connected := 1
SetTimer, Updategnews3, %IntGN3%
SetTimer, Updategnews, %IntGN1%
}
}
if (varnext = 3) and (GN1Im = 1)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
Gui, Submit, NoHide
SendChat("/time")
SendChat("/gnews " EditGN1)
ustav := 0
Send {F8}
GN1Im := 0
}
if (varnext = 2) and (GN3Im = 1)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
Gui, Submit, NoHide
SendChat("/time")
SendChat("/gnews " EditN1)
Sleep %IntBstr%
SendChat("/gnews " EditN2)
Sleep %IntBstr%
SendChat("/gnews " EditN3)
Send {F8}
Usdacha := 0
GN3Im := 0
}
}
UpdateGnews3:
Gui, Submit, NoHide
if !GN3Im
{
addChatMessage("{FF0000}3 Строки {00FF00} GNews Свободна")
GN3Im := 1
}
if Usdacha or GN3Im
{
if (varnext = 0)
{
SendChat("/time")
SendChat("/gnews " EditN1)
Sleep %IntBstr%
SendChat("/gnews " EditN2)
Sleep %IntBstr%
SendChat("/gnews " EditN3)
Send {F8}
Usdacha := 0
GN3Im := 0
}
else if (varnext = 2)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
SendChat("/time")
SendChat("/gnews " EditN1)
Sleep %IntBstr%
SendChat("/gnews " EditN2)
Sleep %IntBstr%
SendChat("/gnews " EditN3)
Send {F8}
Usdacha := 0
GN3Im := 0
}
}
SetTimer, Updategnews3, Off
return
UpdateGnews:
Gui, Submit, NoHide
if !GN1Im
{
addChatMessage("{FF0000}1 Строка {00FFFF} GNews Свободна")
GN1Im := 1
}
if uprov or GN1Im
{
if (varnext = 1)
{
SendChat("/time")
SendChat("/gnews " EditGN1)
ustav := 0
Send {F8}
GN1Im := 0
}
else if (varnext = 3)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
SendChat("/time")
SendChat("/gnews " EditGN1)
ustav := 0
Send {F8}
GN1Im := 0
}
}
SetTimer, Updategnews, Off
return
^F1::
GN1Im := 1
Gosub, UpdateGnews
return
^F2::
GN3Im := 1
Gosub, UpdateGnews3
Return
F1::
Gui, Submit, NoHide
if ustav
{
if (usdacha = 1)
if (varnext = 0) or (varnext = 2)
{
addChatMessage("Подача 3 строки: Выключена")
usdacha:=0
}
if (uprov = 1)
if (varnext = 1) or (varnext = 3)
{
uprov:=0
addChatMessage("Подача 1 строки: Выключена")
}
ustav := 0
if (varnext < 3)
{
varnext +=1
}
else
varnext :=0
}
else
{
if (usdacha = 0) and (varnext = 0)
{
addChatMessage("Автоматическая подача 3 строки по интервалу: {FFAA00}Включена")
usdacha:=1
}
if (uprov = 0) and (varnext = 1)
{
uprov:=1
addChatMessage("Автоматическая подача 1 строки по интервалу: {FFAA00}Включена")
}
if (usdacha = 0) and (varnext = 2)
{
addChatMessage("Автоматическая подача 3 строки по времени (Не раньше " tHour ":" tMin ":" tSec "): {FFAA00}Включена")
usdacha:=1
}
if (uprov = 0) and (varnext = 3)
{
uprov:=1
addChatMessage("Автоматическая подача 1 строки по времени (Не раньше " tHour ":" tMin ":" tSec "): {FFAA00}Включена")
}
ustav := 1
}
return
GO:
MsgBox, 48,,%Stringhelp%
return
About:
Gui, 2:Add, Text,,Другие полезные скрипты для Diamond RP:
UrlAHKLinks  := "https://drive.google.com/uc?id=0BwfYrU5QBG26UGRpSVllRHh3U1U&export=download"
URLDownloadToFile, %UrlAHKLinks%, %A_Temp%/UrlAHKLinks
Loop, read, %A_Temp%/UrlAHKLinks
{
if A_LoopReadLine
Gui, 2:Add, Link,,%A_LoopReadLine%
}
Gui, 2:Add, Text,,Версия %script_version%
Gui, 2:Add, Text,,        By Godarck
Gui, 2:Show
return
GuiClose:
Gui, Submit, NoHide
IniWrite, %EditN1%, config.ini, Setup, GNews31
IniWrite, %EditN2%, config.ini, Setup, GNews32
IniWrite, %EditN3%, config.ini, Setup, GNews33
IniWrite, %EditGN1%, config.ini, Setup, GNews1
IniWrite, %IntGN3%, config.ini, Setup, GNews3Int
IniWrite, %IntGN1%, config.ini, Setup, GNews1Int
IniWrite, %IntBstr%, config.ini, Setup, GNewsIntBstr
MsgBox, 48, Успешно, Настройки сохранены.
ExitApp
return
GetNewLine(filename)
{
static old
static new
if !old
{
FileGetSize, old, %filename%
new := old
}
while old = new
{
sleep 100
FileGetSize, new, %filename%
}
old := new
Loop, read, %filename%
if A_LoopReadLine
{
global lastline11:= last
last := A_LoopReadLine
}
return last
}
GetLastVersionSoftUp:
URLDownloadToFile, %url_version%, %A_Temp%/79124
FileRead, Last_Version, %A_Temp%/79124
FileDelete, %A_Temp%/79124
if (script_version < last_version)
{
MsgBox, 4 ,Новая версия, Обнаружена новая версия программы! %last_version%`nНажмите "Yes" для перехода к скачиванию.
IfMsgBox Yes
{
Run, %url_script%
ExitApp
}
}
SetTimer GetLastVersionSoftUp,off
return


https://vk.com/zatkap
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
McFree_Дата: Понедельник, 22.08.2016, 15:17 | Сообщение # 4
В рядах СМ.
Сообщений: 346
Статус: Offline
RellaX, код слишком жестокий. у меня все гораздо проще, нажимешь F2 и выдает инфу в диалоге опоследней новости (Автор, ID, Время, разница во времени и сам текст). Никаких гуи даже не нужно



Помогаю новичкам!
По всем вопросам в ЛС!


Сообщение отредактировал McFree_ - Понедельник, 22.08.2016, 15:25
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
ASTAKH[CM]Дата: Понедельник, 22.08.2016, 15:32 | Сообщение # 5
♥TOP CHEATER♥
Сообщений: 215
Статус: Offline
Отлично
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Понедельник, 22.08.2016, 19:23 | Сообщение # 6
Боец
Сообщений: 294
Статус: Offline
McFree_, Полностью согласен. Бесплатное должно быть хуже платного)

https://vk.com/zatkap
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум читеров,продавцов и покупателей » Программирование » AHK Программирование » [Создание] Чекер /gnews
Страница 1 из 11
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
[Arizona Role Play] - Воп... [Msa999999]

[Arizona RP] Продам баг н... [Beenru2016]

Заказ № 1874173 [makskrav09]

✔ GTA V ONLINE Быстрая на... [ThеBrainDit]

⚡Дешевая прокачка/накрутк... [Zopiax]

▄▀[ДЕШЕГО] ВИРТЫ НА DIAMO... [FedorovCompany]

➤VIP◄ПРОДАЖА ВИРТ НА SRP ... [Vanna]

СКУПЛЮ АККАУНТЫ 5+LVL ARZ... [Vanna]

СРОЧНО КУПЛЮ АККАУНТ / ПО... [B999OP]

Как донатеры теряют свои ... [Ozzy[CM]]

[Advance Role Play] Списо... [CalebJackson]

Evolve 01 и 02 дешево [MishaZib]

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

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

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

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

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

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

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

[8]>S0beit - pr9n project for samp 0.3.7 [9486]

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

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

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

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

[1]>АК_47 [29847]

[2]>GеNius [6867]

[3]>romka619 [5395]

[4]>[CM]Russel [5113]

[5]>[CM]AGRESSOR [4655]

[6]>Сэс [4430]

[7]>Snake_Firm [4338]

[8]>Artem_Buero [4173]

[9]>[CM]Durman [3294]

[10]>sky_Woker [2997]

[11]>iMaddy [2871]

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

[13]>Sa1nteD [2694]

[14]>Logan™ [2664]

[15]>Ch0c0Cube [2456]

hurhguhg228 [18.02.2018|11:42]

Mihaill_ON [18.02.2018|11:40]

jestk1999 [18.02.2018|11:37]

markuSdepo [18.02.2018|11:24]

chequermat [18.02.2018|11:17]

Vergang [18.02.2018|11:10]

global_elite025 [18.02.2018|11:09]

vaiperyt200331 [18.02.2018|11:08]

KuuaTif [18.02.2018|10:54]

FrankSandersen [18.02.2018|10:53]

Какашуля228 [18.02.2018|10:43]

Amaron [18.02.2018|10:36]

monik11 [18.02.2018|10:29]

h1tteN666 [18.02.2018|10:28]

quix221 [18.02.2018|10:25]


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

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