1

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

Бесплатный 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.

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