キーボードマクロ サンプル
With WScript.CreateObject("WScript.Shell")With WScript.CreateObject("WScript.Shell")
Dim Input,iInput = InputBox("回数を入力して下さい。")
WScript.Sleep 4000
Do Until Input <= 0.SendKeys "^({TAB})"
Input = Input - 1 i = i + 1
WScript.Sleep 400
Loop
MsgBox i
End With