Gruß
Marcus

Gruß
Marcus

Public Class frmMain
  'benötigte APIs
  Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As _
    IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
 
  Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, _
    ByVal flag As Integer) As IntPtr
 
  Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Int32, _
    ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal bRepaint As Boolean) As Boolean
 
  'ShowWindow-Konstanten
  Private Const SW_NORMAL As Integer = 1
 
  'ProzessID des eingebetteten fensters merken
  Private intProgrammID As Integer
 
  Private Sub Starten
    StartProgramm("cmd.exe", TabPage1, intProgrammID)
  End Sub
 
  Private Sub Stoppen
    Try
      Process.GetProcessById(intProgrammID).Kill()
    Catch
    End Try
  End Sub
 
  Private Sub StartProgramm(ByVal Programm As String, ByVal Seite As TabPage, _
    ByRef ProgrammID As Integer)
      '<übergebene Parameter>
      'Programm = das Programm, das gestartet werden soll
 
      'Seite = die Seite eines TabControls, auf der das Programm angezeigt
       '       werden soll
 
      'ProgrammID = ProzessID des aufgerufenen Programms
      '             ByRef, um mit dem Aufruf des Programms der globalen Variable
      '             intProgrammID die ProzessID zu übergeben
      '             (wird in der Prozdur "Stoppen gebraucht)
      '</übergebene Parameter>
 
      Dim Handle As IntPtr 'MainWindowHandle des gestarteten Programms
 
      'Programm starten
      ProgrammID = Process.Start(Programm).Id
 
      'Warten, bis aufgerufenes Programm ein MainWindowsHandle hat
      Do
          Application.DoEvents()
      Loop Until Process.GetProcessById(ProgrammID).MainWindowHandle <> 0
 
      Handle = Process.GetProcessById(ProgrammID).MainWindowHandle
 
      'DOS-Box in Tabpage einbetten
      SetParent(Handle, Seite.Handle)
 
      'WindowState der DOS-Box auf "normal" setzen
      ShowWindow(Handle, SW_NORMAL)
 
      'DOS-Box auf TabPage zentrieren
      MoveWindow(Handle, 10, 8, 670, 440, True)
  End Sub
End Class

Gruß
Marcus

Beitrag wurde zuletzt am 18.01.14 um 18:39:03 editiert.

Private Sub ETCAStart()
   If ETCAWin IsNot Nothing Then
      If Not CBool(IsWindowVisible(ETCAWin.Handle)) Then
          ShowWindow(ETCAWin.Handle, 1)
          If Not CBool(IsWindowVisible(ETCAWin.Handle)) Then Exit Sub
      Else
          ShowWindow(ETCAWin.Handle, 1)
          If CBool(IsWindowVisible(ETCAWin.Handle)) Then Exit Sub
      End If
   End If
 
   ETCA.StartInfo.WorkingDirectory = PointOfKalk & "ETCASIE"
   PrgDrive.Text = ETCA.StartInfo.WorkingDirectory
 
   With ETCA.StartInfo
       .FileName = "cmd"
       .Arguments = "/K""GEATEC.EXE ETCA"""
       .CreateNoWindow = False
       .UseShellExecute = True
   End With
 
   ETCA.Start()
 
   Dim hwnd As IntPtr = IntPtr.Zero
 
   System.Threading.Thread.Sleep(500)
   Application.DoEvents()
 
   hwnd = ETCA.MainWindowHandle
 
   Try
      ETCAWin.AssignHandle(ETCA.MainWindowHandle)
   Catch ex As Exception
      '??????????
   End Try
 
   SetParent(hwnd.ToInt32, ETCAPanel.Handle.ToInt32)
 
   System.Threading.Thread.Sleep(300)
 
   Application.DoEvents()
 
   SetWindowTextW(ETCAWin.Handle, "ETCA Siemensversion")
   SetWindowPos(ETCAWin.Handle, 0, 0, 0, 0, 0, &H1 + &H40)
 
   System.Threading.Thread.Sleep(200)
   Application.DoEvents()
 
End Sub

