- Сообщения
- 3,999
- Репутация
- 967
Как автозагрузиться первым?
Sky-WaLkeR
Ну, к примеру, так:
Создаём файл сценария "shutdown.vbs"
И поместим его в "C:\WINDOWS\System32\GroupPolicy\User\Scripts\Shutdown"
Далее:
"Пуск/Выполнить" в появившемся окне пишем "gpedit.msc", "Ок"
В окне "Групповая политика" выбираем "Конфигурация Windows/Сценарии/Завершение работы" добавляем наш сценарий, "Применить/Ок"
Саму программу "prog.exe" помещаем в "C:\shutdown"
Выходим из Windows и радуемся результату после нового входа в систему.
Sky-WaLkeR
Ну, к примеру, так:
Создаём файл сценария "shutdown.vbs"
Код:
Option Explicit
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "c:\shutdown\prog.exe", 1, True
Set objWshShell = Nothing
WScript.Quit 0
И поместим его в "C:\WINDOWS\System32\GroupPolicy\User\Scripts\Shutdown"
Далее:
"Пуск/Выполнить" в появившемся окне пишем "gpedit.msc", "Ок"
В окне "Групповая политика" выбираем "Конфигурация Windows/Сценарии/Завершение работы" добавляем наш сценарий, "Применить/Ок"
Саму программу "prog.exe" помещаем в "C:\shutdown"
Код:
Dim $aBMP[3] = ["Autoit.bmp", "Galaxy.bmp", "Windows.bmp"] ; Меняем на свои картинки. Путь C:\WINDOWS\
Dim $sVal = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper")
_ChangeWallpaper($aBMP, $sVal) ; Гоняем картинки по кругу при каждом выходе из системы
Exit
Func _ChangeWallpaper($aBMP, $sVal)
For $i = 0 To UBound($aBMP) -1
If StringInStr($sVal, $aBMP[$i]) Then
$i+=1
If $i = UBound($aBMP) Then $i = 0
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper", "REG_SZ", "C:\WINDOWS\" & $aBMP[$i])
ExitLoop
EndIf
Next
Return 1
EndFunc
Выходим из Windows и радуемся результату после нового входа в систему.