[AppleScript] Fermeture des applications

MV <michel.vauquois@orage.fr.invalid> wrote:

Bonjour,

Re ;)

Peut-on, avec un script AppleScript, provoquer la fermeture de toutes
les applications autres que le Finder (ou même : y compris le Finder) ?

Voui, j'ai ça en stock depuis des années: ça fonctionnait sous Leopard,
et ça continue sous ML. Le lien Dropbox est ici:

<https://dl.dropboxusercontent.com/u/3661239/QaLL.zip>

Merci d'avance.

De rien!
--
Manfred
42° 42' 0" N, 9° 26' 59" E.
iMac Intel Core 2 Duo, OS X 10.8.4.
"I would trade all my technology for an afternoon with Socrates."(S.J.)

Manfred La Cassagnère <derfnam@wanadoo.fr> wrote:

Voui, j'ai ça en stock depuis des années: ça fonctionnait sous Leopard,
et ça continue sous ML. Le lien Dropbox est ici:

Cent quiou... mais c'est un script AppleScript que je cherche pas une
appli !
--
Michel Vauquois
Que Dieu vous garde... Moi j'ai pas le temps (RD)

Bonsoir,

MV <michel.vauquois@orage.fr.invalid> wrote:

Peut-on, avec un script AppleScript, provoquer la fermeture de toutes

voici un script qui, si ma mémoire est bonne, était fourni avec des
exemples de script sous OS 9.2, mais semble marcher encore, du moins
avec mon Tiger.
Ça quitte tout, sauf le Finder lui-même

Il faut parfois le lancer deux fois, s'il tombe sur un process qu'il
n'arrive pas à "tuer" du premier coup
Attention, les fichiers non enregistrés ne le sont pas à la fermeture de
l'appli (à cause du "ignoring ")

***************************

tell application "Finder"
set ThisISMe to name of (path to me)
set Plist to (name of every application process) as list
end tell
repeat with TheApp in Plist
set TheApp to TheApp as text
if TheApp is not ThisISMe then ignoring application responses
tell application TheApp
activate
quit
end tell
end ignoring
end repeat

******************************

Merci d'avance.

avec plaisir,

--
J. B.

In article <1l8ycbi.1njkv1c1cey61qN%michel.vauquois@orage.fr.invalid>,
michel.vauquois@orage.fr.invalid (MV) wrote:

Manfred La Cassagnère <derfnam@wanadoo.fr> wrote:

> Voui, j'ai ça en stock depuis des années: ça fonctionnait sous Leopard,
> et ça continue sous ML. Le lien Dropbox est ici:

Cent quiou... mais c'est un script AppleScript que je cherche pas une
appli !

Un truc du genre :

tell application "System Events"
set appList to name of every application process ¬
whose visible is true and name is not "Finder"
end tell
repeat with cApp in appList
quit application cApp
end repeat

Patrick
--
Patrick Stadelmann <Patrick.Stadelmann@unine.ch>

In article <1l8ydmt.1x79zn21wuv3o7N%josephb@nowhere.invalid>,
josephb@nowhere.invalid (Joseph B) wrote:

Attention, les fichiers non enregistrés ne le sont pas à la fermeture de
l'appli (à cause du "ignoring ")

Ca ne devrait pas. Le "ignoring" indique au script de ne pas attendre la
réponse de l'application, mais l'application se comportera comme si on
avait fait une demande de fermeture normale.

Patrick
--
Patrick Stadelmann <Patrick.Stadelmann@unine.ch>

Joseph B <josephb@nowhere.invalid> wrote:

voici un script qui, si ma mémoire est bonne, était fourni avec des
exemples de script sous OS 9.2, mais semble marcher encore, du moins
avec mon Tiger.

À enregistrer comme application, ça marche mieux.
En effet, sous forme de script, si l'éditeur de script n'est pas le
dernier de la liste des process, il est quitté avant d'avoir tout fermé.

Voici une version "script" qui contourne le pb, si l'on y tient
absolument.

******************

tell me
set ScrpEdit to name of me -- "Script Editor"
end tell
tell application "Finder"
set ThisISMe to name of (path to me)
set APPlist to (name of every application process) as list
end tell
repeat with TheApp in APPlist
set TheApp to TheApp as text
if TheApp is not ThisISMe and TheApp is not ScrpEdit ¬
then ignoring application responses
tell application TheApp
activate
quit
end tell
end ignoring
end repeat
tell application ScrpEdit
ignoring application responses
quit
end ignoring
end tell

**********************
--
J. B.

Patrick Stadelmann <Patrick.Stadelmann@unine.ch> wrote:

Ca ne devrait pas. Le "ignoring" indique au script de ne pas attendre la
réponse de l'application, mais l'application se comportera comme si on
avait fait une demande de fermeture normale.

Oui, autant pour moi ;-)
--
J. B.

Joseph B <josephb@nowhere.invalid> wrote:

tell me
set ScrpEdit to name of me -- "Script Editor"
end tell
tell application "Finder"
set ThisISMe to name of (path to me)
set APPlist to (name of every application process) as list
end tell
repeat with TheApp in APPlist
set TheApp to TheApp as text
if TheApp is not ThisISMe and TheApp is not ScrpEdit ¬
then ignoring application responses
tell application TheApp
activate
quit
end tell
end ignoring
end repeat
tell application ScrpEdit
ignoring application responses
quit
end ignoring
end tell

Marche pas non plus... Où se trouve talagent me demande l'Éditeur
AppleScript.
--
Michel Vauquois
Que Dieu vous garde... Moi j'ai pas le temps (RD)

Joseph B <josephb@nowhere.invalid> wrote:

***************************

tell application "Finder"
set ThisISMe to name of (path to me)
set Plist to (name of every application process) as list
end tell
repeat with TheApp in Plist
set TheApp to TheApp as text
if TheApp is not ThisISMe then ignoring application responses
tell application TheApp
activate
quit
end tell
end ignoring
end repeat

******************************

Marche pas... Une fenêtre dans l'Éditeur AppleScript apparaît me
demandant où est talagent...
--
Michel Vauquois
Que Dieu vous garde... Moi j'ai pas le temps (RD)

Patrick Stadelmann <Patrick.Stadelmann@unine.ch> wrote:

Un truc du genre :

tell application "System Events"
set appList to name of every application process ¬
whose visible is true and name is not "Finder"
end tell
repeat with cApp in appList
quit application cApp
end repeat

Une merveille de concision et surtout d'une efficacité rare sauf s'il y
a des fichiers non enregistrés en cours d'élaboration.
Un petit souci également avec OpenOffice.
Je regarde ça de plus près d'ici demain.
--
Michel Vauquois
Que Dieu vous garde... Moi j'ai pas le temps (RD)