#Region "APIs"
 
    <Runtime.InteropServices.DllImport("User32", _
      CharSet:=Runtime.InteropServices.CharSet.Auto, ExactSpelling:=True)> _
    Public Function IsWindowVisible(ByVal hWnd As Integer) As Integer
    End Function
 
    <Runtime.InteropServices.DllImport("User32", _
      CharSet:=Runtime.InteropServices.CharSet.Auto, ExactSpelling:=True)> _
    Public Function ShowWindow(ByVal hWnd As Integer, ByVal nCmdShow As _
    Integer) As Integer
    End Function
 
    <Runtime.InteropServices.DllImport("User32", _
      CharSet:=Runtime.InteropServices.CharSet.Auto, ExactSpelling:=True)> _
    Public Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndParent As _
    IntPtr) As IntPtr
    End Function
 
    <Runtime.InteropServices.DllImport("User32", _
      CharSet:=Runtime.InteropServices.CharSet.Auto, ExactSpelling:=True)> _
    Public Sub SetWindowTextW(ByVal hWnd As Integer, ByVal lpString As String)
    End Sub
    <Runtime.InteropServices.DllImport("User32", _
      CharSet:=Runtime.InteropServices.CharSet.Auto, ExactSpelling:=True)> _
    Public Sub SetWindowPos(ByVal hWnd As Integer, ByVal hWndInsertAfter As _
    Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal _
    cy As Integer, ByVal wFlags As Integer)
    End Sub
 
#End Region

        StartInfo.FileName = "Programmname"
        StartInfo.Arguments = "StartArgument1"
        StartInfo.Arguments = "StartArgument2"
'usw

  Private Sub StartProgramm(ByVal Programm As String, ByVal Seite As TabPage, _
    ByRef ProgrammID As Integer)
      '<übergebene Parameter>
      'Programm = das Programm, das gestartet werden soll
 
      'Seite = die Seite eines TabControls, auf der das Programm angezeigt
       '       werden soll
 
      'ProgrammID = ProzessID des aufgerufenen Programms
      '             ByRef, um mit dem Aufruf des Programms der globalen Variable
      '             intProgrammID die ProzessID zu übergeben
      '             (wird in der Prozdur "Stoppen gebraucht)
      '</übergebene Parameter>
 
      Dim Handle As IntPtr 'MainWindowHandle des gestarteten Programms
 
      'Programm starten
      ProgrammID = Process.Start(Programm).Id
 
      'Warten, bis aufgerufenes Programm ein MainWindowsHandle hat
      Do
          Application.DoEvents()
      Loop Until Process.GetProcessById(ProgrammID).MainWindowHandle <> 0
 
      Handle = Process.GetProcessById(ProgrammID).MainWindowHandle
 
      'DOS-Box in Tabpage einbetten
      SetParent(Handle, Seite.Handle)
 
      'WindowState der DOS-Box auf "normal" setzen
      ShowWindow(Handle, SW_NORMAL)
 
      'DOS-Box auf TabPage zentrieren
      MoveWindow(Handle, 10, 8, 670, 440, True)
  End Sub

      'DOS-Box auf TabPage zentrieren
      MoveWindow(Handle, 10, 8, 670, 440, True)

Gruß
Marcus

Zitat:

Aber: Ich verstehe das Problem nicht:

Public Class frmMain
  'benötigte APIs
  Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As _
    IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
 
  Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, _
    ByVal flag As Integer) As IntPtr
 
  Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Int32, _
    ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal bRepaint As Boolean) As Boolean
 
  'ShowWindow-Konstanten
  Private Const SW_NORMAL As Integer = 1
 
  'ProzessID des eingebetteten fensters merken
  Private intProgrammID As Integer
 
  Private Sub Starten
    StartProgramm("cmd.exe", TabPage1, intProgrammID) 
  End Sub
 
  Private Sub Stoppen
    Try
      Process.GetProcessById(intProgrammID).Kill()
    Catch
    End Try
  End Sub
 
  Private Sub StartProgramm(ByVal Programm As String, ByVal Seite As TabPage, _
    ByRef ProgrammID As Integer)
      '<übergebene Parameter>
      'Programm = das Programm, das gestartet werden soll
 
      'Seite = die Seite eines TabControls, auf der das Programm angezeigt
       '       werden soll
 
      'ProgrammID = ProzessID des aufgerufenen Programms
      '             ByRef, um mit dem Aufruf des Programms der globalen Variable
      '             intProgrammID die ProzessID zu übergeben
      '             (wird in der Prozdur "Stoppen gebraucht)
      '</übergebene Parameter>
 
      Dim Handle As IntPtr 'MainWindowHandle des gestarteten Programms
 
      'Programm starten
      ProgrammID = Process.Start(Programm).Id
 
      'Warten, bis aufgerufenes Programm ein MainWindowsHandle hat
      Do
          Application.DoEvents()
      Loop Until Process.GetProcessById(ProgrammID).MainWindowHandle <> 0
 
      Handle = Process.GetProcessById(ProgrammID).MainWindowHandle
 
      'DOS-Box in Tabpage einbetten
      SetParent(Handle, Seite.Handle)
 
      'WindowState der DOS-Box auf "normal" setzen
      ShowWindow(Handle, SW_NORMAL)
 
      'DOS-Box auf TabPage zentrieren
      MoveWindow(Handle, 10, 8, 670, 440, True)
  End Sub
End Class

      'Programm starten
      ProgrammID = Process.Start(Programm, "argument1 argument2").Id

      Dim psi As New ProcessStartInfo
      With psi
          .FileName = Programm
          .Arguments = "argument1 argument2"
      End With
 
      ProgramID = Process.Start(psi).Id

SendKeys.Send("cd \di")

SendKeys.SendWait("cd \di")

Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Windows.Forms
 
Public Class frmCalculator
    Inherits Form
    Private WithEvents button1 As New Button()
 
    Public Sub New()
        button1.Location = New Point(10, 10)
        button1.TabIndex = 0
        button1.Text = "Click to automate Calculator"
        button1.AutoSize = True
        Me.Controls.Add(button1)
    End Sub
 
    ' Get a handle to an application window. 
    Declare Auto Function FindWindow Lib "USER32.DLL" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As IntPtr
 
    ' Activate an application window. 
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
        (ByVal hWnd As IntPtr) As Boolean
 
    ' Send a series of key presses to the Calculator application. 
    Private Sub button1_Click(ByVal sender As Object, _
        ByVal e As EventArgs) Handles button1.Click
 
        ' Get a handle to the Calculator application. The window class 
        ' and window name were obtained using the Spy++ tool. 
        Dim calculatorHandle As IntPtr = FindWindow("SciCalc", "Rechner")
 
        ' Verify that Calculator is a running process. 
        If calculatorHandle = IntPtr.Zero Then
            MsgBox("Calculator is not running.")
            Return
        End If
 
        ' Make Calculator the foreground application and send it  
        ' a set of calculations.
        SetForegroundWindow(calculatorHandle)
        SendKeys.SendWait("111")
        SendKeys.SendWait("*")
        SendKeys.SendWait("11")
        SendKeys.SendWait("=")
    End Sub
 
 
    ' Send a key to the button when the user double-clicks anywhere  
    ' on the form. 
    Private Sub Form1_DoubleClick(ByVal sender As Object, _
        ByVal e As EventArgs) Handles Me.DoubleClick
 
        ' Send the enter key to the button, which raises the click  
        ' event for the button. This works because the tab stop of  
        ' the button is 0.
        SendKeys.Send("{ENTER}")
    End Sub
 
 
    Private Sub InitializeComponent()
        Me.SuspendLayout()
        '
        'frmCalculator
        '
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Name = "frmCalculator"
        Me.ResumeLayout(False)
 
    End Sub
End Class

Public Class frmNotePad
 
    'Ab hier einfügen
 
    ' Activate an application window. 
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
        (ByVal hWnd As IntPtr) As Boolean
 
    Dim WithEvents btnsenden As New Button With {.Parent = Me, .Text = "Senden"}
 
    Private Sub btnsenden_Click(sender As Object, e As System.EventArgs) _
      Handles btnsenden.Click
 
        Dim p As Diagnostics.Process = Diagnostics.Process.Start("Notepad.exe")
        If p.Handle = IntPtr.Zero Then
            MsgBox("Editor konnte nicht gestartet werden")
        Else
            If Not SetForegroundWindow(p.Handle) Then
                MsgBox("Fenster konnte nicht in den Vordergrund gebracht" & _
                  "werden")
            Else
                Threading.Thread.Sleep(2000)
                SendKeys.Send("Das muß jetzt aber geklappt haben!!!")
            End If
        End If
    End Sub
 
    'Bis hier einfügen 
 
End Class

SendKeys.Send("Das muß jetzt aber geklappt haben!!!")

SendKeys.Send("cd \di")

SendKeys.Send("cd " & Chr(34) & "/di" & Chr(34))

Public Sub StartProgramm(ByVal Programm As String, ByVal Seite As TabPage, _
      ByRef ProgrammID As Integer)
        '<übergebene Parameter>
        'Programm = das Programm, das gestartet werden soll
 
        'Seite = die Seite eines TabControls, auf der das Programm angezeigt
        '       werden soll
 
        'ProgrammID = ProzessID des aufgerufenen Programms
        '             ByRef, um mit dem Aufruf des Programms der globalen 
        ' Variable
        '             intProgrammID die ProzessID zu übergeben
        '             (wird in der Prozdur "Stoppen gebraucht)
        '</übergebene Parameter>
 
        Dim Handle As IntPtr 'MainWindowHandle des gestarteten Programms
 
 
        '********************************************************
        Dim psi As New ProcessStartInfo
        With psi
            .FileName = Programm
            .Arguments = "/k c:\lib\se ts510502 -pts510502"
            .Arguments = "/k c:\lib\se g7sis -pts510502"
 
        End With
 
        ProgrammID = Process.Start(psi).Id
 
        '********************************************************
 
 
        'Warten, bis aufgerufenes Programm ein MainWindowsHandle hat
        Do
            Application.DoEvents()
        Loop Until Process.GetProcessById(ProgrammID).MainWindowHandle <> 0
 
        Handle = Process.GetProcessById(ProgrammID).MainWindowHandle
 
        'DOS-Box in Tabpage einbetten
        SetParent(Handle, Seite.Handle)
 
        'WindowState der DOS-Box auf "normal" setzen
        ShowWindow(Handle, SW_NORMAL)
 
        'DOS-Box auf TabPage zentrieren
        MoveWindow(Handle, -3, -28, 670, 440, True)
 
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles _
      btnStart.Click
 
        StartProgramm("C:\4D\tcc.exe", TabPage1, intProgrammID)
 
        SendKeys.Send("cd \di")
 
    End Sub

Imports System.Diagnostics
 
Public Class frmtest4
 
    'benötigte APIs
    Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As  _
      IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
 
    Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As _
      Integer, _
      ByVal flag As Integer) As IntPtr
 
    Public 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 Boolean) As Boolean
 
    ' Activate an application window. 
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
        (ByVal hWnd As IntPtr) As Boolean
 
    'ShowWindow-Konstanten
    Private Const SW_NORMAL As Integer = 1
 
    'ProzessID des eingebetteten fensters merken
    Private intProgrammID As Integer
 
    Dim tc As New TabControl With {.Parent = Me, .Width = 600, .Height = 650}
 
    Private Sub frmtest4_Load(sender As System.Object, _
                              e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 650 : Me.Height = 680
        tc.TabPages.Add("Test")
        Starten()
    End Sub
 
    Private Sub Starten()
 
        Dim handle As IntPtr
        StartProgramm("cmd.exe", tc.TabPages(0), intProgrammID, Handle)
 
        If Not SetForegroundWindow(handle) Then Stop
 
        SendKeys.Send("Color f0")
        SendKeys.Send("{Enter}")
 
        Dim direc As String = _
           My.Computer.FileSystem.SpecialDirectories.MyPictures
 
        SendKeys.Send("Cd " & direc)
        SendKeys.Send("{Enter}") 
    End Sub
 
    Public Sub StartProgramm(ByVal Programm As String, ByVal Seite As TabPage, _
      ByRef ProgrammID As Integer, ByRef procHandle As IntPtr)
 
        Dim psi As New ProcessStartInfo
        With psi
            .FileName = Programm
        End With
 
        Dim p As Process = Process.Start(psi)
        Threading.Thread.Sleep(1000)
        procHandle = p.MainWindowHandle
        ProgrammID = p.Id
 
        'DOS-Box in Tabpage einbetten
        SetParent(procHandle, Seite.Handle)
 
        'WindowState der DOS-Box auf "normal" setzen
        ShowWindow(CInt(procHandle), SW_NORMAL)
 
        'DOS-Box auf TabPage zentrieren
        Dim mw As Boolean = _
             MoveWindow(procHandle, 0, 0, Seite.Width, Seite.Height, True)
    End Sub
End Class