[Создание] Чекер /gnews - Форум - Читерский Форум | Читы для игр SAMP,CS:GO,GTA5,PUBG,Minecraft,CoD,Warface,WoT | Магазин аккаунтов SAMP-RP,Advance-RP,Diamond-RP,логов samp,Steam,WoT,Warface,PUBG,GTA5

Страница 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
В рядах СМ.
Сообщений: 348
Статус: Offline
Могу, но не бесплатно, решай сам. Если хочешь то пиши в личку

Помогаю новичкам!
По всем вопросам в ЛС!
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Понедельник, 22.08.2016, 13:29 | Сообщение # 3
Боец
Сообщений: 295
Статус: 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
В рядах СМ.
Сообщений: 348
Статус: Offline
RellaX, код слишком жестокий. у меня все гораздо проще, нажимешь F2 и выдает инфу в диалоге опоследней новости (Автор, ID, Время, разница во времени и сам текст). Никаких гуи даже не нужно



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


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

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

[Вопрос] Помогите с ahk [EdwardTis]

☑ Скидки/Акции [оптовые ц... [Lains]

✅Скупка/Продажа виртов AR... [Mhfr[CМ]]

СКУПКА АККАУНТОВ VAC BAN ... [CEKPET]

EVOLVE-SRP-ADVANCE-DIAMON... [Gold-Masster]

Облачный майнинг БЕЗ ДЕПО... [Jlus]

▇▇▶Продажа/Скупка Аккаунт... [DimShop[CM]]

▇▇▶Продажа/Скупка Виртов ... [DimShop[CM]]

Помогите пожалуйста. [Witalyas747]

[1]>Общение читеров [CM] [9991]

[2]>S0beit - pr9n project for samp 0.3.7 [9481]

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

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

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

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

[7]>[FREE] AntiAFK_R 3.4.6 by Ruskadance [0.3z-R2] [6220]

[8]>Продажа вирт 1кк АРП~350р ДРП~350р.СРП~150р. [6148]

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

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

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

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

[1]>АК_47 [28266]

[2]>GеNius [6707]

[3]>romka619 [5379]

[4]>[CM]Russel [5018]

[5]>[CM]AGRESSOR [4654]

[6]>Сэс [4430]

[7]>Snake_Firm [4301]

[8]>Artem_Buero [4132]

[9]>[CM]Durman [3262]

[10]>sky_Woker [2997]

[11]>iMaddy [2871]

[12]>Sa1nteD [2659]

[13]>Logan™ [2591]

[14]>Ch0c0Cube [2456]

[15]>[CM]Рафаэль [2297]

Danilka1999ger [24.11.2017|19:37]

EmPrezo [24.11.2017|19:35]

DUMMYX [24.11.2017|19:35]

DimShop[CM] [24.11.2017|19:30]

DRVincent [24.11.2017|19:29]

Mhfr[CМ] [24.11.2017|19:26]

HunterVegas [24.11.2017|19:23]

TempoRnov [24.11.2017|19:19]

klnsdklfjsdklfjsdkjfksld [24.11.2017|19:16]

axeaxeunity [24.11.2017|19:11]

Максимka15 [24.11.2017|19:10]

ZhekaELITE23 [24.11.2017|19:10]

BrooF2000 [24.11.2017|19:04]

projax [24.11.2017|19:03]

saruar471 [24.11.2017|19:03]


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

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