Тема: 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.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.