Закройте HTA, когда пользователь нажимает клавишу "Esc"

Question

Закройте HTA, когда пользователь нажимает клавишу "Esc"

Я пытаюсь зафиксировать нажатие клавиш, чтобы закрыть HTA, когда пользователь нажимает клавишу Esc.

Я подтвердил, что onKeyUp событие работает (я также фиксирую длину входных данных), а также то, что приведенный ниже пример не работает (путем добавления MsgBox который не уволен).

Что мне здесь не хватает?

Sub window_onKeyUp()

    If window.event.keyCode = 27 Then
        Call CloseHTA()
    End If

End Sub

1

vbscript hta onkeyup

Источник

user567059 23 июн '15 в 14:11

2 ответа

Решение

Вы можете попробовать вот так:

<html>
<script language="VBScript">
    Sub TestKey()
        intKeyCode = Window.Event.Keycode
        If intKeyCode = 27 Then Call CloseHTA()
    End Sub
    Sub CloseHTA()
        self.close
    End Sub
</script>

<body onkeyup="TestKey">
</body>
</html>

1

Источник

user3080770 23 июн '15 в 14:36

Другие вопросы по тегам vbscript hta onkeyup

user2237785 23 июн '15 в 14:28 2015-06-23 14:28 · Accepted Answer · 2015-06-23 14:28

Это работает для меня.

<script language="VBScript">
    Sub TestKey()
        intKeyCode = Window.Event.Keycode
        If intKeyCode = 27 Then Window.Close
    End Sub
</script>

<body onkeyup="TestKey">
</body>

Редактировать:

Кроме того, вы можете использовать Document_OnKeyUp() если вы хотите включить свой код после <body> тег.

<body>
</body>

<script language="VBScript">
    Sub Document_OnKeyUp()
        intKeyCode = Window.Event.Keycode
        If intKeyCode = 27 Then Window.Close
    End Sub
</script>