HTA

Question

我想知道如何使用提交按钮从打开的 HTA window 触发查找对话框？

如果我手动输入 Ctrl F，这会触发该框，所以我希望它可以通过按钮实现。

以下是我尝试使用的 vbscript 代码，类似于我过去使用过的 excel VBA 子代码，但它不起作用。

Sub SubSearch

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

End Sub

我也尝试过使用 sendkeys "^F"，但这也不起作用。

如果有办法将框嵌入到 HTA 会话中，这也很好，但除此之外，请只触发对话框！

Answer 1

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>

HTA - 如何在单击按钮时触发查找对话框？

HTA - How to trigger the find dialog at the click of a button?

vbscript

search