[R] Comment lancer un script toutes les minutes

[oliviernouhi]

Bonjour,

J'ai un script AutoIt très simple qui se connecte à mon ftp et il supprime un fichier X et le remplace par un fichier Y(très léger).
Mon script met 8-10 secondes en tout.

Actuellement je le lance de façon automatique via le " Planificateur de tâches Windows " mais on ne peut faire que toute les 5 minutes.

Je voudrais le faire toutes les minutes.
Ou même encore mieux, si cela existe : si le fichier X est différent du fichier Y alors on le remplace, sinon on fait rien.

Voici mon petit script :

Code : Tout sélectionner

$Pid = Run("C:\Program Files\FileZilla FTP Client\filezilla.exe") ; lancer le prog
WinWaitActive("FileZilla") ; attendre le prog se lance
WinSetOnTop("FileZilla", "", 0) ; mettre le prog en premier plan
;Sleep(2000) ; wait 2 sec

Send("nom_ftp")
Send("{TAB}")
Send("user_ftp")
Send("{TAB}")
Send("password_ftp")
Send("{TAB}")
Send("21")
Send("{TAB}"&@CRLF) ; tab ET enter
Send("{ESC}")

Sleep(1000) ; wait 1 secs

Send("{TAB 3}") ;
Send("C:\Users\onouhi\Desktop"&@CRLF)
Send("{ESC}")

Sleep(1000)
Send("{TAB 5}") ;
Send("{DOWN 6}") ;
Send("{DEL}"&@CRLF) ;
Send("{ESC}")

Sleep(1000)
Send("{TAB 6}") ;

Send("{DOWN 3}") ;

Sleep(1000)
Send(@CRLF)

Sleep(1000)
Send(@CRLF)

Sleep(1000)
Send("{ESC}")

Sleep(1000)
ProcessClose($pid) ; close le prog

Merci d'avance pour votre aide/conseil, restant à votre disposition

Olivier

[yohan8]

Tu peux faire rentrer ton script dans une boucle.

Code : Tout sélectionner

$n = 0
while $n = 0 ;tant que la valeur n reste à 0 on reste dans la boucle

[ton script]

sleep(60000) ;on attend une minute pour relancer ton script
If (action a vérifier) then ;pour trouver une échappatoir 
$n += 1 ;dans ce cas là on sort de la boucle et ton script se ferme
endif
Wend

[TopXm]

Salut,

Pour l'exécution tout les X minutes, voir aussi AdlibRegister

[TT22]

@yohan8 : Ton script est assez bien, mais le problème, c'est que comme oliviernouhi l'a dit, son script met 8~10 secondes.
Et tu met un Sleep pour 60 secondes.
On fait le calcul... 70 secondes environ
Ce qui crée un décalage, et en 6 minutes on exécute que 5 fois le script

Le mieux serait d'utiliser un Timer...

► Afficher le texte

Code : Tout sélectionner

while 1
    $Timer = TimerInit()
    [ton script]

    while (TimerDiff($Timer) <= 60000)
        Sleep(1)
    Wend
Wend

[yohan8]

Bigre voilà qu'on chipote
--> je sors

[oliviernouhi]

Merci beaucoup pour vos réponses, effectivement j'avais pas pensé a cette boucle.

Une dernière petite question :

Par contre au niveau mémoire, étant donné que le script va tourner en continu c'est pas trop gourmand (si il tourne 5 jours de suite par exemple )?

[TopXm]

C'est que ça le fait pas le AddLibRegister ?

[TT22]

Et bien, c'est vrai que ça risque d'utiliser un peut de mémoire...
Mais j'ai mis ça :

Code : Tout sélectionner

