Archives actuelles avec moteur de recherche
N'hésitez pas à vous inscrire à la liste : http://listes.patpro.net/mailman/listinfo/applescript_fr
Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle
De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : lundi 15 janvier 2001 6:00
Objet : applescript_fr Digest #98
Liste AppleScript francophone Digest #98
1) Re: test de connection reseau
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
2) Re: test de connection reseau
by patpro <patpro@xxxxxxx.net>
3) Re: test de connection reseau
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
4) Re: test de connection reseau
by <rmentre@xxxxxxx.fr>
5) Re: test de connection reseau
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
6) Re: test de connection reseau
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
7) Re: test de connection reseau
by patpro <patpro@xxxxxxx.net>
8) Re: test de connection reseau
by patpro <patpro@xxxxxxx.net>
9) Re: test de connection reseau
by Michaël <mic3d@xxxxxxx.com>
10) Re: ca marche (was) [AS] Re: test de connection reseau
by patpro <patpro@xxxxxxx.net>
11) Script pour Cyber-Loterie
by Michaël <mic3d@xxxxxxx.com>
12) Re: Script pour Cyber-Loterie
by Michaël <mic3d@xxxxxxx.com>
13) Re: test de connection reseau
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
14) Re: test de connection reseau
by patpro <patpro@xxxxxxx.net>
15) Re: test de connection reseau
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
16) Alias créé à partir de variables
by Georges Schell <gs@xxxxxxx.com>
17) Sous-Dossiers
by Emmanuel KOPP <emmanuel.kopp@xxxxxxx.fr>
18) Re: Sous-Dossiers
by patpro <patpro@xxxxxxx.net>
19) Re: Sous-Dossiers
by Jean-Marie Hoornaert <jean.marie.hoornaert@xxxxxxx.be>
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Sun, 14 Jan 2001 15:19:52 +0100 Objet : [AS] Re: test de connection reseau patpro wrote: > > On Thursday, January 11, 2001, at 09:57 PM, Leclaire Thomas wrote: > > > donc ma question est que je n'ai pas trouvé de commandes qui pourraient > > me faire ca dans ce que j'ai donc si qelqu'un a une (ou plusieurs!) > > idées, elle(s) est(sont) la (les!) bienvenues! > > un petit lien vaut mieux qu'un long discours : > > http://www.osaxen.com/index.php3?id=tcpip_scripting_addition merci, pas mal mais y a rien de plus recent? (ca date d'il y a pres de 2 ans!) sinon Peut-on faire un log sous la forme d'un fichier texte (ou extrait de texte) sans passer par une application, juste via le finder ou uen osax?? -- Leclaire Thomas http://www.peltre.fr.st/ http://www.inventilor.ovh.org/ Think Different.
De : patpro <patpro@xxxxxxx.net> Date : Sun, 14 Jan 2001 15:38:47 +0100 Objet : [AS] Re: test de connection reseau On Sunday, January 14, 2001, at 03:19 PM, Leclaire Thomas wrote: > > http://www.osaxen.com/index.php3?id=tcpip_scripting_addition > merci, pas mal mais y a rien de plus recent? (ca date d'il y a pres de 2 ans!) malheureusement non, il semble que Mango tree software n'existe plus, puisque leur site n'est plus mis à jour depuis 1999 > sinon Peut-on faire un log sous la forme d'un fichier texte (ou extrait > de texte) sans passer par une application, juste via le finder ou uen osax?? délicat...je vois pas trop comment faire, cette OSAX est la seule que je connaisse a posseder autant de fonctions TCP/IP. les autres se limite en général aux changements de configurations... patpro -- "rien ne se perd, rien ne se crée, tout s'empile" - Mon bureau -
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Sun, 14 Jan 2001 15:47:26 +0100 Objet : [AS] Re: test de connection reseau patpro wrote: > > sinon Peut-on faire un log sous la forme d'un fichier texte (ou extrait > > de texte) sans passer par une application, juste via le finder ou uen osax?? > > délicat...je vois pas trop comment faire, cette OSAX est la seule que je connaisse a posseder autant de fonctions TCP/IP. > les autres se limite en général aux changements de configurations... euh je voulais dire faire un log de valeur que l'on a obtenu. on recupere les valeurs (ici le numero ip) avec tcpip_scripting_addition puis avec une autre osax ou commande du finder on fait un fichier txt ou sont insérés les valeurs. et ce que je voudrais savoir c'ets si il existe une autre osax ou commande du finder qui sache faire ca. -- Leclaire Thomas http://www.peltre.fr.st/ http://www.inventilor.ovh.org/ Think Different.
De : <rmentre@xxxxxxx.fr> Date : Sun, 14 Jan 2001 15:58:53 +0100 Objet : [AS] Re: test de connection reseau Pour le moment,j'utilise,sur les conseils judicieux:-) de Patpro,l'OSAX de Mango Tree qui marche tré bien.si tu colles ton IP avec dans le presse papier,je ne vois pourquoi tu aurais besoin d'une OSAX particulière pour appeler Simple text par exemple et coller le contenu du presse papier.Ça devrait donner quelque chose comme ça: set the clipboard to (tcp my address) tell app "Simple Text" paste end tell Bon,après,il faudra que tu amèliores selon tes besoins,mais ce principe devrait fonctionner.(j'ai pas vérifié) Régis Le 14/01/2001 à 15:47 ,Leclaire a écrit : > > >patpro wrote: >> > sinon Peut-on faire un log sous la forme d'un fichier texte (ou extrait >> > de texte) sans passer par une application, juste via le finder ou uen >osax?? >> >> délicat...je vois pas trop comment faire, cette OSAX est la seule que >je connaisse a posseder autant de fonctions TCP/IP. >> les autres se limite en général aux changements de configurations... > >euh je voulais dire faire un log de valeur que l'on a obtenu. >on recupere les valeurs (ici le numero ip) avec tcpip_scripting_addition >puis avec une autre osax ou commande du finder on fait un fichier txt ou >sont insérés les valeurs. >et ce que je voudrais savoir c'ets si il existe une autre osax ou >commande du finder qui sache faire ca. >-- >Leclaire Thomas >http://www.peltre.fr.st/ >http://www.inventilor.ovh.org/ >Think Different. > >-- >Pour vous désinscrire ou régler les options de votre abonnement : >http://www.macplus.net/ML/AS_fr.shtml >
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Sun, 14 Jan 2001 16:07:39 +0100 Objet : [AS] Re: test de connection reseau rmentre@xxxxxxx.fr wrote: > > Pour le moment,j'utilise,sur les conseils judicieux:-) de Patpro,l'OSAX > de Mango Tree qui marche tré bien.si tu colles ton IP avec dans le presse > papier,je ne vois pourquoi tu aurais besoin d'une OSAX particulière pour > appeler Simple text par exemple et coller le contenu du presse papier.Ça > devrait donner quelque chose comme ça: > > set the clipboard to (tcp my address) > tell app "Simple Text" > paste > end tell oui ca d'accord mais ca ouvre l'app simple text ce que je ne veux pas vu que ca la ferait passer en premier plan et etant donnée que ej compte faire tourner le test d'ip en permanence (toutes les 5 min) ca risque de poser pb! donc je cherchais un moyen de faire sans passer par une appli autre que le finder (ou une osax). -- Leclaire Thomas http://www.peltre.fr.st/ http://www.inventilor.ovh.org/ Think Different.
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Sun, 14 Jan 2001 16:15:34 +0100 Objet : [AS] Re: test de connection reseau rmentre@xxxxxxx.fr wrote: > > Pour le moment,j'utilise,sur les conseils judicieux:-) de Patpro,l'OSAX > de Mango Tree qui marche tré bien.si tu colles ton IP avec dans le presse > papier,je ne vois pourquoi tu aurais besoin d'une OSAX particulière pour > appeler Simple text par exemple et coller le contenu du presse papier.Ça > devrait donner quelque chose comme ça: > > set the clipboard to (tcp my address) > tell app "Simple Text" > paste > end tell euh et d'ailleurs le paste ne marche pas! comment fait on pour recuperer le presse papier? -- Leclaire Thomas http://www.peltre.fr.st/ http://www.inventilor.ovh.org/ Think Different.
De : patpro <patpro@xxxxxxx.net> Date : Sun, 14 Jan 2001 16:17:46 +0100 Objet : [AS] Re: test de connection reseau On Sunday, January 14, 2001, at 03:47 PM, Leclaire Thomas wrote: > euh je voulais dire faire un log de valeur que l'on a obtenu. > on recupere les valeurs (ici le numero ip) avec tcpip_scripting_addition > puis avec une autre osax ou commande du finder on fait un fichier txt ou > sont insérés les valeurs. > et ce que je voudrais savoir c'ets si il existe une autre osax ou > commande du finder qui sache faire ca. ok :-) faire un log avec le finder c'est relativement facile, enfin, on se passe meme du finder, c'est le "compléments standard" qui nous sert ici. Tu peux par exemple placer ton script dans un 'on idle'. Tu ouvres le fichier de log en écriture en début de ta boucle idle, et toutes les x secondes (boucle IDLE) tu vérifies ton IP ou un autre parametre.... et tu écris dans ton fichier la date, une tabulation, l'IP, un retour chariot. je dois avoir un exemple assez complet quelque part sur mon disque qui devait loguer les appli lancées ou quitées, les modif au contenu du dossier extension... le voila : attention aux «event gtqpalst» et autres ratages, je suis sous OSX, j'ai pas mes OSAX habituelles. et soyez indulgeants j'ai fais ce script à mes débuts :-) ---------------------------------------- property targetFolder : 0 -- alias to target folder property targetPath : 0 -- path to target folder property modDate : 0 -- modification date of folder when last we checked property listeapp : 0 -- liste des applic a la derniere vérif on run set newPath to (the path to system folder) as string set newPath to newPath & "Extensions" as string set targetFolder to alias newPath end run on idle -- fonction de surveillance des extentions a mettre en service -- set newModDate to modification date of (info for targetFolder) -- if modDate = 0 or newModDate > modDate then -- set modDate to newModDate -- folderChanged("ext") -- end if set liste1 to «event gtqpalst» if listeapp = {0} or liste1 ≠ listeapp then set listeapp to liste1 folderChanged("appli") end if return 10 -- Idle time in seconds end idle on folderChanged(f) set datedujour to (current date) as text -- initialisation des variables de fichiers log et pref set logg to "spyscriptlog" as text set log0 to "fichier log crée le " & datedujour & " " as text set chemin to path to preferences set fichier to chemin & logg as text if f = "ext" then beep beep beep -- bloc principal (test, correction si test négatif puis suite des opérations) try -- teste la présence d'un fichier log, si il n'existe pas alors lancer testdesfichiers() open for access (fichier) close access (fichier) on error -- test du fichier log testdesfichiers(logg, log0) end try set listeext to (list folder targetFolder) set nombre to count string of listeext try set fileRef to open for access (fichier) with write permission repeat with i from 1 to nombre write (item i of listeext & " ") to fileRef as string starting at eof end repeat on error close access (fichier) end try close access (fichier) else set nombre to count applications of listeapp set fileRef to open for access (fichier) with write permission write " fichier log du " & datedujour & " " to fileRef starting at eof try repeat with i from 1 to nombre set nom to item i of listeapp as string write (nom & " ") to fileRef as string starting at eof end repeat on error close access (fichier) end try close access (fichier) end if end folderChanged -- -- LISTE DES SOUSROUTINES -- -- sousroutine de test on testdesfichiers(spyscripttext, init0) set chemin to path to preferences set fichiertext to chemin & spyscripttext as text -- cherche le document spyscriptlog tell application "Desktop" try «event sysofind» given «class name»:spyscripttext set trouve to result as text on error set trouve to "a" end try end tell -- creation du fichier si il ne le trouve pas if trouve ≠ fichiertext then try tell application "Desktop" activate try make file at chemin with properties {name:spyscripttext} on error -- gestion d'erreur set test to display dialog ¬ "il s'est produit une erreur veuillez trouver et de détruire les différents fichiers nommés " & spyscripttext buttons "OK" default button 1 with icon caution end try end tell set fileRef to open for access (fichiertext) with write permission -- initialisation du fichier crée write init0 to fileRef as string close access (fichiertext) on error -- gestion d'erreur set test to display dialog ¬ "il s'est produit une erreur d'écriture vérifiez que l'écriture est autorisée pour le fichier" & spyscripttext buttons "OK" default button 1 with icon caution end try else beep end if end testdesfichiers --------------------------------------------------------------- patpro -- "rien ne se perd, rien ne se crée, tout s'empile" - Mon bureau -
De : patpro <patpro@xxxxxxx.net> Date : Sun, 14 Jan 2001 16:19:07 +0100 Objet : [AS] Re: test de connection reseau On Sunday, January 14, 2001, at 04:15 PM, Leclaire Thomas wrote: > rmentre@xxxxxxx.fr wrote: > > > > set the clipboard to (tcp my address) > > tell app "Simple Text" > > paste > > end tell > > euh et d'ailleurs le paste ne marche pas! > comment fait on pour recuperer le presse papier? je pense qu'on fait pas, SimpleText n'est pas scriptable, il faut utiliser texEdit ou autre éditeur de texte scriptable patpro -- "rien ne se perd, rien ne se crée, tout s'empile" - Mon bureau -
De : Michaël <mic3d@xxxxxxx.com> Date : Sun, 14 Jan 2001 16:25:53 +0100 Objet : [AS] Re: test de connection reseau Bonsoir, Ca marche ? > > > patpro wrote: >> >> On Thursday, January 11, 2001, at 09:57 PM, Leclaire Thomas wrote: >> >>> donc ma question est que je n'ai pas trouvé de commandes qui pourraient >>> me faire ca dans ce que j'ai donc si qelqu'un a une (ou plusieurs!) >>> idées, elle(s) est(sont) la (les!) bienvenues! >> >> un petit lien vaut mieux qu'un long discours : >> >> http://www.osaxen.com/index.php3?id=tcpip_scripting_addition > merci, pas mal mais y a rien de plus recent? (ca date d'il y a pres de 2 ans!) > > sinon Peut-on faire un log sous la forme d'un fichier texte (ou extrait > de texte) sans passer par une application, juste via le finder ou uen osax??
De : patpro <patpro@xxxxxxx.net> Date : Sun, 14 Jan 2001 16:30:14 +0100 Objet : [AS] Re: ca marche (was) [AS] Re: test de connection reseau On Sunday, January 14, 2001, at 04:25 PM, Michaël wrote: > Bonsoir, > > Ca marche ? oui Michael, tu es bien inscrit, ça marche :-) patpro -- "rien ne se perd, rien ne se crée, tout s'empile" - Mon bureau -
De : Michaël <mic3d@xxxxxxx.com> Date : Sun, 14 Jan 2001 16:38:11 +0100 Objet : [AS] Script pour Cyber-Loterie Bonsoir, Afin de jouer automatiquement au loterie, j'aimerais mettre en place un script pour m'éviter de jouer tout les jours à 12 loteries. Ce que j'arrive à faire (pour 3 loteries): Executer un script (si site sans frames). Le blem c'est que elle ne sont pas toutes identiques, certaines ont des frames et je ne sais pas comment préciser que le script est dans telle ou telle frame, certaine il font écrire son id et MdP et valider, d'autre cliquer sur des formulaires pour s'identifier et/ou valider les grilles. En clair: Comment ecrire dans un champs et le valider, commment executer un script avec un site avec des frames, comment cliquer sur un bouton de formulaire, comment cliquer tout cour sur une pub ? Merci, Michaël.
De : Michaël <mic3d@xxxxxxx.com> Date : Sun, 14 Jan 2001 16:40:21 +0100 Objet : [AS] Re: Script pour Cyber-Loterie J'utilise IE5 de préférences, mais si seulement NN ou iCab le fond, ça m'est égal. Michaël.
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Sun, 14 Jan 2001 17:25:01 +0100 Objet : [AS] Re: test de connection reseau patpro wrote: [...] > tell application "Desktop" > [...] > end tell [...] qu'est ce que l'application desktop?? -- Leclaire Thomas http://www.peltre.fr.st/ http://www.inventilor.ovh.org/ Think Different.
De : patpro <patpro@xxxxxxx.net> Date : Sun, 14 Jan 2001 17:32:40 +0100 Objet : [AS] Re: test de connection reseau On Sunday, January 14, 2001, at 05:25 PM, Leclaire Thomas wrote: > > > patpro wrote: > [...] > > tell application "Desktop" > > [...] > > end tell > [...] > > qu'est ce que l'application desktop?? oups :-))))) tres vraisemblablement Finder, car j'ai ouvert le script dans OS X ou l'equiv. du finder se nomme Desktop.app patpro
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Sun, 14 Jan 2001 17:36:12 +0100 Objet : [AS] Re: test de connection reseau patpro wrote: > tres vraisemblablement Finder, car j'ai ouvert le script dans OS X ou l'equiv. du finder se nomme Desktop.app bien ce que je pensais! mais alors pourquoi le script suivant me ramene une erreur de cl? invalide? set chemin to "G3-1:Desktop Folder:" set ip to tcp my address set dns to tcp address to name ip set logip to "logipdns" as text set logacces to chemin & logip as text try open for access (logacces) close access (logacces) on error tell application "Finder" activate --try make file at chemin with properties {name:"logipdns"} --on error --display dialog "Pb lors de la cr?ation du fichier log" buttons "OK" default button 1 with icon caution --end try end tell end try -- Leclaire Thomas http://www.peltre.fr.st/ http://www.inventilor.ovh.org/ Think Different.
De : Georges Schell <gs@xxxxxxx.com> Date : Sun, 14 Jan 2001 21:00:44 +0100 Objet : [AS] Alias créé à partir de variables Bonsoir à tous, Grâce à l'aide de Daniel Varlet, Imaniak et Patro, j'ai mis au point le script ci-après. Je voudrais en outre créer dans le dossier DossClientHDServeur l'alias de DossClientDisque2, mais je n'y arrive pas. Merci d'avance pour votre aide (et votre science!) Georges PS Où trouve-t-on une doc sur Applescript pour un débutant ? Sur le web ? on open theDossiers -- ;-) set JobDone to false set AppleScript's text item delimiters to {":"} set DossExerciceHDServeur to theDossiers as text -- chemin d'accès avec nom de dossier sur Hd Serveur -- * Suppression du nom de dossier lui-même : set DossClientHDServeur to reverse of (text items of DossExerciceHDServeur) as text --nom de dossier en 1er set DossClientHDServeur to rest of (text items of DossClientHDServeur) as text -- supprime les 2 points set DossClientHDServeur to rest of (text items of DossClientHDServeur) as text -- supprime le nom du dossier set DossClientHDServeur to reverse of (text items of DossClientHDServeur) as text -- on a le path sur HD Serveur! set DossExerciceDisque2 to rest of (text items of DossExerciceHDServeur) as text -- supprime le nom HD Serveur set DossExerciceDisque2 to "Disque 2:" & DossExerciceDisque2 -- nom de dossier sur disque 2 -- * Suppression du nom de dossier Exercice : set DossClientDisque2 to reverse of (text items of DossExerciceDisque2) as text --nom de dossier en 1er set DossClientDisque2 to rest of (text items of DossClientDisque2) as text -- supprime les 2 points set DossClientDisque2 to rest of (text items of DossClientDisque2) as text -- supprime le nom du dossier set DossClientDisque2 to reverse of (text items of DossClientDisque2) as text -- on a le path surDisque 2! try get alias (DossClientDisque2 as text) -- on essaie le path sur Disque 2 on error -- le dossier contenant n'a pas été créé! Il faudra le faire manuellement display dialog ¬ "Dossier de destination non trouvé sur Disque 2 ; prière de le créer et de recommencer" buttons {"OK"} ¬ default button 1 with icon stop error number -128 end try try get alias (DossExerciceDisque2 as text) -- on recherche si le dossier existe sur Disque 2 on error -- le dossier n'existe pas, on peut copier! repeat with i in theDossiers tell application "Finder" set dossierContenant to container of i -- * 1 de le copier sur disque2 set Sauvegarde to duplicate i to folder DossClientDisque2 delete i set JobDone to true end tell end repeat end try if JobDone is false then display dialog "La copie sur Disque 2 n'a pas été effectuée ; il existe un dossier avec le même nom!" with icon stop end if end open
De : Emmanuel KOPP <emmanuel.kopp@xxxxxxx.fr> Date : Sun, 14 Jan 2001 22:48:52 +0100 Objet : [AS] Sous-Dossiers Bonjour, Je cherche à faire une opération plutôt banale. Appliquer un traitement à un dossier choisi ainsi que les sous-dossiers qu'il contient. Y-a-t-il une syntaxe précise à définir pour que AS prenne en compte les sous-dossiers (Chercher dans AS Book d'Apple mais à 1er vu rien) ou faut-il que je créer la fonction ? D'avance merci
De : patpro <patpro@xxxxxxx.net> Date : Sun, 14 Jan 2001 23:33:27 +0100 Objet : [AS] Re: Sous-Dossiers On Sunday, January 14, 2001, at 10:48 PM, Emmanuel KOPP wrote: > Je cherche à faire une opération plutôt banale. Appliquer un > traitement à un dossier choisi ainsi que les sous-dossiers qu'il > contient. tu peux utiliser AS seul, avec des tell app "Finder" if folder of info for MonElement then display dialog MonElement & " est un dossier" else beep end if end tell (syntaxe de tete, qui marche pas dans OSX) ou utiliser une OSAX (Akua ou Tanaka je ne sais plus) qu contient une commande pour "descendre" le long d'une arborescence pour y appliquer des commandes patpro -- "rien ne se perd, rien ne se crée, tout s'empile" - Mon bureau -
De : Jean-Marie Hoornaert <jean.marie.hoornaert@xxxxxxx.be> Date : Sun, 14 Jan 2001 23:34:00 +0100 Objet : [AS] Re: Sous-Dossiers le 14/01/2001 22:48, Emmanuel KOPP a écrit : > > > Bonjour, > > Je cherche à faire une opération plutôt banale. Appliquer un > traitement à un dossier choisi ainsi que les sous-dossiers qu'il > contient. > Y-a-t-il une syntaxe précise à définir pour que AS prenne en compte > les sous-dossiers (Chercher dans AS Book d'Apple mais à 1er vu rien) > ou faut-il que je créer la fonction ? > > D'avance merci > > Dans les essential sub-routines de AppleScript Guide Book (disponibles chez Apple), j'ai trouvé un exemple qui m'a parmis d'écrire ce script de traitement de dossier et sous-dossier : [script] set this_folder to (choose folder) process_folder(this_ folder) on process_folder(this_folder) set these_items to list folder this_folder without invisibles repeat with i from 1 to the count of these_items set this_item to alias ((this_folder as text) & ¬ (item i of these_items)) set the item_info to info for this_item if folder of the item_info is true then [quelque chose à faire si l'élément est un dossier] process_folder(this_item) else if (alias of the item_info is false) then [quelque chose à faire si l'élément est un fichier] end if end repeat end process_folder [/script] -- Jean-Marie -HOO;-) ____________________ Courriel : jean.marie.hoornaert@xxxxxxx.be PPsP* : http://www.h2o.be * Page Personnelle sans Prétention * pour AppleScripter FileMaker