Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 8
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо всем выше ответившим, но к сожелению по тем или иным причинам варианты предложенные не подходят:
Написал пока что на VBS, по идеи должен работать и перекидывать фокус на данный процесс... но что то не так.
Получается программа активна, но в ней писать не могу... как будто она не в фокусе...
Кто ,что думает... где нужно что дописать или исправить ,понимаю что в верном направлении и ду.. но дальше знаний VBS нехватает

Код: Выделить весь код
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "D:\TSD\Notepad++Portable.exe"
Set WshShell = Nothing
Set SH = CreateObject("WScript.Shell")
Do
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()
Set props = service.ExecQuery("select * from Win32_Process where name = 'notepad++.exe'")
For Each objProcess in props
    SH.AppActivate objProcess.ProcessId
Next
WScript.Sleep 500
Loop

Отправлено: 07:47, 15-02-2019 | #12