urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Господа, залил архив на сторонний файлообменник, http://www.fayloobmennik.net/3554038.
Да действительно, на других машинах работает плохо, убирает только 3 кнопки.
Ну может быть общими усилиями доведём до желаемого результата работы
этого кода.
;)
Добавлено:
как оказалось всё гораздо проще чем в архиве с примерами
вот так -
тоже работает.
Осталось "довести до ума"
;)
Добавлено:
как то так:
удаляет кнопки ...
восстанавливает кнопки ...
;)
Да действительно, на других машинах работает плохо, убирает только 3 кнопки.
Ну может быть общими усилиями доведём до желаемого результата работы
этого кода.
;)
Добавлено:
Сообщение автоматически объединено:
как оказалось всё гораздо проще чем в архиве с примерами
вот так -
Код:
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
;)