Автор Тема: Как сделать своё окно для входа в ОС ?  (Прочитано 7032 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн urrya [?]

  • Бывает фантазия реальна
  • Новичок
  • *
  • Сообщений: 159

  • Автор темы
  • Репутация: 1
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Как сделать своё окно для входа в ОС ?
« Ответ #15, Отправлен: Февраль 07, 2014, 01:27:34 »

"Главное сначала проверить разрядность системы, и из этого определить суффикс."
Ну это само-собой разумеется, просто я уже почти забыл, что ещё есть и 32 разрядность ОС
 :)


Добавлено: Февраль 07, 2014, 01:37:46
Готово, не прошло и 24 часов  :P
В архиве исходник и 4 файла *.txt нужные для работы скрипта.
Пользуйтесь пожалуйста, кому понадобится.
Правда работает только в одну сторону, для восстановления кнопок
отредактируйте исходник
 ;)


Добавлено: Февраль 07, 2014, 01:42:59
Код писал на и для Windows 7  x64  ;)


Добавлено: Февраль 07, 2014, 02:28:23

Новый архив залил.
Исправил "грязь", добавил второй(отредактированный первый) исходник
для восстановления кнопок на "защищённом рабочем столе".
 ;)
« Последнее редактирование: Февраль 07, 2014, 02:28:23 от urrya, Причина: Объединение сообщений »

Русское сообщество AutoIt

Re: Как сделать своё окно для входа в ОС ?
« Ответ #15 Отправлен: Февраль 07, 2014, 01:27:34 »

Оффлайн MnM [?]

  • SoSerious
  • Продвинутый
  • ***
  • Сообщений: 679
  • Репутация: 90
  • Пол: Мужской
  • Post-Hardcore
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Как сделать своё окно для входа в ОС ?
« Ответ #16, Отправлен: Февраль 07, 2014, 05:33:51 »
urrya
Залейте пожалуйста на другой файловый обменник(Отсюда скачать не получается).

Оффлайн InnI [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 4074
  • Репутация: 1080
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Как сделать своё окно для входа в ОС ?
« Ответ #17, Отправлен: Февраль 07, 2014, 11:07:40 »
urrya  [?]
Цитировать
HKEY_USERS64\S-1-5-21-1265459106-3028646723-2073955745-1000
Данный раздел - это ваш личный раздел - конкретного пользователя на конкретной машине. Если вы хотите, чтобы ваш скрипт работал и у других, читать и писать нужно в HKEY_CURRENT_USER.

Русское сообщество AutoIt

Re: Как сделать своё окно для входа в ОС ?
« Ответ #17 Отправлен: Февраль 07, 2014, 11:07:40 »

Оффлайн firex [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 943
  • Репутация: 203
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.x.x
Re: Как сделать своё окно для входа в ОС ?
« Ответ #18, Отправлен: Февраль 07, 2014, 11:11:32 »
InnI
А не наоборот случаем?  :)
Как то не придавал этому особого внимания, оказалось совсем нет так.

(нажмите для показа/скрытия)
« Последнее редактирование: Февраль 07, 2014, 11:35:11 от firex »

Оффлайн InnI [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 4074
  • Репутация: 1080
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Как сделать своё окно для входа в ОС ?
« Ответ #19, Отправлен: Февраль 07, 2014, 11:20:24 »
firex
Когда вы входите в систему, настройки из вашего личного HKEY_USERS копируются в HKEY_CURRENT_USER, а после выхода - "сливаются" обратно. Посмотрите у себя в реестре - разве у вас есть раздел "HKEY_USERS\S-1-5-21-1265459106-3028646723-2073955745-1000" ? У вас будет подобный, но с другими цифрами.

Русское сообщество AutoIt

Re: Как сделать своё окно для входа в ОС ?
« Ответ #19 Отправлен: Февраль 07, 2014, 11:20:24 »

Оффлайн urrya [?]

  • Бывает фантазия реальна
  • Новичок
  • *
  • Сообщений: 159

  • Автор темы
  • Репутация: 1
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Как сделать своё окно для входа в ОС ?
« Ответ #20, Отправлен: Февраль 07, 2014, 12:14:51 »
Господа, залил архив на сторонний файлообменник, http://www.fayloobmennik.net/3554038.
Да действительно, на других машинах работает плохо, убирает только 3 кнопки.
Ну может быть общими усилиями доведём до желаемого результата работы
этого кода.
 ;)



Добавлено: Февраль 07, 2014, 13:56:02
как оказалось всё гораздо проще чем в архиве с примерами  :)

вот так -

Код: AutoIt [Выделить]
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


 


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





Добавлено: Февраль 07, 2014, 14:48:21
как то так:

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

Код: AutoIt [Выделить]

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


 


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

Код: AutoIt [Выделить]
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

 


 ;)
« Последнее редактирование: Февраль 07, 2014, 14:52:01 от urrya, Причина: Объединение сообщений »

Русское сообщество AutoIt

Re: Как сделать своё окно для входа в ОС ?
« Ответ #20 Отправлен: Февраль 07, 2014, 12:14:51 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
1 Ответов
3193 Просмотров
Последний ответ Май 23, 2011, 16:39:23
от Sergey2210
2 Ответов
6823 Просмотров
Последний ответ Июль 08, 2011, 15:05:59
от Zaramot
0 Ответов
3035 Просмотров
Последний ответ Июнь 08, 2015, 10:14:40
от mef-t
1 Ответов
1359 Просмотров
Последний ответ Август 12, 2016, 22:48:04
от InnI
1 Ответов
1851 Просмотров
Последний ответ Сентябрь 09, 2016, 21:11:14
от Dessan
7 Ответов
2530 Просмотров
Последний ответ Декабрь 28, 2017, 20:17:00
от winix
1 Ответов
428 Просмотров
Последний ответ Июль 31, 2017, 11:15:56
от InnI
1 Ответов
633 Просмотров
Последний ответ Сентябрь 20, 2017, 01:22:40
от xoop
2 Ответов
766 Просмотров
Последний ответ Октябрь 06, 2017, 13:37:59
от ololo1215
1 Ответов
427 Просмотров
Последний ответ Сентябрь 15, 2018, 12:53:49
от ra4o