Différer l'éxécution d'une fonction

Si ma liste d'attente est une liste de messages :

A la place d'enregistrer les messages dans un fichier texte, je les differe :
Je cree un compteur initialisé à -1
On veut envoyer un message :
- On recupère le compteur
- on ajoute +1
- Si le résultat est 0 : on envoie le message dans 0*5s => imméditament
- Si le résultat est 1 : on envoie le message dans 1*5s
- Si le résultat est n : on envoie le message dans n*5s

Lorsqu'on envoie le message :
- On recupère le compteur
- on ajoute -1 (on soustrait 1)

Comment faire pour différer la fonction msgbox, ou une foction ?

Quelque chose qui ressemble à ça ? :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

SUb liste_attente(message)   Dim OFS, oLigne Dim bLigne1lue Dim sLigne Const ForReading = 1, ForWriting = 2 Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFlu = oFSO.OpenTextFile("c:\fichier1.txt", ForReading)   Do While Not oFlu.AtEndOfStream   'Récupération valeur compteur sLigne = oFlu.ReadLine   Loop   oFlu.close     If sLigne=0 Then   ma_fonction(message)   Else   interval_de_temps=5   'ma_fonction(message) dans sLigne*interval_de_temps, qui s'executera donc plsu tard   'Incrémentation nouveau=sLigne+1   Set oFec = oFSO.OpenTextFile("c:\fichier1.txt", ForWriting,true) 'Enregistrement oFec.WriteLine (nouveau) oFec.close   End If   End Sub

---

Notons l'utilisation de la boucle pour une ligne....

salut,
sinon la méthode sleep de l'objet wscript est pas mal non plus...
lire la doc :aie:

Je croyais que Sleep mettais complétement en pause le script ?
Et ou est ce que je peux trouver la doc complète ?

Là

et Là

OK merci ! Je vais voir tout ça !