[..] Comment lancer un script tous les jours à la même heure

[impactjlr]

Bonjour,

je séche sur une partie de mon script, une précision, je débute dans AUTOIT.
J'ai besoin d'aller chercher des éléments tous les jours sur un serveur de production statistique. Avec Autoit, j'ai réalisé la partie : ouverture, récupération et enregsitrement des éléments téléchargés sur le serveur statistique.

Ce que je souhaite, c'est démarrer ce script tous les jours à la même heure pour qu'a mon arrivée les éléments soient déjà téléchargés.

Comment faire, j'imagine qu'il me faut une boucle infinie qui va comparer l'heure système à l'heure que j'ai définie, dès que mon horaire est atteint je lance le script, mais il ne faut pas que le programme s'arrête à la fin du script et qu'il redémarre le lendemain matin de la même façon et ainsi de suite ....

Est-ce possible ? Comment utiliser une boucle dans ce cas là ?

mon code :

► Afficher le texte

Code : Tout sélectionner

;variable adresse  infocentre
$adresse = "https://......."

;lance internet explorer et infocentre
Run("c:\program files\Internet Explorer\iexplore.exe" & ' "' & $adresse & '"' )
Sleep(4000) 

;focus sur la fenêtre des codes d'accès
WinActive("Connexion à cmwebinfo2.contactmulticanal.fr")
Send("{ENTER}")
Sleep(8000)

;clic sur cadproduction
MouseMove(95,250,10)
MouseClick("left",95,250,1)
Sleep(8000)

;clic sur appels détaillés
MouseMove(95,280,10)
MouseClick("left",95,280,1)
Sleep(8000)

;clic sur appels détaillés_export
MouseMove(1039,250,10)
MouseClick("left",1039,250,1)
Sleep(60000)

;clic Type_export
MouseMove(820,330,10)
MouseClick("left",820,330,1)
Sleep(600)

;Selection Excel + clic
MouseMove(820,430,10)
Sleep(200)
MouseClick("left",820,430,1)

;clic sur exporter
MouseMove(860,330,10)
Sleep(200)
MouseClick("left",860,330,1)

;enregistrement du fichier appels détaillés
WinWaitActive("Téléchargement de fichiers")
Sleep(150)
ControlClick("Téléchargement de fichiers", "", "[CLASS:Button; INSTANCE:2]")
Sleep(3000)
send("{ENTER}")
sleep(3000)
Controlclick("Enregistrer sous", "", "[CLASS:ToolbarWindow32; INSTANCE:4]")
sleep(3000)
Send("K:\AMOA")
sleep(3000)
send("{ENTER}")
sleep(3000)
ControlClick("Enregistrer sous", "", "[CLASS:Button; INSTANCE:1]")
sleep(3000)
WinWaitActive("Confirmer l’enregistrement")
sleep(150)
Controlclick("Confirmer l’enregistrement", "&Oui", "[CLASS:Button; INSTANCE:1]")


; A partir d'ici je récupére le rapport Etat des agents

Sleep(45000)

;clic sur CadProduction
MouseMove(245,150,10)
MouseClick("left",245,150,1)
Sleep(8000)

;clic sur Etats des Agents
MouseMove(1020,250,10)
MouseClick("left",1020,250,1)
Sleep(8000)

;clic sur Etats des Agents_export
MouseMove(1020,250,10)
MouseClick("left",1020,250,1)
Sleep(60000)

;clic Type_export
MouseMove(820,330,10)
MouseClick("left",820,330,1)
Sleep(600)

;Selection Excel + clic
MouseMove(820,430,10)
Sleep(200)
MouseClick("left",820,430,1)

;clic sur exporter
MouseMove(860,330,10)
Sleep(200)
MouseClick("left",860,330,1)

;enregistrement du fichier appels détaillés
WinWaitActive("Téléchargement de fichiers")
Sleep(150)
ControlClick("Téléchargement de fichiers", "", "[CLASS:Button; INSTANCE:2]")
Sleep(3000)
send("{ENTER}")
sleep(3000)
Controlclick("Enregistrer sous", "", "[CLASS:ToolbarWindow32; INSTANCE:4]")
sleep(3000)
Send("K:\AMOA")
sleep(3000)
send("{ENTER}")
sleep(3000)
ControlClick("Enregistrer sous", "", "[CLASS:Button; INSTANCE:1]")
WinWaitActive("Confirmer l’enregistrement")
sleep(150)
Controlclick("Confirmer l’enregistrement", "", "[CLASS:Button; INSTANCE:1]")
Sleep(45000)


Winclose("Gestionnaire de rapports - Windows Internet Explorer")
 

Merci à tous pour votre aide !!

Impactjlr

[sylvanie]

Bonsoir
sincèrement, au lieu d'y aller à coups d'adlibenable ou de sleep avec des comparaisons d'heures, je ferai un script qui fait ce que vous voulez sans me soucier de l'aspect répétition et je le lancerai grâce au planificateur de tâche de Windows

