Voici mon code :
Code : Tout sélectionner
Run("C:\Program Files\Mozilla Thunderbird\thunderbird.exe")
WinWaitActive("Entrez votre mot de passe :")
Sleep(3000)
Send("{Tab 3}")
Sleep(1500)
Send("{ENTER}")
Sleep(1500)
Send("!o")
Sleep(1500)
Send("i")
Send("{ENTER}")
Sleep(1000)
Send("{Tab}")
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
Send("{down 5}")
Sleep(1000)
Send("{Tab 2}")
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
Send("C:\Profil\Departement.ldif")
Sleep(1000)
Send("!o")
#include<array.au3>
Dim $cord
While 1
$cord = ControlGetPos("", "", "[CLASS:MozillaWindowClass; INSTANCE:3]")
If IsArray($cord) Then
Send ("{ENTER}")
Sleep (1000)
Send("!fq")
Sleep (1000)
EndIf
WEndJusque là, pas de problème, mais après avoir quitter Thunderbird..., le script reste en pause et ne se ferme pas automatiquement. Je suis obligé de cliquer sur Quitter dans le Systray. Cela n'est certes pas un gros effort, mais je voudrais que cela soit transparent pour l'utilisateur.
Il doit manquer quelque chose dans la boucle While ou une fonction supplémentaire forçant la clôture du script même s'il est en pause, mais mes recherches ne m'ont pas permis pour l'instant d'aboutir.
Aussi, fais-je appel à votre générosité.
Merci d'avance.
Dominique.
(Le script n'est pas clos)
, et je pense (mais je peux me tromper) que le problème vient du While 1 : c'est pas une boucle infinie ?