Anwendung starten und warten bis beendet (VB.NET) Dieser Tipp zeigt, wie man eine externe Anwendung starten und dann warten kann, bis diese beendet wurde.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  62.266
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 46 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Startet man in seinem eigenen Programm eine externe Anwendung, läuft die eigene Anwendung im Normalfall weiter und wartet nicht, bis die extern gestartete Anwendung beendet wurde.
Warum auch, wird sich der ein oder andere jetzt sicherlich fragen. Es soll aber hin und wieder den Fall geben, wo die eigene Anwendung warten soll, bis die extern gestartete Anwendung beendet wurde. Beispielsweise könnte man einen Compiler starten und eine Datei kompilieren. Während dieses Vorgangs soll die eigene Anwendung auf keinerlei Benutzeraktionen reagieren, sondern vielmehr warten, bis die Datei kompiliert wurde. Ein anderes Beispiel wäre das "Fernsteuern" von Winzip und und und...

Nachfolgend möchten wir Ihnen eine sehr einfache aber wirkungsvolle Möglichkeit zeigen, wie man eine Anwendung startet und auf deren Ende "wartet", ehe es im eigene "Code" weitergeht.

Dim oProcess As Process
 
' Beispiel: Windows-Editor starten
oProcess = System.Diagnostics.Process.Start("notepad.exe")
 
' Warten, bis der Prozess beendet wurde
oProcess.WaitForExit()
 
' Erst jetzt geht's im eigenen Code weiter...
MsgBox("Anwendung wurde beendet")

Über den optionalen Parameter "milliseconds" kann man beim Aufruf der "WaitForExit"-Methode sogar angeben, wie lange maximal auf die Beendigung des Prozesses gewartet werden soll. Dauert das Ganze bspw. länger als 10 Sekunden, könnte man den "Prozess" selbst beenden, wie nachfolgender Code zeigt.

' Beispiel: Windows-Editor starten
oProcess = System.Diagnostics.Process.Start("notepad.exe")
 
' Warten, bis der Prozess beendet wurde
If oProcess.WaitForExit(10000) = False Then
  ' Anwendung ist immer noch nicht beendet worden
  ' jetzt autom. beenden
  oProcess.Kill()
  MsgBox("Anwendung musste durch das eigene Programm beendet werden!")
Else
  MsgBox("Anwendung wurde beendet")
End If