VBScript: работа с окнами

null@example.com (The gray Cardinal) — Sun, 01 Mar 2009 17:09:38 +0000

Бесплатный COM-сервер JSSys3.dll предоставляет несколько методов для работы с окнами. Получение списка заголовков всех видимых окон в системе и активизация нужного из них (остальные окна сворачиваются):

Set oSys = CreateObject("JSSys3.Ops")
num = oSys.GetOpenWindowTitles(vTitles)
For Each title In vTitles
    If InStr(title, "Свойства системы") Then
        errCode = oSys.SetWindowActive(title, True)
    End If
Next

Получение заголовка активного окна; закрытие окна с указанным заголовком:

Set oSys = CreateObject("JSSys3.Ops")
WScript.Echo oSys.GetActiveWindowTitle()
oSys.CloseProgram "C:\Temp", 1

Можно получить список путей к исполняемым файлам запущенных процессов:

Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.GetProcessList(procs, num)
WScript.Echo "всего программ: " & num
For Each exepath In Split(procs, ",")
    WScript.Echo exepath
Next

См. также Обзор библиотеки AutoItX3.dll.

Серый форум — VBScript: работа с окнами

VBScript: работа с окнами