HTA - 如何通过点击按钮触发查找对话框？

问题描述：

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

如果我手动输入Ctrl F，这会触发该框，所以我希望它可以通过按钮实现。HTA - 如何通过点击按钮触发查找对话框？

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

Sub SubSearch 

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

End Sub

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

如果有一种将盒子嵌入到HTA会话中的方法，这也可以，但否则，只需触发对话框！

是你能得到这个用我的回答如下工作？ – Bond

你好......本周我正在度假，但会尽快回复你！ :) – Barkered

答

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>

你好，我正在运行一个外部的VBscript，并从HTA调用它（不知道为什么我这样做，现在我正在考虑它！） - 你的方法做了诡计，我猜它只是没有不喜欢从HTA应用程序外部控制它...感谢您的帮助！ – Barkered

HTA - 如何通过点击按钮触发查找对话框？

相关推荐