while 1
    $Timer = TimerInit()
    [ton script]

    while (TimerDiff($Timer) <= 60000)
        [color=#FF0000]Sleep(1)[/color]
    Wend
Wend

Ça ralentit déjà un peut la boucle, mais si tu veux empêcher que ça prenne trop de mémoire, tu peux l'augmenter
Mais plus tu l'augmente, plus ton script se décale, par exemple, si tu le met à 1000, le script se décalera d'entre 0 et 1 seconde à chaque minutes.

Donc, le plus sure serait de se baser sur l'heure , comme ça :

► Afficher le texte

Code : Tout sélectionner

$CURRENT_MIN = @MIN
while 1
    $Timer = TimerInit()
    [ton script]

    while ($CURRENT_MIN = @MIN)
        Sleep(1000)
    Wend
    $CURRENT_MIN = @MIN
Wend

Comme ça, il n'y a aucun décalage possible

PS : Tu vas laisser ton ordi allumé pendant 5 jours
J'espère qu'il a un ventilateur

[mikell]

Pfff TT22 , franchement...
TopXm a raison évidemment, il faut AdlibRegister
Pas de décalage, meilleur pour les ressources
Et la collection de Send est vraiment pas géniale, si tu touches à ton clavier au mauvais moment, tu risques d'avoir des effets intéressants
Pourquoi ne pas utiliser les fonctions FTP d'autoit ?

[Tlem]

Ou même encore mieux, si cela existe : si le fichier X est différent du fichier Y alors on le remplace, sinon on fait rien.

Je pense franchement que ceci est à préférer, plutôt qu'une boucle qui risque d'être inutile.

Commencez par régler votre problème sur l'autre sujet, car vraiment l'automation de FileZilla n'est pas le choix le plus judicieux avec AutoIt puisque ce dernier est capable d'exécuter des commande FTP directement.

[oliviernouhi]

je vais regarder ce week end

merci pour vos conseils je vous tiens au courant

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[lefleu]

Si je peux te conseiller, les sleep() sont à éviter. Sa met en pause le programme et en attendant tu ne peux rien faire. Une chose pas mal que je te conseille pour ton petit script, c'est de créer une fonction ou tu y met ton code, et tu fais un AdlibRegister("ta-fonction",60000) 60000 = 60 sec en gros sa appelle la fonction toutes les minutes.

J'espère que sa t'auras aidé

[oliviernouhi]

Merci pour vos conseils, je vais utiliser AdlibRegister

Voila mon code mais rien ne se passe, ai je fais une erreur ? oublier de déclarer quelquechose ou autre ?

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.8.1
 Auteur:         MonNom

 Fonction du Script :
    Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------

; Début du script - Ajouter votre code ci-dessous.

Func MyAdlib()
    $Pid = Run("C:\Program Files\FileZilla FTP Client\filezilla.exe") ; lancer le prog
    WinWaitActive("FileZilla") ; attendre le prog se lance
    WinSetOnTop("FileZilla", "", 0) ; mettre le prog en premier plan
    ;Sleep(2000) ; wait 2 sec

    Send("$FTP")
    Send("{TAB}")
    Send("$User")
    Send("{TAB}")
    Send("$Pass")
    Send("{TAB}")
    Send("$Port_oue_bon_on_sait_que_c_est_21")
    Send("{TAB}"&@CRLF) ; tab ET enter
    Send("{ESC}")

    Sleep(1000) ; wait 1 secs

    Send("{TAB 3}") ;
    Send("C:\Users\onouhi\Desktop"&@CRLF)
    Send("{ESC}")

    Sleep(1000)
    Send("{TAB 5}") ;
    Send("{DOWN 6}") ;
    Send("{DEL}"&@CRLF) ;
    Send("{ESC}")

    Sleep(1000)
    Send("{TAB 6}") ;

    Send("{DOWN 3}") ;

    Sleep(1000)
    Send(@CRLF)

    Sleep(1000)
    Send(@CRLF)

    Sleep(1000)
    Send("{ESC}")

    Sleep(1000)
    ProcessClose($pid) ; close le prog
EndFunc   ;==>MyAdlib

AdlibRegister("MyAdlib",60000)
;...
Exit

 

Dans un premier temps je veux utiliser AdlibRegister et mettre mon code dans une fonction pour automatiser le traitement, et après je verrai comment passer via les fonction ftp de autoIt

Merci d'avance de votre aide

[mikell]

Forcément, tu laisses ton script se fermer ...
Essaie ce test avec et sans la boucle while :

Code : Tout sélectionner

AdlibRegister("MyAdlib",2000)

While 1
sleep(10)
Wend

Func MyAdlib()
msgbox(0,"","ok", 1)
EndFunc

[oliviernouhi]

Merci, mon scripte se lance toutes les 15 secondes via :

Code : Tout sélectionner

Func MyAdlib()
    $Pid = Run("C:\Program Files\FileZilla FTP Client\filezilla.exe") ; lancer le prog
    WinWaitActive("FileZilla") ; attendre le prog se lance
    WinSetOnTop("FileZilla", "", 0) ; mettre le prog en premier plan
    ;Sleep(2000) ; wait 2 sec

    Send("$FTP")
    Send("{TAB}")
    Send("$User")
    Send("{TAB}")
    Send("$Pass")
    Send("{TAB}")
    Send("$Port_oue_bon_on_sait_que_c_est_21")
    Send("{TAB}"&@CRLF) ; tab ET enter
    Send("{ESC}")

    Sleep(1000) ; wait 1 secs

    Send("{TAB 3}") ;
    Send("C:\Users\onouhi\Desktop"&@CRLF)
    Send("{ESC}")

    Sleep(1000)
    Send("{TAB 5}") ;
    Send("{DOWN 6}") ;
    Send("{DEL}"&@CRLF) ;
    Send("{ESC}")

    Sleep(1000)
    Send("{TAB 6}") ;

    Send("{DOWN 4}") ;

    Sleep(1000)
    Send(@CRLF)

    Sleep(1000)
    Send(@CRLF)

    Sleep(1000)
    Send("{ESC}")

    Sleep(1000)
    ProcessClose($pid) ; close le prog
EndFunc   ;==>MyAdlib

AdlibRegister("MyAdlib",15000)

While 1
sleep(10)
Wend

Merci beaucoup.

Je clôture ce sujet pour continuer dans l'autre pour les commandes ftp dans AutoIt

[Jerome]

Coucou,


Je reste pas vraiment FAN de cette solution, en effet, la fonction adlibregister est plutôt utiliser pour de petite opération comme la détection d'erreur.

J'ai déjà observé une saturation de la mémoire de mon script autoit (bon après plus ou moins 72 h) à cause de la fonction adlibregister qui ne "libère pas de la mémoire".

Mais ce n'est que mon avis.


PS : edit de votre post, je pense que c'est plutot moyen de donner les accès a son ftp comme sa, perso je viens de pomper tout le contenu du ftp

PS2 : A ouééé, j'avais accés à toutes les photos ici : http://bde-ges.com/staff-poles/
Faite attention a la prochaine fois, je suis pas méchant mais d'autre si


Jérôme

[oliviernouhi]

Merci

[TopXm]

Hello

J'ai déjà observé une saturation de la mémoire de mon script autoit (bon après plus ou moins 72 h) à cause de la fonction adlibregister qui ne "libère pas de la mémoire".

Ah point très intéressant Jerome tu préconises quoi du coup ?
Je me suis permis de poser la question à la suite attendu qu'on reste dans le sujet Comment lancer un script toutes les minutes.
Désolé s'il ne fallait pas Merci de me confirmer si je dois ouvrir un nouveau topic.

[mikell]

+1
et plein de questions, le sujet est très intéressant
- ce pb de mémoire est dû à adlibregister ou à la fonction qui est adlibregisterisée ?
- existe-t-il un moyen de libérer cette mémoire en sortie de la fonction (réinitialisation, etc) ?
- existe-t-il une alternative ?
etc