Attendre l'ouverture d'un programme pour continuer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 353 fois - Téléchargée 97 fois


Contenu du snippet

Comment faire pour attendre qu'un programme soit chargé et continuer l'execution du code après ?

Mettez ce code dans un Module :

Source / Exemple :


Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Long) As Long

' Puis utiliser ce code :

Retour = Shell("calc.exe",1)
Do While IsWindowEnabled(Retour)=0
Loop

A voir également

Ajouter un commentaire

Commentaires

Je n'arrive pas à faire tourner ces quelques lignes de code.
L'ouverture du programme appelé s'effectue normalement, mais le programme Vb plante à l'appel de la fonction.
Marche pas ou manque d'explications...
Pour que le code marche, l'API est en fait Iswindows cela devient donc:Declare Function IsWindow Lib "user32" Alias "IsWindow" ( ByVal hwnd As Long) As Long


Puis
Retour = Shell("calc.exe",1)
Do While IsWindow(Retour)=0
Loop
Je n'ai pas vérifier, mais je crois que ce code ne marche que dans le cas d'un programme qui possèderait une fenêtre principale et ce que l'on utilise iswindow ou iswindowenabled. Donc ce code ne serait pas LA solution ultime.
Je lance 2 progs dans 2 fenêtre MsDos différents et je voudrais que la première soit totalement éxécuter avant de passer à la deuxième. Mais là avec ce programme, ben tout s'arrête dès la première fenêtre ! Help ! 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.