Welcome To Ask or Share your Answers For Others

vbscript - Visual Basic Script - KeyPress Detection?

asked Oct 17, 2021 in Technique[技术] by 深蓝 (71.8m points)

vbscript - Visual Basic Script - KeyPress Detection?

I want to terminate the program once the key F1 is pressed. Not sure sure how to write the do while loop. Any Ideas?

Set WshShell = WScript.CreateObject("WScript.Shell")
Do While {F1} is not pressed
'...
Loop

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙；凝视深渊过久,深渊将回以凝视…

Welcome To Ask or Share your Answers For Others

1 Answer

answered Oct 17, 2021 by 深蓝 (71.8m points)

This isn't possible in plain VBScript, but you may be able to get it to work with an HTA:

<head>
<title>Test</title>
<HTA:APPLICATION ID="oHTA"
  APPLICATIONNAME="Test"
>
</head>

<script language="VBScript">
Sub CheckKey
  If window.event.keyCode = 112 Then self.close()
End Sub
</script>

<body onKeyUp="CheckKey">
...
</body>

与恶龙缠斗过久,自身亦成为恶龙；凝视深渊过久,深渊将回以凝视…

...