semiono
Долгожитель форума
Откуда: Арзамас Всего сообщений: 383 Рейтинг пользователя: 2 Дата регистрации на форуме: 2 сен. 2006
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 24 мая 2008 1:48 Сообщение отредактировано: 24 мая 2008 1:49
Нужно написать скрипт для выполнения такого:
rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:C:\WIN\Resources\themes\Tiger.theme
и тут надо ешё нажать "OK"
Вот скрипт написанный на языке AutoIt3:
----
Dim $var1 = '"' & @WindowsDir & '\'
Run(@ComSpec & " /c " & 'rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:' & $var1 & 'resources\themes\Blackbox.theme"', "", @SW_HIDE)
WinWait("Display Properties", "",2)
Send("{ENTER}")
Exit
----
А как будет это выглядеть для js/vbs, пожалуйста напишите кто знает?
И ещё слабость этого скрипта в том что окно видно, лучше бы вообще скрыто запустить?
То есть оптимизация приветствуется!
У меня работает даже при задержке ноль, однако окно видно и похоже, что это даже на задержку не влияет,
может она и не нужна? Или на другой машине может не успеть?
--- a peoples must know what is cost an opium for the race?
|