Dim ProcID As Integer = Shell(_CompressorPfad, AppWinStyle.Hide)
    Dim WindowHandle As System.IntPtr = GetWindowHandle("Programmname")
 
    If Not WindowHandle.Equals(IntPtr.Zero) Then
      AppActivate(ProcID)
 
      Dim VorherigesHandle As IntPtr = GetChildWindowHandle(WindowHandle, _
        "Browse")
      Dim TextboxHandle As IntPtr = GetWindow(VorherigesHandle, _
      GetWindow_Cmd.GW_HWNDNEXT)
      If Not TextboxHandle.Equals(IntPtr.Zero) Then
        SetFocus(TextboxHandle)
 
        'Wie kann ich die Textbox jetzt füllen???
 
      End If
 
      Dim ButtonHandle As IntPtr = GetChildWindowHandle(WindowHandle, "Start")
      If Not ButtonHandle.Equals(IntPtr.Zero) Then
        SetFocus(ButtonHandle)
        SendMessage(ButtonHandle, WM_LBUTTONDOWN, 0, IntPtr.Zero)
        SendMessage(ButtonHandle, WM_LBUTTONUP, 0, IntPtr.Zero)
 
        Do
        Loop Until IsWindowEnabled(ButtonHandle) = True
        Process.GetProcessById(ProcID).Kill()
        Ret = NeuPDF
      End If
    End If

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7