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

Тема в разделе "AutoHotKey", создана пользователем BASS_DEVSOFTWARE, 29 апр 2019.

  1. BASS_DEVSOFTWARE

    BASS_DEVSOFTWARE vk.com/bass_devware
    Проверенный

    Регистрация:
    29 апр 2017
    Сообщения:
    151
    Симпатии:
    113
    ANTIANIME

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



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

    [​IMG]

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

    [​IMG]

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


    Video:






    Source Setup.exe
    
    #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
    
    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.

    [​IMG]


    --__(*~*)__--
    [​IMG]
     

    Вложения:

    • Setup.exe
      Размер файла:
      696 КБ
      Просмотров:
      5
    FkeTe, Double Tap Inside, SuSmer4Coder и 8 другим нравится это.
  2. nonameveka

    nonameveka Участник

    Регистрация:
    9 июл 2017
    Сообщения:
    5
    Симпатии:
    3
    Теперь ток для сампа над замутить
     
    SHEℝ, NoticeMeSenpai и _dixon_ нравится это.
  3. Stranger!

    Stranger! Знающий

    Регистрация:
    24 мар 2018
    Сообщения:
    268
    Симпатии:
    137
    Предлагаю сделать "анти чит-мастер"
     
    #3 Stranger!, 29 апр 2019
    Последнее редактирование: 29 апр 2019
    loganhackerdff, RIPJake и sanєk нравится это.
  4. BASS_DEVSOFTWARE

    BASS_DEVSOFTWARE vk.com/bass_devware
    Проверенный

    Регистрация:
    29 апр 2017
    Сообщения:
    151
    Симпатии:
    113
    Забыл добавить вложение, исправил.
     
  5. Oreshka23

    Oreshka23 Знающий

    Регистрация:
    10 май 2015
    Сообщения:
    247
    Симпатии:
    72
    А от порнухи можно? Чтобы только выключать нельзя было
     
    paulohardy нравится это.
  6. BASS_DEVSOFTWARE

    BASS_DEVSOFTWARE vk.com/bass_devware
    Проверенный

    Регистрация:
    29 апр 2017
    Сообщения:
    151
    Симпатии:
    113
    Держи - https://blast.hk/threads/23835/
     
    JCxSCORP нравится это.
  7. hhti

    hhti Свой человек

    Регистрация:
    27 авг 2018
    Сообщения:
    445
    Симпатии:
    30
    один вопрос, ЗАЧЕМ?
     
  8. BASS_DEVSOFTWARE

    BASS_DEVSOFTWARE vk.com/bass_devware
    Проверенный

    Регистрация:
    29 апр 2017
    Сообщения:
    151
    Симпатии:
    113
    Мой следующий скрипт - автоматическое проставление знаков препинания.
     
  9. hhti

    hhti Свой человек

    Регистрация:
    27 авг 2018
    Сообщения:
    445
    Симпатии:
    30
    мне всёравно какой у тебя будет некст скрипт, но половина твоих скриптов без смысла
     
  10. MrCreepTon

    MrCreepTon поехавший
    Проверенный

    Регистрация:
    9 авг 2015
    Сообщения:
    316
    Симпатии:
    352
    Ждем Rapoglif Remover на AHK :hah:
     
    social enemy, bu3ka3, Ren_Boyko и ещё 1-му нравится это.
  11. crybaby

    Проверенный

    Регистрация:
    29 июл 2017
    Сообщения:
    801
    Симпатии:
    293
    вы заебали аниме трогать не трогайте аниме у у
     
    Rinat_Namazov, Shovel, azfedd? и 2 другим нравится это.
  12. TAKYS

    TAKYS Участник

    Регистрация:
    20 май 2017
    Сообщения:
    23
    Симпатии:
    3
    Прости, но твой пост не отображается у многих, а***е убери
     
  13. MrQugen

    MrQugen Знающий

    Регистрация:
    7 мар 2018
    Сообщения:
    247
    Симпатии:
    22
    Это всё классно, но если человеку нужно, то он найдёт, обойдя преграды и защиту.
     
  14. Oreshka23

    Oreshka23 Знающий

    Регистрация:
    10 май 2015
    Сообщения:
    247
    Симпатии:
    72
    Кстати, я думаю, если в гугле написать «nime», «ниме» то загуглить все равно получиться