"fragen zu VB2008

[Algaten™]

Originally Posted by KingZuck

DAs habe ich ja hinbekommen nur das problem ist wie mache ich es das wenn ich z.b auf button xy drücke das in der console zb hallo steht..?

Gib mir mal das Projekt müsste egentlich nicht schwer sein

[KingZuck]

siehe anhang

[Algaten™]

Originally Posted by KingZuck

siehe anhang

Das cmd fenster ist aber net in die Form eingebunden sondern erscheint extra?...

EDIT:

Warum machste nicht einfach Shell("Der befehl") ?

Damit direkt nachdem du auf den Button drückst text in der Console erscheint

einfach Sendkeys.Send ("Befehl...")

so sieht das dann aus wenn das da noch zu ist..

Public Class Form1

    
    Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
    Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim p As Process = System.Diagnostics.Process.Start("cmd")
        SetParent(p.MainWindowHandle, Me.Handle)
        MoveWindow(p.MainWindowHandle, 0, 30, 50, 50, 1)
        SendKeys.Send("MSG * HI")

    End Sub

End Class

[KingZuck]

Originally Posted by Algaten™

Das cmd fenster ist aber net in die Form eingebunden sondern erscheint extra?...

EDIT:

Warum machste nicht einfach Shell("Der befehl") ?

Damit direkt nachdem du auf den Button drückst text in der Console erscheint

einfach Sendkeys.Send ("Befehl...")

so sieht das dann aus wenn das da noch zu ist..

Public Class Form1

    
    Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
    Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim p As Process = System.Diagnostics.Process.Start("cmd")
        SetParent(p.MainWindowHandle, Me.Handle)
        MoveWindow(p.MainWindowHandle, 0, 30, 50, 50, 1)
        SendKeys.Send("MSG * HI")

    End Sub

End Class

da dort ja nacher nicht nur 1 befehl rein soll ...
P.s ist doch in der form o.O