| Rubrik: System/Windows · Prozesse/Tasks | VB-Versionen: VB.NET | 23.06.05 |
 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:   | Views: 61.033 |
| www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
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
