Fermer un logiciel quelconque

[Chris57]

Bonjour à tous,

je cherche le moyen de fermer un logiciel tournant en tâche de fond à travers une macro Excel.
En effet en ligne de commande il semble que ce soit impossible...

J'ai testé cette commande trouvée sur le forum :

Sub FermerUneApplication()
    'Nécessite d'activer la référence "Microsoft WMI Scripting Library"
    Dim objProcess As WbemScripting.SWbemObject
    Dim colProcessList As WbemScripting.SWbemObjectSet
    Dim objWMIService As WbemScripting.SWbemServices
    Dim strComputer As String
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'monprog.exe'")
    
    For Each objProcess In colProcessList
        objProcess.Terminate
    Next
End Sub

elle fonctionne mais ne ferme pas normalement l'application. Elle force la fermeture et cela me fait perdre des données qui sont écrites si l'application est fermée normalement.

quelqu'un a une idée?

 

[Chris57]

Re : Fermer un logiciel quelconque

oui oui, j'avais bien mis vbs. Si je retombe sur un de ces scripts je te le post.

 

[Chris57]

Re : Fermer un logiciel quelconque

bon après 5 semaines de recherches j'ai enfin trouvé :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_CLOSE = &H10

Private Sub Form_Load()

    Dim hWnd As Long

    hWnd = FindWindow(vbNullString, "Calculatrice")
    If hWnd <> 0 Then
        Call PostMessage(hWnd, WM_CLOSE, 0, 0)
    Else
        MsgBox "Impossible de trouver la fenêtre !", vbExclamation
    End If

End Sub

 

[Chris57]

Re : Fermer un logiciel quelconque

ou sinon en batch il y a simplement :

taskkill /im StealthNet.exe

qui contrairement à ce qu'on peu croire ne tue pas le processus mais réalise une fermeture normale.

 

[MJ13]

Re : Fermer un logiciel quelconque

Bonjour Chris57

Merci de nous faire partager tes recherches.

 

[Chris57]

Re : Fermer un logiciel quelconque

bin.. c'est fait...