Dim wshSet wsh = CreateObject("WScript.Shell")wsh.Exec "c:\123\a.exe"Wscript.Sleep 1000WshShell.SendKeys "i"
说明（逐行）
声明 wsh
定义 wsh
运行c:\123\a.exe
等待1000毫秒（即1秒），目的是等a.exe启动完成
模拟按键i
