[キーボード入力を送信する]

メモ帳（notepad.exe）を起動し、Alt+f, x を送信して終了させます。
キー送信はアクティブなウィンドウに対して送信されるので、起動に時間が掛かった場合など問題が発生することがあります。

【ソースコード】

[tips0110.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト
Dim strCmdLine      ' 実行するコマンド
Dim objExecCmd      ' 実行コマンド情報

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    strCmdLine = "notepad.exe"
    Set objExecCmd = objWshShell.Exec(strCmdLine)
    If Err.Number = 0 Then
        WScript.Echo strCmdLine & " を起動しました。"
        WScript.Sleep(2000)         ' 起動されるまで待つ
        objWshShell.SendKeys "%f"   ' Alt+F 送信
        WScript.Sleep(500)          ' メニューが表示されるのを待つ
        objWshShell.SendKeys "x"    ' X を送信
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objExecCmd = Nothing
Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0110.vbs
notepad.exe を起動しました。