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 : Proniewski <patpro@xxxxxxx.net>
À : <maison@xxxxxxx.net>
Date : lundi 4 septembre 2000 16:31
Objet : Tr: applescript_fr Digest #25


--
la mailing list applescript francophone
c'est http://www.macplus.net/ML/AS_fr.shtml

----------
>De : <applescript_fr@xxxxxxx.net> (Liste AppleScript francophone)
>À : <applescript_fr@xxxxxxx.net> (Liste AppleScript francophone)
>Objet : applescript_fr Digest #25
>Date : Lun 04 sep 2000 16:33
>

>         Liste AppleScript francophone Digest #25
>
>  1) [LONG] script de connexion à Internet
>     by Xavier Morizot <xmorizot@xxxxxxx.com>
>  2) Re: script de connexion à Internet
>     by Patrick Proniewski <patrick.proniewski@xxxxxxx.fr>
>
> This digest is sent to you because you are subscribed to
>   the mailing list <applescript_fr@xxxxxxx.net>.
> To unsubscribe, E-mail to: <applescript_fr-off@xxxxxxx.net>
> To switch to the FEED mode, E-mail to <applescript_fr-feed@xxxxxxx.net>
> Send administrative queries to  <applescript_fr-request@xxxxxxx.net>
>
> Date: Sun, 03 Sep 2000 22:45:57 +0200
> Subject: [AS] [LONG] script de connexion =?ISO-8859-1?Q?à_Internet?
> From: Xavier Morizot <xmorizot@xxxxxxx.com>
> Message-ID: <B5D88524.454%xmorizot@xxxxxxx.com>
> Content-type: text/plain; charset="ISO-8859-1"
> Content-transfer-encoding: quoted-printable
>
> *This message was transferred with a trial version of CommuniGate(tm) Pro*
> J'ai un problème avec le script suivant ci-dessous. Il permet une connexion
> automatique à Internet. J'ai essayé de le tester en provoquant une erreur
> (j'ai débranché le modem de la ligne téléphonique) afin de tester les
> instructions suivant le "on error". Normalement, si l'erreur se produit 5
> fois, le script devrait quitter or il n'en est rien. Je ne vois pas d'où
> pourrait venir mon erreur. Merci de me guider.
> Xavier, lycéen macintoshien (qui a un peu pour ne pas dire beaucoup de mal
> avec AppleScript)
>
> on run
>     set the wait_amount to 180
>     set the delay_time to 10
>     set the num_queries to (the wait_amount div the delay_time)
>     
>     with timeout of 9999 seconds
>         MyConnect()
>     end timeout
> end run
>
> on MyConnect()
>     set x to 0
>     repeat
>         if x = 5 then quit
>         try
>             tell application "Pilotage réglages réseau"
>                 open database
>                 connect Remote Access configuration "Wanadoo"
>                 repeat num_queries times
>                     set current_status to the status of ¬
>                         Remote Access configuration "Wanadoo"
>                     if the activity of current_status is "connected" then
>                         exit repeat
>                     else
>                         delay delay_time
>                     end if
>                 end repeat
>                 close database
>             end tell
>             exit repeat
>         on error
>             tell application "Pilotage réglages réseau"
>                 disconnect Remote Access configuration "Wanadoo"
>                 close database
>             end tell
>             delay 20
>         end try
>         x = x + 1
>     end repeat
> end MyConnect
>
> Date: Sun, 03 Sep 2000 23:22:01 +0200
> Subject: [AS] Re: script de connexion =?ISO-8859-1?Q?à_Internet?
> From: Patrick Proniewski <patrick.proniewski@xxxxxxx.fr>
> Message-ID: <B5D88D99.F70%patrick.proniewski@xxxxxxx.fr>
> Content-type: text/plain; charset="ISO-8859-1"
> Content-transfer-encoding: quoted-printable
>
> *This message was transferred with a trial version of CommuniGate(tm) Pro*
> le 3/09/00 22:45, Xavier Morizot à xmorizot@xxxxxxx.com a écrit :
>
>> Je ne vois pas d'où
>> pourrait venir mon erreur. Merci de me guider.
>
>> x = x + 1
>
> elle est la ton erreur :)
>
> fais un script avec juste ceci :
>
> set x to 0
> x = x + 1
>
> et exécute le dans l'editeur : il te donne comme résultat "false"
pourquoi?
> parce que x = x + 1 est un test !
> si tu veux incrémenter x il faut utiliser ceci :
>
> set x to x + 1
>
> voila :-)
> C'est normal, quand on a le nez dessus on voit difficilement son erreur.
>
> patpro
> -- 
> "Rien ne se perd, rien ne se crée, tout s'empile"
>                              - Mon Bureau -
>