Konsolenanwendung aufrufen VB 2008 Express

Hallo,

ich wollte fragen ob es eine Möglichkeit gibt, Befehle die man über cmd eingibt, z.B. ping 12.145.122.32, in einem Fenster anzuzeigen und das Resultat auch zu speichern, damit man es weiter verarbeiten oder zum kopieren, speicher, … anzeigen kann.

MfG, DarkblaDe2308

Hi DarkblaDe2308!

ich wollte fragen ob es eine Möglichkeit gibt, Befehle die man
über cmd eingibt, z.B. ping 12.145.122.32, in einem Fenster
anzuzeigen und das Resultat auch zu speichern, damit man es
weiter verarbeiten oder zum kopieren, speicher, … anzeigen
kann.

Wenn man zB in dem Command-Prompt ping www.google.at > export.txt eingibt, wird der Output der CMD in die Datei export.txt geschrieben.

Wenn du dies mittels C# oder VB machen möchtest, verwende diese function:

VB.net Code 
 'Function ExecuteCommand, this function execudes a command in the command line prompt cmd.exe
 'input param: Command as String (ipconfig /all), TimeOut as Integer (seconds)
 'return param: String (output command line prompt)
 Public Function ExecuteCommand(ByVal Command As String, ByVal Timeout As Integer) As String
 'Declaration
 Dim ExitCode As Integer
 Dim ProcessInfo As ProcessStartInfo
 Dim Process As Process

 'Start new cmd line
 ProcessInfo = New ProcessStartInfo("cmd.exe", "/C " + Command)
 ProcessInfo.RedirectStandardOutput = True
 ProcessInfo.CreateNoWindow = True
 ProcessInfo.UseShellExecute = False
 Process = Process.Start(ProcessInfo)

 'Set timeout (sec)
 Process.WaitForExit(Timeout)

 'Read output command line prompt
 Dim sr As IO.StreamReader = Process.StandardOutput
 Dim sb As New System.Text.StringBuilder("")
 Dim input As Integer = sr.Read
 Do Until input = -1
 sb.Append(ChrW(input))
 input = sr.Read
 Loop

 'Get exitcode
 ExitCode = Process.ExitCode

 'close process
 Process.Close()

 'return output command line prompt
 Return sb.ToString
 End Function

Wenn du es in C# brauchst einfach: http://www.developerfusion.com/tools/convert/vb-to-c… !

Gruß Sebastian

THX, funktioniert alles Prima

MfG, DarkblaDe2308