fix

2026-10-06 14:14:43 +02:00
parent ea85aed73d
commit 889ebde5d5
1 changed files with 17 additions and 3 deletions
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -8297,9 +8297,23 @@ repeatRequest:
                            psi.CreateNoWindow = True

                            Using p As Process = Process.Start(psi)
-                                Dim output = p.StandardOutput.ReadToEnd()
-                                Dim err = p.StandardError.ReadToEnd()
-                                p.WaitForExit()
+
+                                Dim outputTask = p.StandardOutput.ReadToEndAsync()
+                                Dim errorTask = p.StandardError.ReadToEndAsync()
+
+                                If Not p.WaitForExit(60000) Then
+                                    Try
+                                        p.Kill()
+                                    Catch
+                                    End Try
+
+                                    Throw New TimeoutException("Der Prozess wurde nach 60 Sekunden beendet." & vbNewLine & "Filename: " & psi.FileName & vbNewLine & "Arguments: " & psi.Arguments)
+
+                                End If
+
+                                Dim output = outputTask.Result
+                                Dim err = errorTask.Result
+

                                If output <> "" Then
                                    Dim tmpPath_Report = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MUSTANG-REPORT_" & rkObj & ".pdf", ".pdf", , False)