Also angenommen das hier
[Blockierte Grafik: http://img410.imageshack.us/img410/7682/cmdzc7.jpg]
seih das DOS Fenster dann möchte ich es so haben das
______________________________________
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Dokumente und Einstellungen\Besitzer>
_______________________________________
als variable wiedergegeben Wirt... weiß wer wie ich das machen könnte?
MFG infinity
Hi,
möchtest du nicht einen Befehl absetzen und nur das Ergebnis des Befehls catchen?
So long,
Mega
Öööm möchte nur den inhalt inner variable haben ... also die des cmd fensters
Hi,
???
[autoit]Opt('WinTitleMatchMode', 2)
Global $title = 'C:\WINNT\system32\cmd.exe'
Run('cmd.exe', '', @SW_HIDE)
Sleep(500)
ControlClick($title, '', '', 'right', 1, 1, 1)
Sleep(400)
ControlSend($title, '', '', 'a')
Sleep(400)
ControlSend($title, '', '', '{enter}')
$var = ClipGet()
MsgBox(0,"", $var)
So long,
Mega
leider zeigt das tool nur den source in einer msg box an
Hi,
verstehe ich nicht? Was wolltest du denn? IN $var steht doch alles drin.
So long,
Mega
Den inhalt der CMD box..
ich mach dir maln beispiel ... das hatte ich gefunden das funktioniert genau so wie ichs will nur mitn anderen tool und zwar netstat :
#include <Constants.au3>
;(c) 2006 by ytwinky, MD
;und ganz ohne ..matic
_IEPrt(_NetStat("ano"), "NetStat.Exe /ano")
[/autoit] [autoit][/autoit] [autoit]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 _NetStat($Options) ;NetStat ausführen
Local $ForWriting=1, $h, $i, $Prt
$i=Run(@ComSpec &" /c netstat.Exe /" &$Options, @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
Hi,
dann mach doch sowas:
#include <Constants.au3>
Global $text
Global $command = "set"
$stream = Run(@ComSpec & ' /c ' & $command, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
[/autoit] [autoit][/autoit] [autoit]While 1
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline
If @error Then ExitLoop
WEnd
MsgBox(0, "STDOUT read:", $text)
[/autoit]So long,
Mega
Danke hat geklappt.
Hui,
schwere Geburt. 
So long,
Mega
