1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: VBScript: управление Рабочим столом

Пример получения информации с помощью компонента JSSys3.dll:

Set oSys = CreateObject("JSSys3.Ops")

' глубина цвета в битах ("Качество цветопередачи", Свойства Экрана, вкладка "Параметры"):
WScript.Echo oSys.GetColorDepthBPP()
' разрешение экрана:
errCode = oSys.GetScreenPixels(w, h)
WScript.Echo w & " х " & h
' реальный размер экрана, без панели задач:
errCode = oSys.GetDesktopPixels(w, h)
WScript.Echo w & " х " & h

' установленные цвета элементов интерфейса (6-символьные строки, hex):
WScript.Echo oSys.GetSystemColor("Desktop")
WScript.Echo oSys.GetSystemColor("TitleBar") ' Active window title bar.
WScript.Echo oSys.GetSystemColor("TitleBar2") ' Active window title bar right gradient color.
WScript.Echo oSys.GetSystemColor("TitleBarText") ' Active window title bar text.
WScript.Echo oSys.GetSystemColor("InactiveTitleBar") ' Inactive window title bar.
WScript.Echo oSys.GetSystemColor("InactiveTitleBar2") ' Inactive window title bar right gradient color.
WScript.Echo oSys.GetSystemColor("InactiveTitleBarText") ' Inactive window title bar text.
WScript.Echo oSys.GetSystemColor("Buttons") ' Color for body of windows and buttons.
WScript.Echo oSys.GetSystemColor("Scrollbars") ' Scrollbar color.
WScript.Echo oSys.GetSystemColor("Desktop") ' Desktop background color.
WScript.Echo oSys.GetSystemColor("ButtonText") ' Text of button captions.
WScript.Echo oSys.GetSystemColor("Selection") ' highlight color (default dark blue.)
WScript.Echo oSys.GetSystemColor("SelText") ' color of actual text in text selection.
WScript.Echo oSys.GetSystemColor("Menu") ' window menu background (usually the same as button color).
WScript.Echo oSys.GetSystemColor("MenuText") ' window menu text.
WScript.Echo oSys.GetSystemColor("WindowBackground") ' background inside window (default white).
WScript.Echo oSys.GetSystemColor("WindowBackText") ' text inside window (default black).

' путь к исполняемому файлу программы, ассоциированной с указанным расширением:
WScript.Echo oSys.GetDefaultProgram("txt")
' полный путь к исполняемому файлу указанной программы:
WScript.Echo oSys.GetEXEPath("winword.exe")
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

2 Ответ от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Re: VBScript: управление Рабочим столом

Установка цвета Рабочего стола (применяется сразу же):

Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.SetBackColor("0000FF") ' 0 - OK, 1 - плохой цвет, 2 - failed

Установка цвета полос прокрутки всех окон (применяется сразу же). Полностью аналогично возможна установка цвета и ряда других элементов интерфейса, см. выше пример чтения таких цветов.

Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.SetSystemColor("Scrollbars", "0000FF")
' 0 - OK, 1 - плохой элемент интерфейса, 2 - плохой цвет,
' 3 - failed, 4 - запрещено, 5 - неизвестная ошибка

Установка обоев Рабочего стола (только BMP, применяется сразу же). Указанный файл копируется в каталог Windows как jssyswp.bmp.

Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.SetWallpaper("C:\Temp\test.bmp", "stretch") ' "center", "tile" или "stretch"
' 0 - OK, 1 - плохой файл, 2 - плохой стиль, 3 - failed

См. также:
VBScript: Изменение рисунка рабочего стола без перезагрузки компьютера
VBScript: вывод текста поверх обоев Рабочего стола

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.