So then use this for the complete task?
ShellExecute("cmd.exe","","","open",@SW_HIDE)
_WinWaitActivate("[CLASS:ConsoleWindowClass]","")
Send("MODE COM1 96,n,8,1")
Send("{ENTER}")
Send("TYPE CON>COM1")
Send("{ENTER}")
Send("^g")
Send("{ENTER}")
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
Local $PID = ProcessExists("Excel.exe")
If $PID Then ProcessClose($PID)