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 : samedi 20 avril 2002 07:01
Objet : applescript_fr Digest #479
Liste AppleScript francophone Digest #479
1) Connexion permanente
by Thierry Mc <tck@xxxxxxx.com>
2) Re: Connexion permanente
by Daniel Varlet <varlet@xxxxxxx.ch>
3) Re: Connexion permanente
by Thierry Mc <tck@xxxxxxx.com>
4) Re: Connexion permanente
by Daniel Varlet <varlet@xxxxxxx.ch>
5) Re: Connexion permanente
by nicolas descombes <nicolas.descombes@xxxxxxx.fr>
6) Re: Connexion permanente
by Jean-Marie Hoornaert <jean.marie.hoornaert@xxxxxxx.be>
7) Re: Connexion permanente
by nicolas descombes <nicolas.descombes@xxxxxxx.fr>
De : Thierry Mc <tck@xxxxxxx.com> Date : Fri, 19 Apr 2002 10:41:17 +0200 Objet : [AS] Connexion permanente Bonjour, Je cherche le moyen que soit testée la connexion ou non à internet. Quelqu'un a-t-il une piste, je rame... Thierry
De : Daniel Varlet <varlet@xxxxxxx.ch> Date : Fri, 19 Apr 2002 13:03:26 +0200 Objet : [AS] Re: Connexion permanente À 10:41 +0200 le 19.04.2002, Thierry Mc écrivait au sujet de "[AS] Connexion permanente" : > Bonjour, > > Je cherche le moyen que soit testée la connexion ou non à internet. > Quelqu'un a-t-il une piste, je rame... > Thierry Ça change en fonction de l'OS. Je posterais quelques routines si tu es interressé. Et si tu précises ton OS... A+ -- Daniel
De : Thierry Mc <tck@xxxxxxx.com> Date : Fri, 19 Apr 2002 13:38:37 +0200 Objet : [AS] Re: Connexion permanente >> >> Je cherche le moyen que soit testée la connexion ou non à internet. >> Quelqu'un a-t-il une piste, je rame... >> Thierry > > Ça change en fonction de l'OS. > Je posterais quelques routines si tu es interressé. Et si tu précises ton > OS... > > A+ Bonjour Mac os 9.1 Je suis intéressé Merci tck@xxxxxxx.com
De : Daniel Varlet <varlet@xxxxxxx.ch> Date : Fri, 19 Apr 2002 18:51:18 +0200 Objet : [AS] Re: Connexion permanente À 13:38 +0200 le 19.04.2002, Thierry Mc écrivait au sujet de "[AS] Re: Connexion permanente" : >>> >>> Je cherche le moyen que soit testée la connexion ou non à internet. >>> Quelqu'un a-t-il une piste, je rame... >>> Thierry >> >> Ça change en fonction de l'OS. >> Je posterais quelques routines si tu es interressé. Et si tu précises ton >> OS... >> >> A+ > Bonjour > Mac os 9.1 > > Je suis intéressé > Merci Voilà : les routines interressantes sont à : --mark Remote Access 9.xx<I<U J'ai bricolé un script pour la pédagogie... Tu trouveras d'autres exemples dans l'AppleScript Guidebook Si tu n'as pas AppleScript Guidebook dans l'aide, regarde sur tes CD d'install: Compléments CD AppleScript CD Extras ou télécharge-le : <http://www.apple.com/applescript/help_mods.html> "--mark" est un marqueur de Smile ne pas en tenir compte. Note : je suis tombé sur un problème ardu du à la compilation avec un conflit d'osax ou avec Smile. (il me semble... ®©™ pas réussi à voir d'où ça venait exactement) >:-((( : "Pilotage réglages réseau" ne voulait plus connecter ni déconnecter. ( routine setConnectionRA(n) ) Ça à l'air de s'être calmé. Tant mieux, car je me connecte tout le temps grâce à une variante de ce script (le recompile pas tout les jours non plus...) [SCRIPT] -- Si vous modifiez ce script veuillez me le signaler sur la Liste AppleScript francophone : -- <http://www.macplus.net/ML/AS_fr.shtml> -- ou directement à : -- Daniel Varlet <varlet@xxxxxxx.ch> property liste_etat : {"inactif", "connexion", "connecté", "déconnexion", "inconnu"} --(idle/connecting/connected/disconnecting/unknown) property etatInactif : liste_etat's item 1 property etatConnecte : liste_etat's item 3 property etatDeconnexion : liste_etat's item 4 property name_configRA : "config PPP" on run try activate verifNomConfigRA() set etat to getConnectionStatus() ---------- Vérification etatC connexion if etat ≠ etatConnecte then -- Si la connexion était inactive à l'ouverture -- setConnection(1) = se connecter -- setConnection(≠1)= se déconnecter if etat ≠ etatInactif then setConnection(0) -- déconnecter si état pas vraiment déconnecté tell application "État Remote Access" to activate -- visualisation de l'état openConnection() -- tâches.... if getConnectionStatus() = etatConnecte then tell application "État Remote Access" to quit setConnection(0) end if end if on error ert number ern if ern ≠ -128 then dlgErreur(ert, ern, "quit()") end try end run on quit closeConnectionApps() error number -128 end quit --mark (- --mark DIALOGUES<I<U!◊ on dlgErreur(ert, ern, n) activate if getConnectionStatus() ≠ etatInactif then setConnection(0) beep 3 --playSound(sound1, 1, 1) set t to "" & ert & space & ern & return & n & return & (current date) & return & "Statut actuel de la connexion : " & "“" & getConnectionStatus() & "”" display dialog t buttons ("Stop") default button 1 with icon 0 return quit of me end dlgErreur --mark (- --mark CONNEXIONS<I<U!◊ on openConnection() try if getConnectionStatus() ≠ etatConnecte then setConnection(1) ----verification connexion set dtEnd to (current date) + 3 * 60 -- 3 minutes d'attente sinon erreur repeat set etat to getConnectionStatus() if etat = etatConnecte then exit repeat else if etat is in {etatInactif, etatDeconnexion} or (current date) ≥ dtEnd then error number 700 end if delay 5 end repeat on error ert number ern dlgErreur("La tentative de connexion a échouée.", ern, "") end try end openConnection on setConnection(n) -- aiguillage un jour... pour autres connexions, Os, etc... setConnectionRA(n) end setConnection on getConnectionStatus() -- aiguillage un jour... pour autres connexions, Os, etc... getConnectionStatusRA() end getConnectionStatus on closeConnectionApps() -- aiguillage un jour... pour autres connexions, Os, etc... closeRAApps() end closeConnectionApps --mark Remote Access 9.xx<I<U on setConnectionRA(n) set b to n = 1 try tell application "Pilotage réglages réseau" open database if b then connect Remote Access configuration name_configRA --with synchronous else disconnect Remote Access configuration name_configRA --with synchronous end if close database end tell on error ert number ern try tell application "Pilotage réglages réseau" close database end tell end try error ert number ern end try end setConnectionRA on getConnectionStatusRA() try tell application "Pilotage réglages réseau" open database set list_configRA to name of every Remote Access configuration if name_configRA is not in list_configRA then my verifNomConfigRA() -- liste_etat ={"inactif", "connexion", "connecté", "déconnexion", "inconnu"} status of Remote Access configuration name_configRA set s to activity of result if s = idle then --idle/connecting/connected/disconnecting/unknown liste_etat's item 1 --"inactif" else if s = connected then liste_etat's item 3 --"connecté" else if s = connecting then liste_etat's item 2 --"connexion" else if s = disconnecting then liste_etat's item 4 --"déconnexion" else if s = unknown then liste_etat's item 5 -- "inconnu" end if set t to result close database end tell return t on error ert number ern try tell application "Pilotage réglages réseau" close database end tell end try error ert number ern end try end getConnectionStatusRA on verifNomConfigRA() try repeat tell application "Pilotage réglages réseau" open database set list_configRA to name of every Remote Access configuration if name_configRA is not in list_configRA then set name_configRA to false else if valid of Remote Access configuration name_configRA then close database exit repeat end if close database end tell activate set name_configRA to choose from list list_configRA with prompt "Veuillez choisir une configuration valide :" default items list_configRA's item 1 if name_configRA is false then error number -128 set name_configRA to name_configRA as string end repeat on error ert number ern try tell application "Pilotage réglages réseau" close database end tell end try error ert number ern end try end verifNomConfigRA on closeRAApps() tell application "Pilotage réglages réseau" to quit end closeRAApps [/SCRIPT] A+ -- Daniel
De : nicolas descombes <nicolas.descombes@xxxxxxx.fr> Date : Fri, 19 Apr 2002 21:40:16 +0200 Objet : [AS] Re: Connexion permanente Le 19/04/02 18:51, Daniel Varlet a écrit : > "--mark" est un marqueur de Smile ne pas en tenir compte. salut Daniel, ç'est quoi et ça sert à quoi "--mark" merci a+ Nicolas -- Traduction française de AppleScript Language Guide 1.3.7 Tome 1 -> 6 disponibles Sommaire général avec liens directs <http://trad.applescript.free.fr/Accueil.html> --
De : Jean-Marie Hoornaert <jean.marie.hoornaert@xxxxxxx.be> Date : Fri, 19 Apr 2002 21:51:11 +0200 Objet : [AS] Re: Connexion permanente Le vendredi 19 avril 2002 a 21:40, nicolas descombes a ecrit : >Le 19/04/02 18:51, Daniel Varlet a écrit : > > >> "--mark" est un marqueur de Smile ne pas en tenir compte. > >salut Daniel, > >ç'est quoi et ça sert à quoi "--mark" > Si tu disposes du gestionnaire d'osax, et que tu l'ouvres dans Smile (et uniquement dans celui-ci), et que tu déroules le menu "handlers" qui se trouve en bas à gauche de la fenêtre, tu remarqueras que les dits handlers sont classés par "familles". Les nom de ces familles sont généré par la "balise" -- mark. Les "codes" après le nom suivent les régles du Menu Manager de la Toolbox Mac et permettent d'affiché ce nom en italique souligné et précédé du losange dans l'exemple de Daniel. -- Cordialement. Jean-Marie -HOO;-) ____________________ Jean-Marie Hoornaert Courriel : jmh@xxxxxxx.be PPsP* : http://www.h2o.be Newsletter : jmh@xxxxxxx.be?subject=Infos_h2o * Page Personnelle sans Prétention * pour AppleScripter FileMaker
De : nicolas descombes <nicolas.descombes@xxxxxxx.fr> Date : Fri, 19 Apr 2002 23:27:24 +0200 Objet : [AS] Re: Connexion permanente Le 19/04/02 21:51, Jean-Marie Hoornaert a écrit : > Le vendredi 19 avril 2002 a 21:40, nicolas descombes a ecrit : > >> Le 19/04/02 18:51, Daniel Varlet a écrit : >> >> >>> "--mark" est un marqueur de Smile ne pas en tenir compte. >> >> salut Daniel, >> >> ç'est quoi et ça sert à quoi "--mark" >> > Si tu disposes du gestionnaire d'osax, et que tu l'ouvres dans Smile (et > uniquement dans celui-ci), et que tu déroules le menu "handlers" qui se > trouve en bas à gauche de la fenêtre, tu remarqueras que les dits > handlers sont classés par "familles". Les nom de ces familles sont généré > par la "balise" -- mark. > Les "codes" après le nom suivent les régles du Menu Manager de la Toolbox > Mac et permettent d'affiché ce nom en italique souligné et précédé du > losange dans l'exemple de Daniel. merci bien Jean-Marie, j'ai essayé et j'ai pu constater de visu. Très pratique pour accéder rapidement aux différents gestionnaires (handlers). bon week-end a+ Nicolas -- Traduction française de AppleScript Language Guide 1.3.7 Tome 1 -> 6 disponibles Sommaire général avec liens directs <http://trad.applescript.free.fr/Accueil.html> --