Fermeture application par visual basicRésolu

Question

Bonsoir,
Avec visual basic je lance un fichier Html par firefox avec l'instruction Shell
    Set Exec = CreateObject("WScript.Shell")
    Url = "SRD.html"
    Exec.Run "firefox.exe " & Url, 0, True
Ensuite je voudrais que l'application firefox disparaisse. Quelles instructions dois je utiliser pour faire cela
Merci d'avance de votre réponse
Michel



MS

sacotte · Accepted Answer

Le code répond parfaitement à ma question
Merci

MS

LUSTRUCRU · Answer

Bonsoir,
Voici un bout de code qui fonctionne et qui je pense peut aider


Public
Class Form1



Private



Declare



Function
 FindWindow 

Lib



"user32"



Alias



"FindWindowA"
 (

ByVal
 lpClassName 

As



String
, 

ByVal
 lpWindowName 

As



String
) 

As



Integer








Private



Declare



Function
 PostMessage 

Lib



"user32"



Alias



"PostMessageA"
 (

ByVal
 hWnd 

As



Integer
, 

ByVal
 wMsg 

As



Integer
, 

ByVal
 wParam 

As



Integer
, 

ByVal
 lParam 

As



Integer
) 

As



Integer

Private



Const
 WM_CLOSE = &H10


Private



Sub
 Button1_Click(

ByVal
 sender 

As
 System.Object, 

ByVal
 e 

As
 System.EventArgs) 

Handles
 Button1.Click


Dim
 hWnd 

As



Long

hWnd = FindWindow(vbNullString, 

"TON PROGRAMME"
)


If
 hWnd <> 0 

Then

Call
 PostMessage(hWnd, WM_CLOSE, 0, 0)


Else

MsgBox(

"Cette application n'est pas ouverte."
)


End



If
   
End



SubEnd





Class

 Bon courage,
JF

Fermeture application par visual basic

2 réponses

Votre réponse