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 : jeudi 17 août 2000 19:17
Objet : applescript_fr Digest #16
Liste AppleScript francophone Digest #16
1) Re: Script Icon->Pict
by Net <marinepub@xxxxxxx.fr>
2) amusant...
by patrick <patrick@xxxxxxx.fr>
3) Re: amusant...
by Leclaire Thomas <leclaire.t@xxxxxxx.fr>
4) Re: script qui change les configs remote acces et tcp/ip
by Gilbert Lauvergnier <gilbert.lauvergnier@xxxxxxx.fr>
5) An error of type -1753...
by Thierry Willemsens <mb10018@xxxxxxx.be>
6) Re: script qui change les configs remote acces et tcp/ip
by KLEIN François <fklein1@xxxxxxx.com>
7) AppleShareIP & AppleScript
by Bertrand <bcolombier@xxxxxxx.fr>
8) Re: amusant...
by Net <marinepub@xxxxxxx.fr>
De : Net <marinepub@xxxxxxx.fr> Date : Wed, 16 Aug 2000 23:21:42 +0200 Objet : [AS] Re: Script Icon->Pict *This message was transferred with a trial version of CommuniGate(tm) Pro* Re bonjour les AS, Proniewski a écrit : > il semble que cela soit possible. mais pour la syntaxe il faudra essayer, ce > n'est pas tres explicite. Cela dit, Akua est fournie avec moult exemples tu > devrais trouver ton bonheur. Et bien, rien à faire :(( Depuis quelques heures je bataille avec le complément de pilotage "·Akua Sweets", et je n'arrive toujours pas à trouver le truc pour récuperer et sauvegarder la petit icone d'une faimille au format "PICT". Pourtant la solution de Jean-Marie Hoornaert fonctionne très bien pour les icones normales. J'ai modiffié un peu la syntaxe pour éviter de passer par le presse papier, ce qui donne : [script] set MonIcone to the icon for (choose file) store image MonIcone [/script] C'est génial, même si l'image ainsi créée n'applique pas le masque de l'icone rendant les zones hors masque opaques (pas vraiment génant pour mon projet). J'ai pensé alors que la suite "Akua Resources" pouvait me donner la solution. Mais, malgré mes efforts, et bien que j'ai réussi à isoler la "small 8 bit icon" qui m'interesse, impossible de générer un fichier "PICT" avec elle. De plus, même si j'avais trouvé, ce n'est pas la solution que je cherche, car la plupart des documents on une icône hérité du logiciel que les a crée, mais ne possèdent pas forcement les ressources de leur icone. Peut-être que la solution est là tout près et je ne la voit pas, ou tout simplement je m'y prend mal ne connaissant pas bien les "·Akua Sweets". Toute aide ou astuce est la bienvenue. Merci... A+ Fredo d:o)
De : patrick <patrick@xxxxxxx.fr> Date : Thu, 17 Aug 2000 00:58:08 +0200 Objet : [AS] amusant... *This message was transferred with a trial version of CommuniGate(tm) Pro* J'ai fait un petit script de benchmark pour tester la rapidité de quelques machines et notamment la différence G4 mono et bi-pro. (resultats a paraitre sur Macplus.net si tout se passe bien ;)) j'ai testé un de mes scripts sur mon G4 450 320Mo RAM (pas de mémoire virtuelle), MacOS 9.0.2 de base, et sur mon G3 350 de travail : 128 Mo RAM, MacOS 8.6 mémoire virtuelle activée... voici le script : [script] set MaDate1 to time of (current date) as string set MaListe to {} repeat with i from 1 to 4000 set MaListe to MaListe & i end repeat set MaDate2 to time of (current date) display dialog "creation de la liste " & MaDate2 - MaDate1 & " sec." set MaDate1 to time of (current date) as string repeat with i in MaListe cos i sin i tan i end repeat set MaDate2 to time of (current date) display dialog "math " & MaDate2 - MaDate1 & " sec." [/script] il se décompose en deux parties, 1- création d'une liste d'entier 2- calcul des cos, sin et tan pour ces entiers (OSAX Satimage) le G3 donne un petit 11 secondes pour la premiere partie et env. 50 secondes pour la deuxieme. Le G4 donne 48 secondes pour la premiere...et 250 sec. pour la deuxieme. oui vous avez bien lu... la bete de course à 450mHz se fait torcher d'un facteur 5 par le G3. ca me laisse songeur. Alors moi je remercie Apple pour son magnifique OS 9.x et j'attends le X en priant qu'ils n'essaient pas de faire pire... ;) y'a quand même de l'abus quelque part je trouve. patpro -- Italienne parlant francais/anglais recherche un emploi en rég. parisienne CV online : http://patrick.proniewski.free.fr
De : Leclaire Thomas <leclaire.t@xxxxxxx.fr> Date : Thu, 17 Aug 2000 01:04:16 +0200 Objet : [AS] Re: amusant... *This message was transferred with a trial version of CommuniGate(tm) Pro* patrick wrote: > > j'ai testé un de mes scripts sur mon G4 450 320Mo RAM (pas de mémoire > virtuelle), MacOS 9.0.2 de base, et sur mon G3 350 de travail : 128 Mo RAM, > MacOS 8.6 mémoire virtuelle activée... [...] > le G3 donne un petit 11 secondes pour la premiere partie et env. 50 secondes > pour la deuxieme. tiens marrant ca! mon g3 400 128Mo ram mac os 8,6 avec memoire virtuelle (mais avec netscape, mac soup, claris home page, starcraft et claris works d'ouverts!!!) et ben 10 sec pour le premier et 6s pour le deuxieme (oui oui six secondes!) -- Leclaire Thomas E-mail : leclaire.t@xxxxxxx.fr Url : http://www.peltre.fr.st/ Think Different.
De : Gilbert Lauvergnier <gilbert.lauvergnier@xxxxxxx.fr> Date : Thu, 17 Aug 2000 02:08:13 +0200 Objet : [AS] Re: script qui change les configs remote acces et tcp/ip *This message was transferred with a trial version of CommuniGate(tm) Pro* patrick a écrit : > *This message was transferred with a trial version of CommuniGate(tm) Pro* > > - > le 15/08/00 23:08, Azzedine à f_milon@xxxxxxx.fr a écrit : > > > je suis a la recherche d'un script qui automatiserait le changement des > > reglages de remote acces et de TCP/IP pour jongler entre plusieurs compte chez > > plusieurs operateurs differents,... > > a ta place j'utiliserais les "réglages de mobilité" qui sont parfaits pour > ca. comme ca en une fois tu peux faire varier plusieurs configuration (ARA, > TCP/IP...) et ca se scripte aussi. > Malheureusement, je n'ai pas d'exemple fonctionnel sous la main... > > patpro j'utilise "réglages de mobilité" avec mes deux FAI et ca marche très bien pour les tdb "remote acces" et "TCIP". reste le problème du serveur smtp que je suis obligé de modifier dans netscape bien que j'ai lu que tu peux remplacer smtp.xxx.fr par smtp tout si tous tes fai ont un nom en smtp.xxxx.fr gilbert
De : Thierry Willemsens <mb10018@xxxxxxx.be> Date : Thu, 17 Aug 2000 10:51:23 +0200 Objet : [AS] An error of type -1753... *This message was transferred with a trial version of CommuniGate(tm) Pro* bonjour, j'ai fait un petit script pour voir ce qui est installé après l'installation de quelque chose de nouveau sur mon HD. Le script fonctionnait sans problèmes sur mon 7500 et mon PB1400, par contre sur mon iMac DV j'ai à chaque fois une fenêtre d'erreur me disans ceci: An error of type -1753 occured while running the script named "Après une installation" The scripting System reported "Scriptable Text Editor a généré une erreur : Mauvais nom de fichier. Un object quelconque". Je suis assez surpris, faut il changer quelque chose pour l'iMac ? Voici le script: -- variable qui contient les éléments ajoutés au dossier système set ajoutSysteme to {} -- variable qui contient les éléments ajoutés au dossier menu pomme set ajoutMenuPomme to {} -- variable qui contient les éléments ajoutés au dossier extensions set ajoutExtensions to {} -- variable qui contient les éléments ajoutés au dossier tableaux de bord set ajoutTableaux to {} -- variable qui contient les éléments ajoutés au dossier préférences set ajoutPreferences to {} tell application "Finder" -- on prend les noms des éléments ajoutés au dossier système qui -- n'ont pas de couleur... vu que le reste est en rouge try set ajoutSysteme to (the name of every item of system folder ¬ whose label index is 0) as list end try -- afin de pouvoir les lire par la suite on en fait -- une liste et ceci grâce à une fonction vu que l'on est -- dans un bloc tell il faut faire précéder le nom de la -- fonction par my sans quoi elle n'est pas exécutée... -- On commence donc par le dossier système my listeFormatee(ajoutSysteme) set impressionEcranDossierSysteme to result -- on prend tous les noms des éléments ajoutés au dossier -- menu pomme qui n'ont pas de couleur... vu que le reste est en rouge try set ajoutMenuPomme to (the name of every item of apple menu items folder ¬ whose label index is 0) as list end try -- on refait une liste pour pouvoir les lire my listeFormatee(ajoutMenuPomme) set impressionEcranMenuPomme to result -- on prend tous les noms des éléments ajoutés au dossier -- extensions qui n'ont pas de couleur... vu que le reste est en rouge try set ajoutExtensions to (the name of every item of extensions folder ¬ whose label index is 0) as list end try -- à nouveau on refait une liste pour pouvoir les lire my listeFormatee(ajoutExtensions) set impressionEcranExtensions to result -- on prend tous les noms des éléments ajoutés au dossier -- tableaux de bord qui n'ont pas de couleur... vu que le reste est en rouge try set ajoutTableaux to (the name of every item of control panels folder ¬ whose label index is 0) as list end try -- à nouveau on refait une liste pour pouvoir les lire my listeFormatee(ajoutTableaux) set impressionEcranTableaux to result -- on prend tous les noms des éléments ajoutés au dossier -- préférences qui n'ont pas de couleur... vu que le reste est en rouge try set ajoutPreferences to (the name of every item of preferences folder ¬ whose label index is 0) as list end try -- à nouveau on refait une liste pour pouvoir les lire my listeFormatee(ajoutPreferences) set impressionEcranPreferences to result end tell -- on, emploie Scriptable Text Editor vu qu'il est gratuit et scriptable pour faire l'impression écran tell application "Scriptable Text Editor" -- le titre en souligné set paragraph 1 of document 1 to ¬ "Voici les dernières modifications effectuées à votre Macintosh:" & return & return select text from word 1 to word 8 of document 1 set style of selection to underline -- on commence par les extensions, on ajoute deux returns pour passer -- à la ligne et laisser un espace pour que tout cela soit plus clair -- au cas ou la liste est vide if ajoutExtensions = {} then set paragraph 3 of document 1 to ¬ "Aucune extension n'a été ajoutée." & return & return -- sinon else set paragraph 3 of document 1 to ¬ "Les extensions suivantes ont été ajoutées : " & return end if set paragraph 4 of document 1 to ¬ ((impressionEcranExtensions) as string) & return & return -- on continue avec les tableaux de bord -- si la liste est vide if ajoutTableaux = {} then set end of document 1 to ¬ "Aucun tableau de bord n'a été ajouté." & return & return -- sinon else set end of document 1 to ¬ "Les tableaux de bord suivants ont été ajoutés : " & return end if set end of document 1 to ¬ ((impressionEcranTableaux) as string) & return & return -- on continue avec le menu pomme -- si la liste est vide if ajoutMenuPomme = {} then set end of document 1 to ¬ "Aucun élément n'a été ajouté au menu pomme." -- sinon else set end of document 1 to "Les éléments suivants ont été ajoutés au menu pomme : " & return end if set end of document 1 to ¬ ((impressionEcranMenuPomme) as string) & return & return -- on continue avec le dossier système -- si la liste est vide if ajoutSysteme = {} then set end of document 1 to ¬ "Aucun élément n'a été ajouté au dossier système." & return & return --sinon else set end of document 1 to ¬ "Les éléments suivants ont été ajoutés au dossier système : " & return end if set end of document 1 to ¬ ((impressionEcranDossierSysteme) as string) & return & return -- on continue avec le dossier des préférences -- si la liste est vide if ajoutPreferences = {} then set end of document 1 to ¬ "Aucun élément n'a été ajouté au dossier préférences." & return & return --sinon else set end of document 1 to ¬ "Les éléments suivants ont été ajoutés au dossier préférences : " & return & return end if set end of document 1 to ¬ ((impressionEcranPreferences) as string) & return & return set end of document 1 to ¬ "Veuillez QUITTER ce document si vous désirez réutiliser ce script. Merci." & return & return ¬ & "Ce script a été exécuté la dernière fois le " & (current date) as string -- on sauve le document save document 1 in file ¬ "iMac Système:Desktop Folder:derniers éléments installés iMac" close document 1 saving no quit end tell to listeFormatee(lesElements) set j to 1 set aImprimerEcran to "" as string set n to count of items of lesElements repeat until j > n set aImprimerEcran to (aImprimerEcran & (item j of lesElements) & return) set j to (j + 1) end repeat return aImprimerEcran end listeFormatee Merci pour votre aide. Thierry
De : KLEIN François <fklein1@xxxxxxx.com> Date : Thu, 17 Aug 2000 12:50:02 +0200 Objet : [AS] Re: script qui change les configs remote acces et tcp/ip *This message was transferred with a trial version of CommuniGate(tm) Pro* Mais attention, que ce soit avec applescript ou les réglages de mobilité sous OS 9, il n'est pas possible de changer la configuration à partir d'un autre utilisateur que le 'possesseur' -- Salut Franz
De : Bertrand <bcolombier@xxxxxxx.fr> Date : Thu, 17 Aug 2000 16:29:06 +0200 Objet : [AS] AppleShareIP & AppleScript *This message was transferred with a trial version of CommuniGate(tm) Pro* Je cherche un moyen par applescript si possible de deconnecter des utilisateurs connectés en IP au serveur via numéris. Merci de votre aide
De : Net <marinepub@xxxxxxx.fr> Date : Thu, 17 Aug 2000 16:53:53 +0200 Objet : [AS] Re: amusant... *This message was transferred with a trial version of CommuniGate(tm) Pro* Salut les AS, patrick a écrit : > le G3 donne un petit 11 secondes pour la premiere partie et env. 50 secondes > pour la deuxieme. > > Le G4 donne 48 secondes pour la premiere...et 250 sec. pour la deuxieme. > > oui vous avez bien lu... la bete de course à 450mHz se fait torcher d'un > facteur 5 par le G3. ca me laisse songeur. J'ai aussi lancé le test sur 3 bécanes, et je n'obtient pas les mêmes résultats : G3/266/Gris/MacOs 8.6 : 14 et 12 sec (pas mal...) G3/350/Bleu/MacOs 8.6 : 10 et 6 sec (mieux...) G4/450/MacOs 9.0.4 : 50 et 10 sec (la Fontaine !?!) A+ Fredo d:o)