- 263
- 570
ANTIANIME
Скрипт trigger на слова: "Anime, аниме, хентай, hentai" в заголовке любого окна.
Будь то браузер, игры и приложения.
Хочу чтобы вы знали, в заголовке этой темы во слове Anime, буква А - русская.
Предусмотрена возможность включения/выключения:
Установка происходит через файл setup.exe
Скрипт trigger на слова: "Anime, аниме, хентай, hentai" в заголовке любого окна.
Будь то браузер, игры и приложения.
Хочу чтобы вы знали, в заголовке этой темы во слове Anime, буква А - русская.
Предусмотрена возможность включения/выключения:
Установка происходит через файл setup.exe
- Автозагрузка. Через кнопку "Set" указываем путь, где далее будет сохранён основной файл и конфиг.
- Выключение системы. При триггере - выключает ваш ПК
- Выключение монитора.
- Time Out. Число в мс.
- Периодичность исполнения 2-х функций выше и закрытия окна, которое было detect.
- Это число так же умножается на 100 и выходит время, через которое срабатывание от detect'a будет завершено.
- 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
returnSource 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.
--__(*~*)__--
--__(*~*)__--
