Lancer un executable et attendre sa fin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 431 fois - Téléchargée 36 fois

Contenu du snippet

Coller cette source dans un module de code VB6, la fonction LanceApp permet de lancer un executable et d'attendre quelle se termine. Une fois cette tache finie, elle retourne le code exit de l'appli lancée

Source / Exemple :


Public Const INFINITE = &HFFFF
Public Const STARTF_USESHOWWINDOW = &H1

Public Enum enSW
    SW_HIDE = 0
    SW_NORMAL = 1
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
End Enum

Public Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type

Public Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type

Public Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Public Enum enPriority_Class
    NORMAL_PRIORITY_CLASS = &H20
    IDLE_PRIORITY_CLASS = &H40
    HIGH_PRIORITY_CLASS = &H80
End Enum

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

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

Public Function LanceApp(Appli As String, Arg As String, Timeout As Long, ByVal StartSize As enSW, ByVal Priority_Class As enPriority_Class) As Long
    LanceApp = 259
    Dim pclass As Long
    Dim Ret As Long
    Dim cmdline As String
    Dim sinfo As STARTUPINFO
    Dim pinfo As PROCESS_INFORMATION
    Dim sec1 As SECURITY_ATTRIBUTES
    Dim sec2 As SECURITY_ATTRIBUTES
    Dim hMutex As Long
    
    sec1.nLength = Len(sec1)
    sec2.nLength = Len(sec2)
    sinfo.cb = Len(sinfo)
    sinfo.dwFlags = STARTF_USESHOWWINDOW
    sinfo.wShowWindow = StartSize
    pclass = Priority_Class
    
    cmdline = Appli
    If (Len(Trim$(Arg)) > 0) Then
        cmdline = cmdline & " " & Arg
    End If
        
    Debug.Print " cmdLine : " & cmdline

    If CreateProcess(vbNullString, cmdline, sec1, sec2, False, pclass, 0&, CurDir$(), sinfo, pinfo) Then
        Debug.Print " CreateProcess OK"
        Ret = 259
        While (Ret = 259)
            WaitForSingleObject pinfo.hProcess, Timeout
            DoEvents
            If (GetExitCodeProcess(pinfo.hProcess, Ret) = 1) Then
                Debug.Print " GetExitCodeProcess OK"
                LanceApp = Ret
            Else
                Debug.Print " GetExitCodeProcess KO"
            End If
        Wend
    Else
        Debug.Print " CreateProcess KO : " & Err.LastDllError
    End If

End Function

Conclusion :


Utilisation :
LanceApp(App.path & "\monExe.exe", "arg1 arg2", INFINITE, SW_NORMAL, IDLE_PRIORITY_CLASS)

Bonne Prog

@++
Crazyht

A voir également

Ajouter un commentaire

Commentaires

Pilpot
Messages postés
14
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
8 février 2010
-
avec VB6 sp6

+++
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Avec quelle version de VB essaies tu d'utiliser la méthode ?
Pilpot
Messages postés
14
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
8 février 2010
-
LanceApp(App.path & "\hello.exe", "arg1 arg2", INFINITE, SW_NORMAL, IDLE_PRIORITY_CLASS)
Tout d'abord merci pour ton code mais il ne marche pas chez moi. Je suis vraiment un N00b en vb... Il me mets "Expected : =" ou "Syntax Error" !

Meric pour votre aide !!
DeadlyPredator
Messages postés
222
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
30 juin 2008
-
BEN LÀ. ATTEND TOI PAS À AVOIR UN CODE SERVI SUR UN PLATEAU D'ARGENT. IL FAUT FAIRE DES EFFORTS POUR COMPRENDRE. Si il y a toujours des commentaires, on apprend pas à chercher la réponse soi-même.
cs_deedje
Messages postés
8
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
9 août 2003
-
Voilà une source qu'il suffit de copier-coller et qurtout qui marche et encore mieux qui fait ce que j'essaie de faire depuis quelques temps déjà...

Cependant, je ne mets "que" 8/10 parce que Y'en a marre des codes pas commentés : comment voulez-vous qu'on apprenne s'il n'y a pas un minimum de commentaire sur lesquels s'appuyer ?!

Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.