Planifier une tâche

Soyez le premier à donner votre avis sur cette source.

Vue 21 995 fois - Téléchargée 1 963 fois

Description

Tout est dans le zip, on y trouve un exemple de planification d'une tache selon deux methodes :
1 en utilisant la commande AT (DOS), pauvre mais facile
2 en utilisant un composant très riche mais mal documenté

Source / Exemple :


Private Sub Command1_Click()
    Shell "AT 13:15 /INTERACTIVE /EVERY:l,ma,me,j,v,s,d """ & App.Path & "\" & App.EXEName & ".exe"" auto"
    MsgBox "Une tâche sous le nom de AT1 a été crée"
End Sub

Private Sub Command2_Click()
    Dim Login As String, MotPasse As String
    Login = InputBox("Entrez votre nom d'utilisateur. " & vbCrLf & "(Le nom aevc lequel vous ouvrez votre session Windows)", "Authentification.")
    If Len(Login) = 0 Then Exit Sub
    MotPasse = InputBox("Entrez votre mot de passe Windows :", "Authentification.")
    If Len(MotPasse) = 0 Then Exit Sub
    
    Dim Schedule As Object, J As Object
    Set Schedule = CreateObject("TaskScheduler.Schedule")
    On Error GoTo Sortie
    Set J = Schedule.CreateTask("UsineAGaz")
    J.ApplicationName = App.Path & "\" & App.EXEName & ".exe"
    J.Creator = "Moi ou quiconque"
    'J.Triggers.Add.TriggerType = ttDaily
    'J.Triggers.Add.BeginDay = Now
    J.Triggers.Add.StartTime = CDate("13:15:00")
    'J.Flags = tfDisabled
    J.CommandLine = "auto"
    Ret = J.SetAccountInfo(Login, MotPasse)
    J.Save
    'J.ShowProperties
    MsgBox "La sauvegarde automatique a été planifiée pour une execution quotidienne à 13h15."
    Exit Sub
Sortie:
    Call MsgBox("UsineAGaz semble être déjà planifié. Si vous souhaitez le planifier de nouveau supprimez celui-ci d'abord dans le gestionnaire des tâches planifiées :" & vbCrLf & vbCrLf & "-->Panneau de configuration\Tâches planifiées", vbCritical)

End Sub

Conclusion :


PS : Je suis pas l'auteur du composant

Codes Sources

A voir également

Ajouter un commentaire Commentaires
infofatiha
Messages postés
1
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
10 juin 2007

10 juin 2007 à 12:46
j'aimerais planifier un travail schedulaire sous delphi 7 qui fait la sauvegarde d'une base de données sous sql serveur 2000
poldere
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007

11 avril 2007 à 22:59
Bonsoir, le programme fonctionne bien mais je voulais savoir si on peut forcer, après une création de tâche différentes options dans la fenêtre des propriétées.
Faire cocher d'office " Supprimer la tache si son exécution n'est plus planifier " ou " Arrêter la tâche si l'ordinateur passe en mode batterie " , etc sur toutes les options.
Merci si vous pouvez me mettre un exemple.
daetips
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007

5 juil. 2005 à 18:45
C'est bien et ca marche
cs_Simeoni
Messages postés
25
Date d'inscription
mardi 28 décembre 2004
Statut
Membre
Dernière intervention
3 août 2009

24 févr. 2005 à 06:02
<TaskScheduler> déjà vu... C'est pas terrible (Les triggers et tralala, let's do it !)... " Shell " c'est pas mal pour lancer une tache unique et rapidement mais bon... La dll qui convient le mieux pour la gestion des tâches planifiées Windows pour les développeurs vb et asp c'est ... Une dll que bcp de chevronnés utilisent... Elle est en téléchargement sur télécharger.com... Bref j'ai pas vu mieux... Ajout, Suppression, Modification des tâches... A voir si çà marche sur différents systèmes... Sur le mien "OUI !"

A+
daivil
Messages postés
87
Date d'inscription
mardi 25 juin 2002
Statut
Membre
Dernière intervention
4 juin 2005

6 août 2004 à 17:38
Comment virer une tache ?
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.