cmd.exe in eine Windows Form packen

OneWorld · 20. September 2012, 16:30

Hallo alle zusammen ich mal wieder

Ich hab ein neues Problem und zwar wollte ich cmd.exe in einer Windows Form per Panel anzeigen lassen. Für ein anderes Programm funktioniert das wunderbar (z.b. notepad.exe) Aber:
Jedes mal wenn ich es mit einer Console versuche bekomme ich folgende Fehlermeldung: Fehler bei WaitForInputIdle. Möglicherweise hat der Prozess keine Grafische Schnittstelle. (als MsgBox)

Hier im Forum habe ich es immer nur mit Notepad gesehen aber nie wie das mit der Console funktioniert.

Hier ist mal mein Code:

VB.NET-Quellcode

Public Class Win32Api
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Public Shared Function ShowWindow( _
ByVal hWnd As IntPtr, _
ByVal nCmdShow As Integer) As Boolean
End Function
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Public Shared Function SetParent( _
ByVal hWndChild As IntPtr, _
ByVal hWndNewParent As IntPtr) As IntPtr
End Function
Public Const SW_MAXIMIZE As Int32 = 3
End Class
Private Sub SetApplicationAsChild(ByVal CallingApplication As String, _
ByVal p As System.Windows.Forms.Panel)
Try
Dim hProcess As System.Diagnostics.Process = _
System.Diagnostics.Process.Start(CallingApplication)
hProcess.WaitForInputIdle()
Win32Api.SetParent(hProcess.MainWindowHandle, p.Handle)
Win32Api.ShowWindow(hProcess.MainWindowHandle, Win32Api.SW_MAXIMIZE)
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Info")
End Try
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Const APP_NAME As String = "cmd.exe"
SetApplicationAsChild(APP_NAME, Panel1)
End Sub

Wenn das überhaupt nicht geht einfach bescheid sagen dann hat sich das auch schon erledigt :thumbup:

Gruß OneWorld

FischKopfLarry · 20. September 2012, 16:35

msdn.microsoft.com/de-de/libra…ocess.standardoutput.aspx
msdn.microsoft.com/de-de/libra…rocess.standardinput.aspx

damit kannst du zbs ne richttextbox zu deinen cmd machen

OneWorld · 20. September 2012, 16:43

Aber die Console muss dennoch im Hintergrund laufen ?

FischKopfLarry · 20. September 2012, 16:44

jup , wird ja nur ihr Output ausgelesen

//edit: oder meinst das du sie noch sehne kannst?
mit "process.StartInfo.CreateNoWindow = False" wird sie für den normalen user unsichtbar o.o

OneWorld · 20. September 2012, 16:57

Also das was ich zuerst vorhatte war eine textbox als console umzufunktionieren aber ich weiß leider nicht wie und dann habe ich versucht die Console in eine Form zu machen hat aber leider nicht funktioniert

FischKopfLarry · 20. September 2012, 17:16

nur so als beispiel

ps: is als bild damit man nicht C&P machen kann , ist nur als beispiel wie man es machen könnte und nicht zum abschreiben gedacht :!:

OneWorld · 20. September 2012, 17:48

Dank für die Hilfe nur eins noch ist Output.text eine Textbox oder eine Richtextbox ?

RodFromGermany · 20. September 2012, 17:54

OneWorld schrieb:

eine Textbox oder eine Richtextbox ?

Wo ist da in diesem Fall der Unterschied?

FischKopfLarry · 20. September 2012, 17:56

rod hat recht , das ist egal , nutze nur richttextbox wen ich etwas mit multiline brauche , zwar kann man multiline bei der normalen textbox auch an machen finde aber richttextbox bei sowas schöner

OneWorld · 20. September 2012, 18:06

Ok gut. Nur eins noch könntest du mir noch grade diesen Sub erklären wenn es keine Umstände macht ?

VB.NET-Quellcode

Private Sub input_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Input.KeyPress
If Convert.ToByte(e.KeyChar) = 1 Then
cmd.StandardInput.WriteLine(Input.text)
cmd.StandardInput.Flush()
Input.text = ""
End If
End Sub

Habs grad abgeschrieben, dann ist es einfacher finde ich

FischKopfLarry · 20. September 2012, 18:08

die macht einfach das wen du in der textbox enter drückst das der Inhalt an die cmd.exe gesendet wird
damit diese den "code" ausführen kann

OneWorld · 20. September 2012, 18:17

Als was hast du Input definiert das kennt der bei mir nicht.

RodFromGermany · 20. September 2012, 18:32

OneWorld schrieb:

If Convert.ToByte(e.KeyChar) = 1 Then

Was soll das? Frag doch die Taate direkt ab.

OneWorld · 20. September 2012, 18:58

Ok hat Klick gemacht. Danke an euch alle

cmd.exe in eine Windows Form packen

cmd.exe in eine Windows Form packen

VB.NET-Quellcode

OneWorld schrieb:

VB.NET-Quellcode

OneWorld schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben