Объединенный Открытый Проект - Сайт для Настоящих Компьютерщиков

Объединенный Открытый Проект

Сайт для Настоящих Компьютерщиков

; Логин:
  Пароль:
Обычный
Безопасный
Запомнить пользователя



Зарегистрироваться
Забыли пароль?
 
 
 
Объединенный Открытый Проект »   Программирование »   Windows API »   (?)Script
RSS

(?)Script

au3, jS, vbs скрипты.

Текущий рейтинг темы: Нет

  Вперед>>Печать
 
semiono
Долгожитель форума

semiono
Откуда: Арзамас
Всего сообщений: 383
Рейтинг пользователя: 2





Дата регистрации на форуме:
2 сен. 2006
Нужно написать скрипт для выполнения такого:
rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:C:\WIN\Resources\themes\Tiger.theme
и тут надо ешё нажать "OK"
:biggrin

Вот скрипт написанный на языке 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?
semiono
Долгожитель форума

semiono
Откуда: Арзамас
Всего сообщений: 383
Рейтинг пользователя: 2





Дата регистрации на форуме:
2 сен. 2006
Пожалуй нашёл!!!

//===================================================================
// FILE: theme.js
// DESCRIPTION: automatically set the Windows theme
//===================================================================

// create shell object
objShell = new ActiveXObject("WScript.Shell");

// start themes applet, load desired theme, and activate this window
objShell.Run('rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\\WIN\\Resources\\Themes\\Windows Classic.theme"',1);

// wait for themes window
WScript.Sleep(1600);

// send the 'enter' key to accept this theme
objShell.Sendkeys("{ENTER}");

---
a peoples must know what is cost an opium for the race?
  Вперед>>Печать
Объединенный Открытый Проект »   Программирование »   Windows API »   (?)Script
RSS
Быстрый переход в раздел:


Время выполнения скрипта: 0.0263. Количество выполненных запросов: 19, время выполнения запросов 0.0144