Abhilfe: die erste WScript.Sleep auf 600 erhöhen und
die letzte WScript.Sleep 500 auf 2500 setzen dann bleibt der Focus auf dem Erinnerungsfenster
neuer Code:
Code: Alles auswählen
Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.run "cmd", 2
WScript.Sleep 600
'enter command
objShell.SendKeys "type " + WScript.Arguments(0) + ">com1" + "{enter}"
WScript.Sleep 500
'close window
objShell.SendKeys "exit"
objShell.SendKeys "{enter}"
WScript.Sleep 2500
Set objShell = Nothing
WScript.Quit 0