Как закрыть всплывающее окно при запуске RunApplication (X) в VB.NET

Question

Я пытаюсь запустить приложение, но во время работы этого приложения появляется всплывающее окно, которое приводит к зависанию кода, поскольку я не знаю, как закрыть всплывающее окно.

Приложение построено на VB.NET

Dim oDesk as Object
Dim oApp as Object

oDesk =CreateObject("Desktop.Application") 
oApp = oDesk.RunApplication(Input1) 'Reference to the VB.NET code that will navigate to the required module.

SendKeys.SendWait("{ENTER}") 

Попытка отправить ENTER, чтобы закрыть всплывающее окно, но RunApplication получает, застрял. Не уверен, как ограничить всплывающие окна и т. Д. В VB.net. Любая помощь приветствуется!

Лучший, Герт

Answer 1

Обычно вы можете создать дополнительный объект для обработки всплывающих окон. Это скорее конкретное приложение, поэтому будьте осторожны Логика зависит от приложения.

Dim oDesk as Object
Dim oApp as Object
Dim oAppPopUp as Object

oDesk =CreateObject("Desktop.Application") 
oApp = oDesk.RunApplication(Input1,oAppPopUp) 'Reference to the VB.NET code that will    navigate to the required module.

SendKeys.SendWait("{ENTER}")