kannst Du das gebrauchen ?
Code
#include <Constants.au3>
$befehl = "route print"
_IEPrt(_befehl(), $befehl)
Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=300, $Links=100, $Oben=100)
Dim $IE=ObjCreate("InternetExplorer.Application.1")
With $IE
.Navigate("about:blank")
.Document.Title=$Titel
.Left=$Links
.Top=$Oben
.Width=$Breite
.Height=$Hoehe
.Visible=1
.Document.Body.InnerHtml="Bitte warten.."
.Toolbar=False
.Menubar=False
.Statusbar=False
.Visible=True
.Document.Body.InnerHtml=$Was
EndWith
EndFunc
Func _befehl()
Local $ForWriting=1, $h, $i, $Prt
$i=Run(@ComSpec &" /c " & $befehl , @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
Sleep(1000)
$h = StdOutRead($i)
If @error=0 Then $Prt=$h
$h = StdErrRead($i)
If @error=0 Then $Prt = $h
$Prt = StringReplace($Prt, Chr(154), "Ü")
$Prt = StringReplace($Prt, Chr(129), "ü")
$Prt = StringReplace($Prt, Chr(142), "Ä")
$Prt = StringReplace($Prt, Chr(132), "ä")
$Prt = StringReplace($Prt, Chr(153), "Ö")
$Prt = StringReplace($Prt, Chr(148), "ö")
Return "<body scroll=0><Pre>" &$Prt
EndFunc
Alles anzeigen