[impactjlr]

Effectivement, pourquoi chercher à faire compliqué !!
Merci, je vais programmer plannifier une tâche avec le plannificateur de Windows !

Promis le prochain coup je réfléchis !

Encore merci

[matwachich]

Si tu veut que le script créer lui même sa tache planifiée, tape dans l'invite de commande: schtasks /?

[Jerome]

Promis le prochain coup je réfléchis !

Merci de ne pas oublier la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[Habibsbib]

La planification de tâches est une bonne idée, mais l'utilisateur bloque parfois cette fonctionnalité.
Si ton programme n'est pas destiné à ton usage personnel, je te conseille plutôt d'ajouter ton exécutable dans la table du registre "Startup Entry", ce qui te permettra de lancer ton programme à chaque démarrage du PC sur lequel il est installé, comme ceci :

Code : Tout sélectionner

RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" ,"TuMéSeKeTuVe" , "REG_SZ" , @ScriptFullPath)

Et ça doublé d'une boucle de vérification de l'heure, avec TimerInit et TimerDiff.
Ajoutes également au début de ton script un #RequireAdmin, il y a des restrictions pour l'écriture de données dans le registre.

[sylvanie]

La planification de tâches est une bonne idée, mais l'utilisateur bloque parfois cette fonctionnalité.

ça n'arrive uniquement que si l'utilisateur en question à des droits d'administration. Et dans ce cas là il aura aussi bien le droit de tuer le process que de nettoyer la registry. Du coups l'interêt de développer son propre timer est amoindri.

[legend]

Bonjour,
je conseille d'ajouter des pixelsearch dans ton script, au lieu des sleep et des mouseclick bidon qu'il comporte
ce qu'il peut se passer : un petit bug et une fenetre se charge dans 100ms plus que le sleep que t'a mis => le click ne marchera pas, les clicks suivants seront pas dans les endroits que tu voulais. 20clicks seront suffisants pour faire une grande modification sur ton pc qui peut être fatale
pour plus d'infos mp moi, je suis trés expérimenté dans ce domaine puisque j'ai deja fait une dizaine de scripts comme cela.
ps : pourquoi faire un mousemove suivi d'un mouse click dans le même endroit? le mouse click suffira, il sera possible de régler sa vitesse :
mouseclick ("bouton", x, y, nbre_clicks, vitesseclicks), entre 0 et 100, 100est trés lente et 0 est instantanée.
bonne journée

[bloodwolff]

Voila un petit script qui te permet de lancer le script à l'heure voulu, tu n'as qu'a appliquer l'astuce cité plus haut pour le lancer au démarrage
Si tu n'aime pas la Gui tu n'as qu'à remplacer la parti Gui par la ligne inscrite en commentaire en remplacant bien heure par l'heure et minute par les minutes

► Afficher le texte

Code : Tout sélectionner

;########################################################
;####################### Parti Gui ######################
;########################################################

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If IniRead(@ScriptName & "_config.ini","Heure","Heures","")="" And _
    IniRead(@ScriptName & "_config.ini","Heure","Minutes","")="" then
$Form1 = GUICreate("", 172, 77, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 32, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
$Input2 = GUICtrlCreateInput("", 56, 32, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
$Label1 = GUICtrlCreateLabel("H", 40, 32, 15, 20, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Min", 88, 32, 28, 20, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Toujours lancer à cette heure", 8, 56, 161, 17)
$Label3 = GUICtrlCreateLabel("Heure de lancement", 16, 8, 143, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Ok", 120, 29, 35, 25)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                IniWrite(@ScriptName & "_config.ini","Heure","Heures",GUICtrlRead($Input1))
                IniWrite(@ScriptName & "_config.ini","Heure","Minutes",GUICtrlRead($Input2))
            EndIf
            Global $heure_lancement[2] =[GUICtrlRead($Input1),GUICtrlRead($Input2)]
            GUIDelete($Form1)
            ExitLoop
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Else
    Global $heure_lancement[2] =[IniRead(@ScriptName & "_config.ini","Heure","Heures",""),IniRead(@ScriptName & "_config.ini","Heure","Minutes","")]
EndIf
;############################################################ Peut être remplacer par Global $heure_lancement[2] =[heure,minute]

While 1
    _Attendre()
    ;ICi tu met les actions à réaliser
WEnd

Func _Attendre()
    Dim $temps[2]
    $temps[0]=Number($heure_lancement[0])-@HOUR
    If $temps[0] < 0 Then $temps[0] = 24 + $temps[0]
        $temps[1]=Number($heure_lancement[1])-@MIN
    If $temps[1] < 0 Then $temps[1] = 60 + $temps[1]
    If Not $temps[1]=0 Then $temps[0]=$temps[0]-1
    $temps[0]= (($temps[0]*60)+$temps[1])*60000
    Sleep($temps[0])

EndFunc ;==> _Attendre()

[bloodwolff]

Le problème n'est pas résolu ? Sinon merci de dire ce qu'il manque