Discussion :

[chris-57]

Bonjour à tous,

voilà près de 2 semaines que je cherche une solution pour fermer proprement un logiciel quelconque.
J'ai fouillé le net avec différents mots clefs, sans succès. J'ai cherché du côté des batch, à partir d'une macro Excel, à partir de Super Macro, pas moyen...

Alors sur les conseils d'un internaute je me tourne vers un langage que je connais peu : le VBScript.

J'ai un logiciel qui tourne en tâche de fond nommé stealthnet (réduit en barre des tâches). Ce logiciel doit absolument être fermé proprement, et non par un kill, car il écrit des données importantes lors de la fermeture.

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 ?


au secours VBScript Kenobi, vous êtes mon seul espoir.


..


NB : demain j'arrête la télé...

[chris-57]

c'est pas faisable ??

[SfJ5Rpw8]

tu as essayé :

Comment simuler l'envoi de caractères vers une application externe ?

[chris-57]

Merci pour le lien. J'avais déjà vu ce code mais je ne sais pas l'adapter à mon cas.

Code :

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

1
2
3
4
Set WshShell = WScript.CreateObject("WScript.Shell")
   WshShell.Run "calc" 
   WScript.Sleep 200
   WshShell.SendKeys " 	{%F4}"

bon ça donnerai un truc comme ça, le problème est que mon logiciel est déjà en service dans la barre des tâches.
Avant de lui envoyer une combinaison clavier, je dois le mettre au premier plan, et ça je trouve pas ...

[SfJ5Rpw8]

Merci pour le lien. J'avais déjà vu ce code mais je ne sais pas l'adapter à mon cas.

Code :

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

1
2
3
4
Set WshShell = WScript.CreateObject("WScript.Shell")
   WshShell.Run "calc" 
   WScript.Sleep 200
   WshShell.SendKeys " 	{%F4}"

bon ça donnerai un truc comme ça, le problème est que mon logiciel est déjà en service dans la barre des tâches.
Avant de lui envoyer une combinaison clavier, je dois le mettre au premier plan, et ça je trouve pas ...

ton logiciel c'est la calculatrice "calc" ?

".Run" c'est pour le lancer .. elle n'est pas déjà lancée ton application ?

relis le code de la et vois si tu arrive à faire "marcher" le

Code :

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

   WshShell.AppActivate "Calculatrice"  '-- Active l'application

pour mettre ton application au premier plan ..(afin qu'elle prenne en compte l'action sur les touches...

[chris-57]

oui oui, comme je le dis au dessus mon application est déjà lancée.
j'ai tenté :

Code :

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

1
2
3
4
Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.AppActivate "stealthnet.exe"
    WScript.Sleep 200
    WshShell.SendKeys "{%F4}"

mais rien ne se passe...