Исходник [SC19] Checker new Topics

BASS_DEVSOFTWARE

Известный 🇺🇦
Автор темы
Друг
264
567
Давно хотел что-то подобное сделать, только с определёнными разделами.

Данный скрипт отправляет оповещение при создании новой темы кем-либо.




Чекер новосозданных тем

При появлении новой темы
39854

Скрипт вызывает сообщение
39856

Скрипт определяет статус человека, создавшего тему: модератор, администратор, пользователь.
В следствии чего сообщение выше имеет свойство "меняться".

Выключение по нажатию Alt+End
При первом запуске, скрипт сообщит о последней созданной теме.

source:
#SingleInstance, force
#Persistent

global blasthack
global user

SetTimer, check, 55000
return

Check:
oWhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oWhr.Open("GET", "https://blast.hk/", false)
oWhr.Send()
blasthack := oWhr.ResponseText
Firsttopic := topicname(blasthack)
if Firsttopic = % Secondtopic
    return
Secondtopic := topicname(blasthack)
TrayTip, % "[" prefix(blasthack) "] " topicname(blasthack), % " Создана тема: `n" user(blasthack) " " user1 " " createtime(blasthack) , 2, 1
return

!End::ExitApp

prefix(html)
{
    RegExMatch(html, "<a href=""\/forums\/\d\d\d?\/\?prefix_id\[\d\]=\d\d\d?"" class=""labelLink"" rel=""nofollow""><span class=""label label--primary"" dir=""auto"">([А-яA-z0-9]*)<\/span><\/a>", prefix)
    if prefix1 !=
    return, prefix1
}

topicname(html)
{
    RegExMatch(html, "<a href=""\/threads\/[0-9]*\/"" class="""" data-tp-primary=""on"" data-xf-init=""preview-tooltip"" data-preview-url=""\/threads\/[0-9]*\/preview"">([А-яA-z0-9 |/.]*)<\/a>", name)
    return, name1
}

createtime(html)
{
    RegExMatch(html, "<li class=""structItem-startDate""><a href=""/threads/[0-9]*/"" rel=""nofollow""><time  class=""u-dt"" dir=""auto"" datetime=""20\d\d-\d\d-[A-z0-9]*:\d\d:\d\d\+[0-9]*"" data-time=""[0-9]*"" data-date-string=""[А-яA-z0-9 ]*"" data-time-string=""\d\d:\d\d"" title=""[А-я0-9 :]*"">([А-я0-9 :]*)</time></a></li>", time)
    return, time1
}

user(html)
{
    if RegExMatch(html, "<li><a href=""/members/[0-9]*/"" class=""username "" dir=""auto"" data-user-id=""[0-9]*"" data-xf-init=""member-tooltip""><span class=""username--staff username--moderator"">?([A-z0-9_ ]*)<\/span><\/a><\/li>", user)
   
    color := "Модератор"

    else if RegExMatch(html, "<li><a href=""/members/[0-9]*/"" class=""username "" dir=""auto"" data-user-id=""[0-9]*"" data-xf-init=""member-tooltip""><span class=""username--staff username--moderator username--admin username--color-\d"">?([A-z0-9_ ]*)<\/span><\/a><\/li>", user)
   
    color := "Администратор"

    else if RegExMatch(html, "<li><a href=""\/members\/331566\/"" class=""username "" dir=""auto"" data-user-id=""331566"" data-xf-init=""member-tooltip"">([A-z0-9_ ]*)<\/a><\/li>", user)
   
    color := "Пользователь"

    return, color
}
 
Последнее редактирование:
У

Удалённый пользователь 123482

Гость
Если Cloudflare врубят то гг
 

MrCreepTon

Неизвестный
Всефорумный модератор
2,117
4,671
Разработка хорошая (мб даже возьму на заметку), но:
1) В конкурсе участвуют разработки для SA:MP, а не для форума.
2) В конкурсе не участвует данный раздел
39866