[Создание] Помогите с Анти казино - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Sanoxxx, Alowir, Phoenixxx_Czar  
[Создание] Помогите с Анти казино
fedasevka Дата: Четверг, 02.08.2018, 13:29 | Сообщение # 1
Любитель
Сообщений: 34
Статус: Offline
Есть скрипт Анти казино сделал сам работает отлично но вот в чем проблема можно как-то скрипт добавить в реестр или тип того чтобы он всегда работал и закрыть его нельзя было и при запуске винды не нужно было открывать чтобы не поддаваться искушению сходить в казино
Abilka Дата: Четверг, 02.08.2018, 16:42 | Сообщение # 2
Новичок
Сообщений: 11
Статус: Offline
Самый по моему легкий вариант:
1. В скрипте указать #NoTrayIcon
2. Закинуть его в папку автозагрузки.
Код
C:\Users\Имя_пользователя\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

3. Забыть про него.

З.Ы. Не проверял такой метод, но должен работать.
MrGPro Дата: Четверг, 02.08.2018, 18:23 | Сообщение # 3
Боец
Сообщений: 202
Статус: Offline
Вот полный садо-мазо код. Прошу полностью изучить код и удалить лишнее что вам не нужно и раз-комментировать(убрать) ; где нужно подключить
Код
#NoTrayIcon ; убираем приложние с трея полностью
Menu,Tray,NoStandard ; Убираем с приложения страндартое меню трея
Menu,Tray,DeleteAll ; Убираем меню с трея полностью

global procActiv := "gta_sa.exe" ; приложения при котором будет отключаться процессы с переменной > procClose
global procClose := ["taskmgr.exe", "cmd.exe"] ; диспетчер задач, командная строка
global scriptName := % A_ScriptName ; имя приложения извлекаеться с файла
global scriptFullDir := % A_ScriptFullPath ; полный путь к exe файлу приложения аналогино выше
;global standart := "My_script" ; если хотите запретить смену имени приложения уберитие тут ; а ниже добавьте перед ;global
global standart := scriptName

if (scriptName != standart) ;проверка на смену имени
{
        MsgBox,, Ошибка запуска, Вы изменили имя приложения!`nВерните имя: %standart%
        ExitApp
}
;Метод добавления просто удалите лишнее и уберите ; где нужно включить
;gosub ExeAddShort
;или
;gosub RegAdd
return

ExeAddShort: ; Добавляем в автозагрузку как ярлык
FileCreateShortcut, % scriptName, % "C:\Users\" . A_UserName . "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\" . scriptName . ".lnk", C:\, % A_ScriptFullPath, Мой скрипт,, i
;C:\ Users\ Имя_пользователя\ AppData\ Roaming\ Microsoft\ Windows\ Start Menu\ Programs\ Startup
SetTimer, procClose, On
return

RegAdd: ; Добавляем в атозагрузку через реестр
SetRegView 64  ; Requires [v1.1.08+]
RegRead, OutputReg, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, % scriptName ; проверка есть или имя данного приложения в автозагрузке
if (OutputReg != scriptFullDir) ; если нет пути приложения в автозагрузке добавляем
{
         RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, % scriptName, % scriptFullDir ; запись в реестр (текущий пользователь)
         ;RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\RunOnce, % scriptName, % scriptFullDir ; (текущий пользователь, запуск один раз)
         ;RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, % scriptName, % scriptFullDir ; (все пользователи)
         ;RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce, % scriptName, % scriptFullDir ; (все пользователи, запуск один раз)
         ;RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run, % scriptName, % scriptFullDir ; (текущий пользователь, только 64-бит версия)
         ;RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\RunOnce, % scriptName, % scriptFullDir ; (все пользователи, запуск один раз, только 64-бит версия)
   RegRead, Echo, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, % scriptName ; проверка на успех на записи
   if (Echo == scriptFullDir)
        MsgBox,, Реестр: %scriptName%, Добавлен в автозагрузку`n%Echo%
   else
        MsgBox,, Реестр: %scriptName%, Что-то пошло не так
}
SetTimer, procClose, On ; запускам в фоновом режиме
return

procClose: ;Зацыкливаем проверку в фоновом режиме
Loop
{
        while (ProcessExist(procActiv)) ;Закрывает процессы из procClose когда включен procActiv
        {
                for i, processName in procClose
                {      
                        Process close, %processName%
                }
        }
}
return

; проверка запуска процесса функция
ProcessExist(Name){
    Process, Exist, %Name%
    return Errorlevel
}

; это не обезатьльно для меня автовыход
Home::
ExitApp
return


Тебе помогли не забывай про благодарность >> тыкни репутацию
---------------------------------------͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏̏͋͋' ͡ ͋̏̏̏̏̏̏̏̏̏ -----------------------------------------------------
Зам.Администратора на проекте "DayZ Epoсh SPN" сервер Arma 2OA DayZ Epoch пиратка и лицензия


Сообщение отредактировал MrGPro - Четверг, 02.08.2018, 18:25
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7210]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи