externes programm schließen

Hallo,
ich hab gestern schonmal gepostet, komm aber mit dem Link nicht ganz klar, da ich ein ziemlicher VBA Anfänger bin.
Folgendes Problem. Wie kann ich eine externe Anwendung (Simulationsprogramm) wieder schließen, die zuvor mit der shell Funktion gestartet habe? Es ist jedoch wichtig, dass die Anwendung vor dem schließen vollständig ausgeführt wurde. Am Ende des Simulationslauf erscheint neben dem DOS Fenster immer noch die Meldung "Programm Terminated with exid code 0 - Exit Window? Ja/Nein.
Da ich etliche tausend Läufe habe, muss ich das Fenster auf jedenfall schließen können!
Wer hat mir einen Tipp bzw. den passenden Code, da ich leider mit ein paar Stichwörtern wahrscheinlich nicht so viel anfangen werde! Am besten Programm öffnen (ausführen), überprüfen ob fertig und dann schließen.
Hier mein bisheriger Code:
Option Explicit
Private Declare


Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessID As Long) As Long
Private Declare 

Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare 

Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long


Sub Test1()
Dim hProcess As Long
Dim ProcessId As Long
Dim exitCode As Long
ProcessId = shell("C:\SUNDI\SUNDIMK1", vbNormal)
hProcess = OpenProcess(&H400, False, ProcessId)
Do
Call GetExitCodeProcess(hProcess, exitCode)
DoEvents
Loop While exitCode = &H103&
Call CloseHandle(hProcess)
End Sub



Es fehlt doch jetzt nur noch der Befehl, das Programm zu schließen?

Vielen Dank im Voraus!

MFG Jo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function TerminateProcess Lib "kernel32" (ByVal _ hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal _ dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal _ dwProcessID As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As _ Long) As Long Const PROCESS_TERMINATE = &H1 Private ProcessId As Long Private ProcessId_Exit As Long Private RetVal As Variant Sub Test3() ProcessId = shell("D:\app\fcit\kpro46de\rkern\kprohaup.exe", vbNormalFocus) 'Shell startet das ausgewählte Programm. ProcessId_Exit = OpenProcess(PROCESS_TERMINATE, 0&, ProcessId) 'Mit dieser Funktion erhalten Sie das Object-Handle auf den 'aktiven Prozess. RetVal = TerminateProcess(ProcessId_Exit, 1&) 'Mit der TerminateProcess Funktion können Sie den ausgewählten 'Prozess und all seine Threads (falls vorhanden) beenden. RetVal = CloseHandle(ProcessId_Exit) 'Hier wird das Handle wieder geschlossen. End Sub Das Problem ist jetzt noch, dass das Programm sofort wieder geschlossen wird. Ich möchte aber sicher sein, dass das Programm vollständig zuende gerechnet hat. Ein Timer wäre evt. eine Möglichkeit, wird aber zu einer sehr langen Simulationszeit führen (8760 Läufe) wenn ich eine Zeitspanne wähle bei der ich sicher sein kann dass das Programm zuende rechnet. Gibt es denn ein Funktion, die wartet bis die externe Anwendung fertig ist und sie dann erst schließt? Vielen Dank! Mfg Jo

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Programm() Dim Zähler As Byte Prüfe_Nochmal: If Prüfe("Name Fenstertitel") = False Then Sleep (1000) Zähler = Zähler + 1 If Zähler > 10 Then GoTo Anwendungsfehler: GoTo Prüfe_Nochmal End If 'hier eine SendKeys Anweisung ablaufen Lassen 'siehe Hilfe SendKeys Exit Sub Anwendungsfehler: MsgBox "Zeit abgelaufen" End Sub Function Prüfe(Fenster As String) As Boolean On Error GoTo fehler AppActivate Fenster Prüfe = True Exit Function fehler: Prüfe = False End Function

Hallo Tino,
vielen Dank für deine Antwort. Es ist glaube ich nur leider nicht exakt das was ich suche. Nach Beendigung der Exe geht zwar ein Fenster zum Bestätigen auf ( "Programm Terminated with exid code 0 - Exit Window? Ja/Nein"), dies ist ja aber verbunden mit der Exe. Im Task Manager habe ich nur die Exe der Anwendung die ich schließen muss. Ideal wäre es wenn die Funktion überprüfen würde ob die Anwendung fertig ist (z.B. alle paar msec) und sie dann gleich schließen würde. Andernfalls brauch ich etliche Stunden für meine Simulation.
Ich bekomm die Anwendung ja schon geschlossen (siehe Code) nur eben zu früh nehm ich an!
Werde aber dennoch mal deinen Code ausprobieren!
Noch jemand einen Tipp?
Mfg Jo

Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Makro2() ' Makro2 Makro Dim shell Dim Zähler As Byte Set shell = CreateObject("WScript.Shell") shell.Run "D:\app\fcit\kpro46de\rkern\kprohaup.exe" Prüfe_Nochmal: If Prüfe("D:\app\fcit\kpro46de\rkern\kprohaup.exe") = False Then Sleep (1000) Zähler = Zähler + 1 If Zähler > 10 Then GoTo Anwendungsfehler: GoTo Prüfe_Nochmal End If SendKeys "J", True 'hier eine SendKeys Anweisung ablaufen Lassen 'siehe Hilfe SendKeys Exit Sub Anwendungsfehler: MsgBox "Zeit abgelaufen" End Sub Function Prüfe(Fenster As String) As Boolean On Error GoTo fehler AppActivate Fenster Prüfe = True Exit Function fehler: Prüfe = False End Function Wäre super, wenn du nochmals drüber schauen könntest! MFG Kretschi

Sub Makro2() ' Makro2 Makro Dim shell Dim Zähler As Byte Set shell = CreateObject("WScript.Shell") shell.Run "D:\app\fcit\kpro46de\rkern\kprohaup.exe" Prüfe_Nochmal: If Prüfe("D:\app\fcit\kpro46de\rkern\kprohaup.exe") = False Then Sleep (1000) Zähler = Zähler + 1 If Zähler > 10 Then GoTo Anwendungsfehler: GoTo Prüfe_Nochmal End If Application.SendKeys "J", True Application.SendKeys "{Return}", True 'hier eine SendKeys Anweisung ablaufen Lassen 'siehe Hilfe SendKeys Exit Sub Anwendungsfehler: MsgBox "Zeit abgelaufen" End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread