Dialogue entre applications .NET

Question

Salut !
Bon voila j'ai une application qui en lance une autre par le biais de la commande Shell() et l'aimerais que la 2ème appli renvoie un message à la 1ère pour lui permettre de continuer son déroulement.
Je ne peut pas utiliser la propriété Wait de la fonction shell car ma 2ème appli ne se termine pas, elle comporte une boucle infinie. En fait il faudrait que juste avant cette boucle infinie elle dise à la 1ère que tout est bon.

crenaud76 · Answer

Fait des applis client/serveur avec des winsocks

Christophe R.

mastercatz · Answer

J'y avais pensé mais vu que ce ne sont que 2 tout petits programmes je me demandais s'il n'y avais pas un autre moyen sans se servir de winsock. Du genre faire croire à la commande Shell que le programme s'est terminé.

crenaud76 · Answer

Ben non, sinon tu peux dans ton prog appelant, faire un Shell() sans attendre et juste derrière tu rentre dans une boucle du genre de celle-ci :

While Dir("c:	emp\flag.txt")
  DoEvents
Wend
kill "c:	emp\flag.txt"

Et dans l'appli appelée, une fois que tu veus rendre la main à l'appelante, tu fait ca :

open "c:	emp\flag.txt" for output as #1
Close #1

C'est foireux mais ca marche très bien aussi, et ca se met en oeuvre en 6 lignes de code
Christophe R.

mastercatz · Answer

Ah ouais pas mal ^^
En v'la une bonne idée.
J'vais me pencher sur la question :)
Merci beaucoup

cs_labout · Answer

labout
Utilise shellexecute de l'api windows

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVAl hwnd As Long, ByVAl lpOperation As String, ByVAl lpFile As String, ByVAl lpParameters As String, ByVAl lpDirectory As String, ByVAl nShowCmd As Long) As Long

loperation Open

exemple
x = ShellExecute(1, "open", "prog.exe", "", "c:	ruc\, 0)

If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.
Sinon renvoie une valeur négative

@+

crenaud76 · Answer

Non ! Il ne peut pas utiliser ShellExecute() puisqu'il veux que son appli appelante reprenne la main avant que son appli appelée ne se termine !! Ou alors je n'ai rien compris à son PB !!

Christophe R.

cs_labout · Answer

labout
A bon

cs_xon · Answer

Salut Mastercatz,

C'est vrai que la communication inter-processus en VB n'est pas aussi facile qu'en C/C++...

Tu peux utiliser la fonction SendMessage() pour que le 2eme programme envoie un message au 1er programme. Il suffit pour cela que le 1er programme indique (en paramètre lors du lancement du programme) un handle de fenêtre valide. Cela peut être, par exemple, Main.hWnd ou celui d'un bouton de ta forme...

Le prototype de la fonction SendMessage est :

Public Declare Sub SendMessage Lib "user32" Alias "SendMessageA" (byval hWnd as long, ByVal wMsg as Long, wParam as Long, lParam as Long)

Public Const WM_COMMAND As Long = &H111
Public Const WM_LBUTTONDOWN as Long = &H204

Concernant le problème de performance, il est préférable dans ce cas d'utiliser la founction de Timer dans les boucles sans fin, que Do ... Loop While... et d'utiliser la fonction DoEvents

Bon courage...

Xon

mastercatz · Answer

En fait j'ai solutionné mon probleme tout autrement.
J'ai fait en sorte que le programme démarre avec un parametre (prog.exe /start) ce qui a pour effet de lancer une autre occurence du prog mais qui met en marche le prog avec son vrai fonctionnement et qui créé un fichier .pid avec le no du process (avec verrou pour qu'il n'y ai pas d'autre execution). Comme ca je n'ai plus qu'un seul programme et plus de probleme de communication :)
Mais je note quand meme l'API SendMessage, ca poura m'etre utile. Merci beaucoup.

Dialogue entre applications .NET

9 réponses

Discussions similaires