在所有窗口之上运行 hta

Question

我有一个 HTML 应用程序，我想保留在所有窗口的顶部（也就是说，如果打开/切换到另一个窗口，我希望这个窗口覆盖它）。JavaScript 解决方案在 Windows 7/IE9 模式下不起作用（不确定是什么阻碍了它，也无法更改），而 VBScript 解决方案似乎要么彻底失败，要么依赖外部组件。我也无法使用模式对话框，因为我需要将其置于所有其他窗口之上，而不仅仅是其父窗口之上。

并且不要将其标记为/sf/ask/1717753761/的重复项，因为（不幸的是仍然未回答）问题是指在其他窗口之上打开，而不是维护堆栈位置。

我尝试过的：

• 这里概述了其中的三项建议。
• JavaScript 解决方案在这里。
• 这里有一点 VBScript 。
• 上述每一项可能有十几个或更多个微妙的变化。

请记住，我无法下载额外的组件（没有 autoit 或 nircmd）。它应该全部集成到一个文件中，最好是 hta，但不是 zip。

我的解决方案

仅对 Teemu 的解决方案进行了轻微修改，主要是为了可移植性（以防万一）。

<script language="javascript">
    var locationstore = location.href
    [...]
    window.onload = function () {
        var shell = new ActiveXObject('WScript.Shell'),
            forceModal = function (e) {
                shell.Run(locationstore, 1, 0);
            };
        top.addEventListener('blur', forceModal, false);
        window.onbeforeunload = function () {
            window.removeEventListener('blur', forceModal, false);
        };
    };
</script>

Answer 1

这是一个邪恶的片段。它并不完美，但也许您可以进一步开发它。

window.onload = function () {
    var shell = new ActiveXObject('WScript.Shell'),
        forceModal = function (e) {
            shell.Run('absolute_path_to_hta', 1, 0);
        };
    top.addEventListener('blur', forceModal, false);
    window.onbeforeunload = function () {
        window.removeEventListener('blur', forceModal, false);
    };
};

警告：测试此代码片段时，HTA 必须在单实例模式下运行。