Anhang

'*******************************************************************

' Datei:  SendKeys.vbs
' Projekt: Referat - Windows Scripting Host
' Autor:  (c) Martin Schaub

'*******************************************************************

Set myWsh = WScript.CreateObject ("WScript.Shell")
Set myCalc = WScript.CreateObject ("Excel.Application")

myWsh.run ("Calc.exe")

h = hour(time())
m = minute(time())
s = second(time()) + 2
pause = TimeSerial(h, m, s)

myCalc.Application.Wait pause    ' 3 Sekunden warten

myCalc.SendKeys "10", true

myCalc.SendKeys "{+}", true

myCalc.SendKeys "2", true

myCalc.SendKeys "=", true

WScript.Echo "Fertig"

WScript.Quit

'*******************************************************************

' Ende

'*******************************************************************