Что нового
Автор:
Фильтры

Как сделать своё окно для входа в ОС ?

Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
Господа, залил архив на сторонний файлообменник, http://www.fayloobmennik.net/3554038.
Да действительно, на других машинах работает плохо, убирает только 3 кнопки.
Ну может быть общими усилиями доведём до желаемого результата работы
этого кода.
;)



Добавлено:
Сообщение автоматически объединено:

как оказалось всё гораздо проще чем в архиве с примерами :smile:

вот так -

Код: 
r_egister()
Func r_egister()
	Local  $var1 = 0, $var2 = 0, $var3 = 0, $var4 = 0, $var5 = 0, $var6 = 0, $var7 = 0, $var8 = 0, $var9 = 0

$var1 = RegRead("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
$var2 = RegRead("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation")
$var3 = RegRead("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword")
$var4 = RegRead("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "undockwithoutlogon")

$var5 = RegRead("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "HideFastUserSwitching")

$var6 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
$var7 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation")
$var8 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword")
$var9 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff")


Select
	Case $var1 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD","1" )	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var2 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
    Case $var3 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var4 = 0
RegWrite("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "NoLogoff", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect

Select
	Case $var5 = 0
RegWrite("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "HideFastUserSwitching", "REG_DWORD", "1") ; Записывает в реестр единственное значение "1"
EndSelect

Select
	Case $var6 = 0
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var7 = 0
RegWrite("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var8 = 0
RegWrite("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var9 = 0
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect

EndFunc


тоже работает.
Осталось "довести до ума"
;)





Добавлено:
Сообщение автоматически объединено:

как то так:

удаляет кнопки ...

Код: 
r_egister()
Func r_egister()
	Local  $regnam = 0, $var1 = 0, $var2 = 0, $var3 = 0, $var4 = 0, $var5 = 0, $var6 = 0, $var7 = 0, $var8 = 0, $var9 = 0
$regnam = RegEnumKey("HKEY_USERS64", 5)
$var1 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
$var2 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation")
$var3 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword")
$var4 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff")

$var5 = RegRead("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "HideFastUserSwitching")

$var6 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
$var7 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation")
$var8 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword")
$var9 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff")


Select
	Case $var1 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD","1" )	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var2 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
    Case $var3 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var4 = 0
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect

Select
	Case $var5 = 0
RegWrite("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "HideFastUserSwitching", "REG_DWORD", "1") ; Записывает в реестр единственное значение "1"
EndSelect

Select
	Case $var6 = 0
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var7 = 0
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var8 = 0
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect
Select
	Case $var9 = 0
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff", "REG_DWORD", "1")	; Записывает в реестр единственное значение "1"
EndSelect

EndFunc


восстанавливает кнопки ...

Код: 
r_egister2()
Func r_egister2()
	Local  $regnam = 0, $var1 = 0, $var2 = 0, $var3 = 0, $var4 = 0, $var5 = 0, $var6 = 0, $var7 = 0, $var8 = 0, $var9 = 0
$regnam = RegEnumKey("HKEY_USERS64", 5)
$var1 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
$var2 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation")
$var3 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword")
$var4 = RegRead("HKEY_USERS64\" & $regnam & "\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff")

$var5 = RegRead("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "HideFastUserSwitching")

$var6 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
$var7 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation")
$var8 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword")
$var9 = RegRead("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff")


Select
	Case $var1 = 1
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD","0" )	; Записывает в реестр единственное значение "0"
EndSelect
Select
	Case $var2 = 1
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect
Select
    Case $var3 = 1
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect
Select
	Case $var4 = 1
RegWrite("HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect

Select
	Case $var5 = 1
RegWrite("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "HideFastUserSwitching", "REG_DWORD", "0") ; Записывает в реестр единственное значение "0"
EndSelect

Select
	Case $var6 = 1
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect
Select
	Case $var7 = 1
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableLockWorkstation", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect
Select
	Case $var8 = 1
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableChangePassword", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect
Select
	Case $var9 = 1
RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff", "REG_DWORD", "0")	; Записывает в реестр единственное значение "0"
EndSelect

EndFunc


;)
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
R map - присвоение Общие вопросы по AutoIt 11
R Массивы map объявление и присвоение Общие вопросы по AutoIt 3
V Сеть, интернет Клик по элементу html содержащего в своем коде определенные теги Общие вопросы по AutoIt 0
J Почему скомпилированый скрипт запускает другой в свое консольное окно Общие вопросы по AutoIt 1
inververs [GUI] Нарисовать свое окно похожее на ToolTip GUI - Графический интерфейс пользователя 2
Похожие темы
map - присвоение
Массивы map объявление и присвоение
Сеть, интернет Клик по элементу html содержащего в своем коде определенные теги
Почему скомпилированый скрипт запускает другой в свое консольное окно
[GUI] Нарисовать свое окно похожее на ToolTip
Верх