Discussion :

[chris-57]

Bonjour à tous,

je souhaite stopper une application tournant en barre des tâches, cela pour pouvoir la fermer avant un reboot automatique du PC. Ce programme doit être fermé proprement car il enregistre des données essentielles durant cette fermeture.

J'ai cherché une solution du côté du VBscript sans succès. De même j'ai cherché sur google durant des jours...

Existe t'il une solution pour soit fermer automatiquement ce logiciel proprement ?

Sinon y a 'til un moyen de le mettre au premier plan et de programmer un Alt/F4 ?

[Mac LAK]

Avec juste du batch/script, ça ne va pas être simple. Par contre, avec un petit exécutable, tu peux envoyer à l'application un message WM_CLOSE / WM_QUIT, qui est l'équivalent de cliquer sur la case de fermeture (croix rouge), ce qui la fera fermer en sauvegardant les données si elle est correctement programmée, via un petit réglage des options au besoin.

Mais quand la session se ferme, les applications sont normalement prévenues par messages (WM_QUERYSHUTDOWN / WM_SHUTDOWN) et peuvent alors prendre les actions adéquates : si tu as accès au code source de l'application, c'est plutôt de ce côté qu'il faut regarder. Si elle est correctement développée, elle devrait demander quoi faire lors de la fermeture de session ou sauvegarder automatiquement, puis se fermer.

[chris-57]

Salut et merci pour le tuyau

j'ai fais quelques recherches sur la fonction WM_CLOSE et j'ai trouvé ceci en VBA :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
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

ça fonctionne sous excel, j'arrive à fermer ce que je veux.

Est-il possible de transformer ça en executable ?

[maxim_um]

Salut;

Quand Mac LAK fait allusion à un exécutable, il ne parle pas d'une macro ou d'un script VBA interprété, mais bien d'un langage de programmation. Dans la mesure où tu es débutant, et pour faire suite à ce qui a été dit dans le forum VBScript :

Enfin pour répondre à chris-57, un dernier mot sur le "code" VBA ci-dessus. Et bien, sache que c'est un script interprété (une macro), ainsi tu ne peux pas le compiler.

Cela dit, ce serait quand même indécent de ma part de te laisser en plant. Je te poste une solution simple dans le forum Scripts/Batch

Une solution simple serait de faire appel à «taskkill.exe».
Si je prends pour exemple la calculatrice, ça s'écrirait de la manière suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

taskkill /im calc.exe

Bonne continuation.

[chris-57]

salut maxim_um et merci de ton aide.

J'avais déjà trouvé la commande taskkill, mais elle kill le processus et ne permet pas une fermeture "propre".


Quoi qu'il en soit je vais utiliser la commande par Excel car je maitrise bien le VBA et il me sera facile de faire un petit fichier pour fermer mes programmes.

[maxim_um]

J'avais déjà trouvé la commande taskkill, mais elle kill le processus et ne permet pas une fermeture "propre".

Qu'est-ce qui te fait croire ça ?

Enfin, si ça peut te rassurer, tu peux aussi utiliser l'utilitaire «cmdow», il peut être téléchargé depuis son site officiel, sinon sache qu'il est inclus dans le package «com.zip».

Pour la calculatrice, la syntaxe serait succinctement de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cmdow calculatrice /cls