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 |
|
|
|