HTA - Как вызвать диалоговое окно поиска одним нажатием кнопки?

  • Мне было интересно, как вызвать диалоговое окно поиска из открытого окна HTA с помощью кнопки отправки?

Если я вручную ввожу Ctrl F, это вызывает окно, поэтому я надеюсь, что это достижимо с помощью кнопки.

Ниже приведен код vbscript, который я пытался использовать, похожий на подпрограмму Excel VBA, которую я использовал в прошлом, но она не работает.

Sub SubSearch

Set IE = CreateObject("InternetExplorer.Application")
IE.Dialogs(IEDialogFind).Show

End Sub

Я также пытался использовать sendkeys "^F", и это тоже не работает.

  • Если есть способ встроить окно в сеанс HTA, это тоже хорошо, но в противном случае просто триггер для диалогового окна, пожалуйста!

search vbscript hta
person Barkered    schedule 03.07.2015    source источник
comment
Удалось ли вам заставить это работать, используя мой ответ ниже?   -  person Bond    schedule 06.07.2015
comment
Здравствуйте... Я в отпуске на этой неделе, но свяжусь с вами как можно скорее! :)   -  person Barkered    schedule 08.07.2015

Ответы (1)


arrow_upward
2
arrow_downward

SendKeys должно работать. Вот простой HTA, который использует SendKeys для отображения диалогового окна Find:

<html>
<head>
    <title>HTA Test</title>
    <HTA:APPLICATION>
</head>

<body>
<button onclick="ShowFind()">Click me</button>
</body>

<script language="VBScript">
    Sub ShowFind()
        CreateObject("WScript.Shell").SendKeys "^f"
    End Sub
</script>
</html>
person Bond    schedule 03.07.2015
comment
Привет, я запускал внешний VBscript и вызывал его из HTA (не уверен, почему я делал это именно так, теперь я думаю об этом!) - Ваш метод сработал, я думаю, он просто не понравился управлять им извне приложения HTA... Спасибо за помощь! - person Barkered; 13.07.2015