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

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

Присутствующие

Сейчас просматривают эту тему:

а также: 1 гость, 0 скрытых пользователей.

Последние

Мой несерьезный сайтец

Оцените сайт о недвижимости в США

Восстановление данных с потерянных разделов

Здарова Всем! Оцените наш сайт! по всем критерием спасибо!

Проблема с симплекс модулем

Самые активные 5 т

Случайные статьи

Объединенный Открытый Проект » Программирование » Windows API » (?)Script

Реклама: заправка картриджей

(?)Script

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

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

Долгожитель форума

semiono

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"
:biggrin

: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

Профиль | Игнорировать
NEW! Сообщение отправлено: 24 мая 2008 2:41
Сообщение отредактировано: 24 мая 2008 2:42

Пожалуй нашёл!!!

//===================================================================
// 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

Быстрый переход в раздел:

Время выполнения скрипта: 0.4259. Количество выполненных запросов: 18, время выполнения запросов 0.1073

© 2001-2008, 4X_Pro, Объединенный Открытый Проект.
При использовании материалов сайта ссылка на первоисточник обязательна.
Если первоисточник не указан явно, им следует считать Объединенный Открытый Проект.
Этот форум работает на скрипте Intellect Board 2.22, © 2004-2007, XXXX Pro, Объединенный Открытый Проект