Question

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

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

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

Sub SubSearch

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

End Sub

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

如果有一种方法可以将盒子嵌入到HTA会话中，这也没关系，但是只需要对话框的触发器就可以了！

Answer 1

SendKeys应该有效。这是一个使用SendKeys显示Find对话框的简单HTA：

<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 - 如何通过单击按钮触发查找对话框？

1 个答案: