指定キーを押すとトリガーする方法を VBS で設定するには

1年 ago
芽依, 雨夜
1 minute

VBScript では、WScript オブジェクトのメソッドを使用して、キーストロークイベントをリッスンして処理できます。

以下に、スペースキーを押したときにイベントを発動させる例を記載します。

Set objShell = WScript.CreateObject("WScript.Shell")

' 监听键盘事件
Sub CheckKeyPress
    ' 检查是否按下空格键 (ASCII码为32)
    If objShell.SpecialKeys.Item(" ") Then
        ' 触发事件
        WScript.Echo "空格键已按下"
    End If
    ' 继续监听下一个键盘事件
    CheckKeyPress
End Sub

' 开始监听键盘事件
CheckKeyPress

上記の例では、WScriptオブジェクトのSpecialKeysプロパティを使ってキーの状態を取得しています。スペースキーの状態を確認することで、対応するイベントを発生させることができます。イベントが発生した後に、必要な操作を実行することができます。

ただし、上記のサンプルは無限ループで、キーボードのイベントをずっと待ち続けます。リッスンを停止するには、Exit Sub ステートメントまたはその他の条件を使用してループから抜ける必要があります。

また、コマンドラインウィンドウでVBScriptスクリプトを実行するこの方法は、Windowsデスクトップや他のGUIアプリケーションでは動作しないことに注意してください。GUIアプリケーションでキーイベントをリッスンおよび処理するには、他の方法や技術を使用する必要があります。

bannerAds