HTA - Как да задействам диалоговия прозорец за намиране с едно натискане на бутон?

  • Чудех се как да задействам диалоговия прозорец за намиране от отворен HTA прозорец с помощта на бутон за изпращане?

Ако въведа ръчно Ctrl F, това задейства полето, така че се надявам, че е постижимо чрез бутон.

По-долу е vbscript кодът, който се опитах да използвам, подобен на excel VBA sub, който използвах в миналото, но не работи.

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