none
GetExitCodeProcess für ein VBNet-Programm RRS feed

  • Frage

  • Hallo Leute,

    wenn ich folgende Prozedur verwende, um mein VBNet-Programm zu starten und auf das Ende zu warten, friert mein VBNet-Programm immer ein.

    Ansonsten arbeitet diese Prüfroutine immer zuverlässig. Aber eben nicht mit meinem VBNet-Programm.

    Hat einer eine Idee woran das liegen kann?

    Public Function ShellAndWait(Befehl As String, Optional WindowStyle As VbAppWinStyle = vbNormalFocus) As Integer '
          Dim hProcess As Long
          Dim ProcessId As Long
          Dim exitCode As Long
    
    20    ProcessId = Shell(Befehl, WindowStyle)
    30    hProcess = OpenProcess(&H400, False, ProcessId)
    
    40    Do  'Warten auf das Programmende
    50        Call GetExitCodeProcess(hProcess, exitCode)
              '0,5 Sekunden Warten:
    60        DoEvents
    70        Sleep 500
    80    Loop While exitCode = &H103&
    
    90    Call CloseHandle(hProcess)
    
    100   ShellAndWait = exitCode
    
    End Function
    

    Ich möchte z. B. aus VB(A) o. einem anderen VB6-Programm mein Programm starten und die Anwendung solange anhalten, bis das VBNet-Programm beendet ist.

    Vielen Dank für Ihre Hilfe.

    Gruß Ahmed

    Montag, 28. Januar 2013 16:57

Antworten

Alle Antworten