阻止用户关闭HTA

Question

在HTA中使用vbscript

目的:防止用户关闭HTA (除了通过我的自定义按钮或使用windows任务管理器)。

据我从不同的网页上了解，你不能阻止在HTA SYSMENU中点击关闭按钮时关闭HTA。因此，我的解决方案是首先防止用户单击close。

首先是禁用系统菜单：

<HTA:APPLICATION SYSMENU="no" />

注意：我会用一个自定义的菜单替换系统菜单-任何链接到一个很好的指南将不胜感激。

下一步防止键盘快捷键alt+f4、f5或Next，如下所示：

Function Document_onKeyDown()

    Dim alt
    alt = window.event.altKey
    Select Case window.event.keyCode
        Case 27,116
            window.event.keyCode = 0
            window.event.cancelBubble = true
            Document_onKeyDown = False
        Case 115
            If alt Then
                window.event.keyCode = 0
                window.event.cancelBubble = true
                Document_onKeyDown = False
            End If
        Case Else
            Document_onKeyDown = True
    End Select

End Function

最后，我想阻止用户使用我的HTA应用程序的windows任务栏上下文菜单。

如何防止用户通过右键单击我的HTA来查看上下文菜单？

注意：HTA窗口不能全屏显示

Answer 1

关于以下内容：

如何防止用户通过右键单击我的HTA来查看上下文菜单？

<HTA:APPLICATION contextMenu="no">

Answer 2