Как автоматически закрыть окно ОК в VBScript?

Question

Мне нужно автоматически закрыть окно «ОК» в программе, нажав Enter .

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

Set objshell = WshShell.Sendkeys "{Enter}" ("wscript.shell")
objshell.Run,0, True
exit

Ошибка:

Строка: 1
Char: 34
Ошибка: ожидается конец инструкции
Код: 800A0401
Источник: ошибка компиляции Microsoft Vbscript

Answer 1

В случае сомнений прочитайте документацию . В VBScript нет внутреннего объекта WshShell. Вам нужно создать экземпляр WScript.Shell и присвоить его этой переменной, прежде чем вы сможете вызвать для него метод SendKeys.

Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{Enter}"

И вам, вероятно, нужно сначала вывести окно, в которое вы пытаетесь отправить это нажатие, с помощью AppActivate.

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

Обратите внимание, что SendKeys - это ужасно ненадежный метод автоматизации. Возможно, вы захотите взглянуть на что-то вроде AutoIt .