AutoIt Français

Code : Tout sélectionner

; Mise en place des paramétrages THB

; On recherche le texte n'importe ou dans le titre d'une fenêtre
Opt("WinTitleMatchMode", 2)

$proxy = "SERVEUR_WEB/PROXY.pac"

; On démarre THB
Run(@ProgramFilesDir & "\THB\thunderbird.exe", "", @SW_RESTORE)
Sleep(1500)
; On échappe la procédure d'identification
Do
    Send("{ESC}")
    Sleep(500)
Until WinActive("[TITLE:THB; CLASS:MozillaUIWindowClass]")

; Normalement on est sur THB
Send("{ALT}O")
Send("O")
 

Code : Tout sélectionner

; Mise en place des paramétrages THB

; On recherche le texte n'importe ou dans le titre d'une fenêtre
Opt("WinTitleMatchMode", 2)

$proxy = "ServeurWeb/proxy.pac"
$F_Auto = "network.proxy.autoconfig_url"
$F_Type = "network.proxy.type"

; On démarre THB
Run(@ProgramFilesDir & "\THB\thunderbird.exe", "", @SW_MAXIMIZE)
Sleep(1500)
; Si THB vient d'être ouvert, on me demande le mot de passe
; On échappe la procédure d'identification
Do
    Send("{ESC}")
    Sleep(500)
Until WinActive("[TITLE:thunderbird; CLASS:MozillaUIWindowClass]")
; Plus de mot de passe demandé. Normalement on est sur THB

Send("{ALT}O")
Send("O")
Sleep(1000)

if WinActive("[TITLE:Options]") Then
    ; Là, j'ai ouvert ma page d'option
    ; J'utilise les coordonnées de la souris par rapport à la fenêtre active
    Opt("MouseCoordMode",0)
    ; Je clique sur l'icône avancé
    MouseClick("left",460,50)
    ; Je clique sur l'onglet Général
    MouseClick("left",35,100)
    ; Je clique sur le bouton Editeur de conf
    MouseClick("left",460,295)
    ; Je fais mon traitement
Else
    ; La fenêtre d'option n'est pas active
EndIf
; Je remets options par défaut
Opt("MouseCoordMode",Default)
Opt("WinTitleMatchMode", Default)


Exit