Исходник Софт Anti Аnime | Не дай себе загуглить aниме/хeнтай! | AutoHotkey

BASS_DEVSOFTWARE

🅱🅰🆂🆂_🅳🅴🆅🆆🅰🆁🅴
Автор темы
Модератор
209
251
ANTIANIME

Скрипт trigger на слова: "Anime, аниме, хентай, hentai" в заголовке любого окна.
Будь то браузер, игры и приложения.
Хочу чтобы вы знали, в заголовке этой темы во слове Anime, буква А - русская.



Предусмотрена возможность включения/выключения:



Установка происходит через файл setup.exe



  • Автозагрузка. Через кнопку "Set" указываем путь, где далее будет сохранён основной файл и конфиг.
  • Выключение системы. При триггере - выключает ваш ПК
  • Выключение монитора.
  • Time Out. Число в мс.
  1. Периодичность исполнения 2-х функций выше и закрытия окна, которое было detect.
  2. Это число так же умножается на 100 и выходит время, через которое срабатывание от detect'a будет завершено.
  3. 0 - означает одиночное срабатывание. [100 = срабатывание detect'a раз в 0.1 сек. и через 10000мс. (10 сек.) будет завершено.]


Video:





Source Setup.exe
AutoHotKey:
#SingleInstance ignore
#Persistent
if not A_IsAdmin
    Run *RunAs "%A_ScriptFullPath%",,UseErrorLevel
if errorlevel
{
    MsgBox, 262160, Setup, For the script to work properly`, you must run it with admin rights.
    ExitApp
}
Gui, Add, CheckBox, x12 y10 w80 h20 vAR gAR, Auto Run
Gui, Add, Edit, x92 y10 w140 h20 vDirL +disabled,
Gui, Add, CheckBox, x12 y40 w90 h20 voffsys, Off System
Gui, Add, CheckBox, x12 y70 w80 h20 voffscreen, Off Screen
Gui, Add, Text, x12 y90 w80 h20 cBlue, Time Out
Gui, Add, Edit, x12 y105 w80 h20 vtimeout, 0
Gui, Add, Button, x112 y100 w140 h20 gInstall, Install
Gui, Add, Button, x232 y10 w30 h20 vset gset +disabled, Set
Gui, Add, Button, x112 y80 w140 h20 gms, More Scripts [Blast.hk]
Gui, Add, Text, x175 y60 w80 h20 cBlue ggroup, /bass_devware
Gui, Show, w266 h132, Setup
Menu, tray, NoStandard
Menu, tray, add, @bass_devware, group
Menu, tray, add
Menu, tray, add, Restore, Restore
Menu, tray, add
Menu, tray, add, Quit, GuiClose
OnExit, GuiClose
return

AR:
gui,submit,nohide
if AR = %true%
    GuiControl, enable, set
if AR = %false%
    GuiControl, Disable, set
return

install:
gui, submit
if timeout =
    timeout := "0"
if Dir =
    Dir := "AntiAnime.exe"
settings := "AutoRun = " . AR . "`nOffSystem = " . offsys . "`nOffScreen = " . offscreen . "`nTimeCld = " . timeout . "`nDir = " . Dir
FileDelete, %A_Temp%\config.ini
FileAppend, %settings%, %A_Temp%\config.ini ;Сохраняем файл с настройками в папке Temp
UrlDownloadToFile, https://github.com/MirchikAhtung/antianime/raw/master/AntiAnime.exe, %Dir%
UrlDownloadToFile, https://github.com/MirchikAhtung/antianime/raw/master/FBI.mp4, %A_Temp%\FBI.mp4
if AR = %true%
    RegWrite, REG_SZ, HKEY_CURRENT_USER, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, AntiAnime, %Dir% ; Добавляем скачиваемый файл в автозапуск реестра.
ExitApp
return

set:
GuiControl, disable, AR
FileSelectFolder, Dir, , 3
if Dir !=
    Dir := Dir . "\AntiAnime.exe"
GuiControl,, DirL, %Dir%
TrayTip, AntiAnime, Your dir - "%Dir%"
GuiControl, Enable, AR
return

GuiClose:
if A_ExitReason not in Logoff,Shutdown
{
    MsgBox, 262179, Setup || @bass_devware, Reboot your system?`nAll chang has been applyed after reboot!`n
    IfMsgBox, Cancel
        return
    else IfMsgBox, No
        ExitApp
    else IfMsgBox, Yes
        Shutdown, 2
}
return

Restore:
Gui, show
return

ms:
run, https://blast.hk/search/14732104
return

group:
run, https://vk.com/bass_devware
return
Source AntiAnime.exe
AutoHotKey:
Menu, tray, NoStandard
Menu, tray, add, @bass_devware, group
Menu, tray, add
Menu, tray, add, Off, OffScript
Menu, tray, add
Menu, tray, add, On, OnScript
Menu, tray, disable, On
Menu, tray, add
Menu, tray, add, Quit, GuiClose
Menu, tray, disable, Quit
Loop, read, config.ini
{
    Loop, parse, A_LoopReadLine, `n
    {
        if regexmatch(A_LoopReadLine, "AutoRun = (.)", AR)
            autorun := AR1
        if regexmatch(A_LoopReadLine, "OffSystem = (.)", osys)
            offsystem := osys1
        if regexmatch(A_LoopReadLine, "OffScreen = (.)", oscr)
            offscreen := oscr1
        if regexmatch(A_LoopReadLine, "TimeCld = (.*)", to)
            timeout := to1
    }
}
WinGetTitle, ActiveWindow, A
LastWindow := ActiveWindow
SetTimer, Label, 5000
return

Label:
WinGetTitle, ActiveWindow, A
if ActiveWindow != %LastWindow%
    goto recheck
LastWindow := ActiveWindow
return

recheck:
if ActiveWindow contains anime,аниме,hentai, хентай
{
    Run, %A_Temp%\FBI.mp4, , Max UseErrorLevel
    if ErrorLevel = ERROR
        MsgBox Error, Open FBI.mp4
    PID := DllCall("GetCurrentProcessId")
    WinSet, disable,, %ActiveWindow% ;Делаем окно, в котором было найдено одно из слов contains - деактивированным.
    WinSet, AlwaysOnTop, on, ahk_pid %PID% ; .mp4 файл по верх всех окон.
    sleep 500
    WinGet, OutputVar, Pid, %ActiveWindow% ; Получаем PID окна со словом
    Process, close, %OutputVar% ;Закрываем его
    if timeout != 0
        settimer, repeat, %timeout%
    else
        goto repeat
    timeout := timeout * 100 ;Решил не делать дополнительно Edit для промежутка, который остановит таймер REPEAT. Просто берём число из timeout и * на 100.
    if timeout != 0                    ;Если промежуток таймера REPEAT 100мс - через 10000мс таймер REPEAT будет остановлен благодаря таймеру STOP
        settimer, stop, %timeout%
}
return

repeat:
Process, close, %OutputVar% ;Не даём заново открыть файл со словом.
if offscreen = 1
    SendMessage, 0x112, 0xF170, 2,, Program Manager ;Если "OffScreen = 1" - выключаем монитор
if offsystem = 1
    Shutdown, 13 ; Если "OffSystem = 1" - выключаем ПК
return

stop:
settimer, repeat, off
return

OffScript:
Menu, tray, disable, Off
Menu, tray, Enable, On
Menu, tray, Enable, Quit
Pause
return

OnScript:
Menu, tray, Enable, Off
Menu, tray, Disable, On
Menu, tray, Disable, Quit
Pause
return

^!END:: ;Ctrl+Alt+End
GuiClose:
ExitApp
return

group:
run, https://vk.com/bass_devware
return

Скачивание FBI.MP4 и AntiAnime.exe исполняется через GitHub.




--__(*~*)__--
 

Вложения

MrQugen

Новичок
243
23
Это всё классно, но если человеку нужно, то он найдёт, обойдя преграды и защиту.
 

Oreshka23

Известный
311
126
Кстати, я думаю, если в гугле написать «nime», «ниме» то загуглить все равно получиться