SHELLANDWAIT - EXECUTER UNE APPLICATION, ATTENDRE LA FIN, ET RENVOYER SON CODE D
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
1 déc. 2005 à 14:23
SgtKabukinan Messages postés 106 Date d'inscription lundi 20 septembre 2004 Statut Membre Dernière intervention 23 janvier 2010 - 17 nov. 2009 à 15:34
SgtKabukinan Messages postés 106 Date d'inscription lundi 20 septembre 2004 Statut Membre Dernière intervention 23 janvier 2010 - 17 nov. 2009 à 15:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34867-shellandwait-executer-une-application-attendre-la-fin-et-renvoyer-son-code-de-retour
https://codes-sources.commentcamarche.net/source/34867-shellandwait-executer-une-application-attendre-la-fin-et-renvoyer-son-code-de-retour
17 nov. 2009 à 15:34
rien à redire, fonctionne du premier coup
10 mars 2009 à 14:13
Merci Renfield !
25 juil. 2007 à 10:23
Merci.
25 juin 2007 à 10:03
if ExecCmd ("c:\monapplication.exe", "-x -y") = 0 then
24 juin 2007 à 16:17
24 juin 2007 à 16:02
if ExecCmd ("c:\monapplication.exe") = 0 then
msgbox "ok"
else
msgbox "non"
end if
et si c'est ca , comment je lui passe des paramatres :
ExecCmd ("c:\monapplication.exe -x -y") ??
24 juin 2007 à 15:55
24 juin 2007 à 15:52
stp je suis nouveau sur vb excusez moi
je voulais juste savoir si c'est avec ce module qu'on va recuperer la valeur de retour d'un executable lancé depuis vb !
j'ai une application qui retourne 0 si tout marche bien sinon elle retourne >0 si erreur
je voudrai savoir comment faire ca svp ! j'en ai vraiment besoin
21 oct. 2006 à 13:21
Visual Basic 2005 (c'est renseigné dans MSDN LIBRARY en français) ...
Public Shared Function gowr(ByVal prog As String, ByVal param As String) As String
Dim procID As Integer
Dim newProc As Diagnostics.Process
newProc = Diagnostics.Process.Start(prog, param)
procID = newProc.Id
newProc.WaitForExit()
Dim procEC As Integer = -1
If newProc.HasExited Then
procEC = newProc.ExitCode
End If
MsgBox("Process with ID " & CStr(procID) & _
" terminated with exit code " & CStr(procEC))
gowr = CStr(procEC)
End Function
MERCI & BYE.
15 mars 2006 à 11:56
15 mars 2006 à 11:39
Sinon Mailto ne permet pas d'ajouter de piece jointes (à ma connaissance).
15 mars 2006 à 11:11
15 mars 2006 à 11:09
pour ta dll, je pense qu'il faut regarder du coté de Rundll32.exe
15 mars 2006 à 09:50
Depuis Windows lorsque l'on fait clique droit sur un fichier :
Envoyer vers >> Destinataire
Le fichier est mis en pièces jointes dans un email.
J'ai regardé dans le dossier SendTo, le fichier qui gère ça est un fichier de type .MAPIMAIL ne contenant aucune données (0 octets).
Il se produit la même chose lorsque l'on fait un drag drop sur ce fichier .MAPIMAIL
J'ai donc essayé de faire :
Call ExecCmd("Lettre:/Chemin/Toto.MAPIMAIL " & CheminDunFichier)
Mais cela ne fonctionne pas.
Mes recherches dans la base de registre ont été infructueuses.
Je n'ai trouvé qu'une référence à une DLL
C:\WINDOWS\system32\sendmail.dll
Est-il possible de faire ce que j'essaie de faire ? Si oui quelle commande executer ?
Merci d'avance
15 mars 2006 à 09:34
que cherches tu a faire ?
(pour lancer un programme depuis VB, au choix, Shell, ou l'API ShellExecute)
15 mars 2006 à 09:25
23 janv. 2006 à 14:34
le nom du flag de SHELLEXECUTEINFOA ( SEE_MASK_NOCLOSEPROCESS) a pourtant un nom qui aurait du me faire tilter plus tôt
Merci BruNews
23 janv. 2006 à 14:21
un "warning" sur MSDN serait de bon gout...
ou est-ce implicite et seulement moi qui suis en cause ?
bref, quoi qu'il en soit, merci pour l'info.
23 janv. 2006 à 13:33
23 janv. 2006 à 13:19
donc, systématiquement, ShellExecuteEx -> CloseHandle ??
23 janv. 2006 à 13:00
Tu pourrais vouloir faire un OpenProcess avec le handle ou que sais-je encore, tout est envisageable.
23 janv. 2006 à 12:32
Qu'est-ce qui fait qu'il faille appeler le CloseHandle nous même ?
23 janv. 2006 à 12:24
Derrière GetExitCodeProcess, il manque:
CloseHandle tShellExInfo.hProcess
21 déc. 2005 à 12:00
Merci
Bonne prog
++
21 déc. 2005 à 09:54
desolé d'avoir ajouté ce parametre entre les duex, mais a mon sens, modifier le TimeOut, est quelque chose de rare, ou au moins moins évident que la visibilité de la fenêtre...
bonne journée ^^
21 déc. 2005 à 09:40
On peux donc y modifier des champs. J'attends la fin, je controle le CRC et vérifie si mon fichier a été modifié.
Sinon, pour mon problème d'affichage d'Acrobat. J'ai voulu passé la valeur vbNormalFocus comme tu me l'as dis et là... je me suis rendu compte que je n'avais pas modifié mon appel de la procédure à la suite de la dernière MAJ de Renfield. J'avais donc un truc du genre :
Call ExecCmd(sArchive, , 1000)
Il y avait un argument de moins dans l'ancienne. Je passais donc 1000 à vnShowCmd. J'ai rajouté une virgule et maintenant c'est OK.
Merci.
21 déc. 2005 à 08:28
21 déc. 2005 à 08:25
20 déc. 2005 à 18:02
PS : Je suis sous Acrobat 5 (pas le Reader).
20 déc. 2005 à 17:41
20 déc. 2005 à 17:40
Encore mieux bravo Renfield ;)
++
20 déc. 2005 à 17:35
possibilité de faire simplement :
ExecCmd App.Path & "\MonDocument.doc"
20 déc. 2005 à 16:45
Eh je pense que ce serait plus simple dans ton cas d'utiliser ShellExecute, et de faire un OpenProcess suivi d'un loop until StillActive...
Si ShellExecute ne te permet pas de recuper le Pid du processus lance, tu peux garder la methode de ReynField mais avec Cmd...
Ex:
Exec "Cmd /C Start /W " & File
Normalement Start fait appel a ShellExecute...
++
20 déc. 2005 à 16:37
Et le Me.Enable = True n'a rien à faire là...
20 déc. 2005 à 16:34
Sinon, j'ai une autre question. Quand je veux lancer un fichier avec le prog associé j'utilise le code suivant :
CommandeShell = BDR_Lire("HKEY_CLASSES_ROOT\." & FileExtension & "")
CommandeShell = BDR_Lire("HKEY_CLASSES_ROOT" & CommandeShell & "\Shell\open\command")
CommandeShell = Replace$(CommandeShell, Chr$(34), "")
CommandeShell = Replace$(CommandeShell, "%1", sArchive)
Call ExecCmd (CommandeShell)
Me.Enabled = True
Sauf qu'avec les documents Word cela ne fonctionne pas car par de %1 dans la commande. Quelqu'un connait-il la commande à executer ?
20 déc. 2005 à 16:14
C'est tout à fait normal, et ta solution est bonne.
20 déc. 2005 à 16:08
En fait j'avais déjà un code qui fait la même chose, sauf qu'à chaque fois que je fermait l'appli lancée (Calc.exe par ex) mon soft principal plantait.
Avec ton code : NIKEL. Merci pour ce fameux code. 10/10
Par contre, une chose bizare. Si j'ai
Private Sub Form_Load()
ExecCmd "Calc.exe"
MsgBox "Calculatrice fermée"
End Sub
Le code reste bien bloqué avant MsgBox "Calculatrice fermée".
Mais le reste de la feuille est utilisable... Je suis obligé de faire :
Private Sub Form_Load()
Me.Enable = False
ExecCmd "Calc.exe"
Me.Enable = True
MsgBox "Calculatrice fermée"
End Sub
2 déc. 2005 à 11:58
2 déc. 2005 à 11:39
---------------------------------------------------------------
Citation:
"pour t'en convaincre, met en place la modification que tu propose
et met ce code dans le Form_Load
Private Sub Form_Load()
Me.Show
DoEvents
ExecCmd "Calc.exe"
MsgBox "Calculatrice fermée"
End
End Sub
Lance le programme, et déplace la calculatrice... "
---------------------------------------------------------------
Eh wai j'avais deja teste, et je vois ce que tu veux dire, apres c'est une question de choix... Dans un code sans "interface" je pense qu'il est preferable d'utiliser "ma modif" ou dans un sub main par exemple...
Sinon pour le probleme du Temps de timing, bah ca depend des cas... si vous lancez une operation qui ne doit durer que quelque diziemes de secondes, et que vous devez l'executer une vaingtaine de fois, vaut mieux mettre un interval tres court, et inversement...
Sinon un bon moyen de mettre tout le monde d'accord, serait de mettre un argument supplementaire...
Exemple:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function ExecCmd(ByRef vsCmdLine As String, Optional ByRef vsCurrentDirectory As String = vbNullString, Optional byval Time_Out as long) As Long
Dim Proc As PROCESS_INFORMATION
Dim sa As SECURITY_ATTRIBUTES
Dim start As STARTUPINFO
sa.nLength = Len(sa)
sa.bInheritHandle = 1&
sa.lpSecurityDescriptor = 0&
start.cb = Len(start)
If CreateProcessA(0&, vsCmdLine, sa, sa, 1&, NORMAL_PRIORITY_CLASS, 0&, vsCurrentDirectory, start, Proc) Then
if TimeOut > 0 then
Do While WaitForSingleObject(Proc.hProcess, TimeOut) = WAIT_TIMEOUT
DoEvents
Loop
else
WaitForSingleObject Proc.hProcess, &HFFFFFFFF
end if
GetExitCodeProcess Proc.hProcess, ExecCmd
CloseHandle Proc.hThread
CloseHandle Proc.hProcess
Else
ExecCmd = vbError
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sinon en effet le ShellWait est bien connu sous plusieurs methodes, mais la tienne je n'y avait jamais pense, et c'est la plus "propre" que j'ai vu! donc Bravo!
++
2 déc. 2005 à 09:50
Merci pour cette précision, Patrice99, je pense que ce genre de code est présent au moins 40 fois sur le Net, je n'ai fait que fournir ma version de la chose, sur VbFrance, la demande étant récurrente - d'où le "esperons qu'elle soit vue" de DarkSidious.
Merci Bidoch78, voilà donc le pourquoi du comment ^^
2 déc. 2005 à 09:41
Pour VB6 c'est byref par défaut
Pour VB.NET c'est byval par défaut
2 déc. 2005 à 08:35
http://patrice.dargenton.free.fr/CodesSources/Snap2Pdf.vbp.html#4
2 déc. 2005 à 06:18
Espèrons que ton code puisse servir (et surtout soit vu) à tout ceux qui posent la question sur le forum !
DarK Sidious
1 déc. 2005 à 16:17
le DoEvents permet juste a l'appli de garder la tête hors de l'eau, et ne pas devenir toute blanche, avec un joli message "[pas de réponse]" dans la barre de titre...
le choix d'utiliser 200 comme TimeOut est lui purement arbitraire.
pour t'en convaincre, met en place la modification que tu propose
et met ce code dans le Form_Load
Private Sub Form_Load()
Me.Show
DoEvents
ExecCmd "Calc.exe"
MsgBox "Calculatrice fermée"
End
End Sub
Lance le programme, et déplace la calculatrice...
1 déc. 2005 à 15:58
Pas yep pas mal, mais si on part du principe que l'on attend que le processus soit fini, autant mettre seulement:
WaitForSingleObject Proc.hProcess, &HFFFFFFFF
au lieu de faire une boucle:
Do While WaitForSingleObject(Proc.hProcess, 200) = WAIT_TIMEOUT
DoEvents
Loop
Qui selon l'execution que l'on lance, risque de faire des milliers d'appels WaitForSingleObject "inutilement" non ?
Pour info &HFFFFFFFF correspond a INFINITE_TIME_OUT
++
1 déc. 2005 à 15:13
rectification très utile! thx
et 10/10 pour le code.
++
PCPT [AFCK]
1 déc. 2005 à 15:02
le test est facile :
Private Sub Form_Load()
Dim b As Integer
b = 1
Incrementer b
MsgBox b
End Sub
Private Sub Incrementer(a As Integer)
a = a + 1
End Sub
affiche 2
1 déc. 2005 à 14:57
(je crois bien que c'est ByVal par défaut)
1 déc. 2005 à 14:39
(Byval fais une copie, donc légerement plus lourd)
Byref se met par défault, mais là, c'est clair ! ^^
le code de retour est 0 pour la plupart des application : il indique que tout c'est bien passé. Libre a chacun de renvoyer des codes de retour différents...
cas concret :
ExecCmd lance une application, qui fait un traitement sur une base de données.
selon le code de retour, je sais si l'opération s'est bien déroulée, et peut agir en conséquence.
1 déc. 2005 à 14:23
ByRef? pourquoi?
et qu'apporte le retour de ExecCmd puisque fermé à la récupération? (donc 0?!)
(pas noté)
PCPT [AFCK]