Hi AlleMann,
Die Ausführung von Netstat war nur der Anfang.
Ich habe mir _IEPrt(..) nochmal angesehen und verbessert:
Der With-Befehl ist rausgeflogen, weil er nur für die Optik gut ist!
In Wirklichkeit setzt der With-Befehl Pointer ein, um die Variablen
richtig zu adressieren, spart also nix ein..
Der Faktor 9 scheint eine ganz gute Lösung für die Berechnung der
Fenstergröße zu sein, denn 8 ist eher zu klein..
Hier nun als Beispiel der Aufruf von 'Route Print':
Spoiler anzeigen
C
;(c) 2006 by ytwinky, MD
#include <Constants.au3>
Dim $Prt, $ProgName, $Optionen, $MaxB=0, $i, $PrtArray
$ProgName="Route Print"
$Optionen="|Find /v""=="""
$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
For $i=1 To UBound($PrtArray, 1)-1
If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
Next
_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=300, $Links=100, $Oben=100)
Dim $IE=ObjCreate("InternetExplorer.Application.1")
$IE.Navigate("about:blank")
$IE.Document.Title=$Titel
$IE.Left=$Links
$IE.Top=$Oben
$IE.Width=$Breite
$IE.Height=$Hoehe
$IE.Visible=True
$IE.Document.Body.InnerHtml="Bitte warten.."
$IE.Toolbar=False
$IE.Menubar=False
$IE.Statusbar=False
$IE.Document.Body.InnerHtml=$Was
EndFunc
Func _SysProg($Which) ;SystemProgramm ausführen
Local $h, $i, $Prt
$i=Run(@ComSpec &" /c " &$Which, @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=auto><Pre>" &$Prt
EndFunc
Alles anzeigen
Happy _sysprogging&_IEPrting..
ytwinky