"fragen zu VB2008

Page 2 of 2 1 2
04/06/2011 20:15 Algaten™#16
Quote:
Originally Posted by KingZuck View Post
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
04/06/2011 20:35 KingZuck#17
siehe anhang :D
04/06/2011 20:42 Algaten™#18
Quote:
Originally Posted by KingZuck View Post
siehe anhang :D
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..

Code:
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
04/06/2011 22:21 KingZuck#19
Quote:
Originally Posted by Algaten™ View Post
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..


Code:
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
Page 2 of 2 1 2