;
; AutoIt Version: 3.0
; Language:       Français
; Platform:       WinXp/NT
; Author:         François
;
; Script Function: 
      ; execution automatique des verifications ESPACE PORTAIL



; Prompt the user to run the script - use a Oui/Non prompt (4 - see help file)
$answer = MsgBox(4, "Executer les verifications ESPACE PORTAIL", "Ce script verifie les acces aux applis ESPACE PORTAIL. Voulez-vous executer le script?")



; Check the user's answer to the prompt (see the help file for MsgBox return values)
; If "Non" was clicked (7) then exit the script
If $answer = 7 Then
	MsgBox(0, "Executer les verifications ESPACE PORTAIL", "Action Annulée. Aurevoir")
    Exit
EndIf

; Check the user's answer to the prompt (see the help file for _IELoadWait SIGMA return values)
; If "Oui" was clicked (7) then Run the script

#include <IE.au3>
; connexion au site 
$oIE = _IECreate ("https://site N°1")
; Déconnexion du site
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Enter}")
_IELoadWait ($oIE)
Sleep(1000)
; Connexion ESPACE PORTAIL que j'aimerai faire en passant par un fichier qui permettrait de s'authentifier. Actuellement je me connecte comme ça.
Send("le login")
Send("{Tab}")
Send("le mot de passe")
Send("{Enter}")
; 30 sites en tout...
_IELoadWait ($oIE)
_IENavigate ($oIE, "https://site N°2")
_IELoadWait ($oIE)
Sleep(2000)
_IENavigate ($oIE, "https://site N°3")
_IELoadWait ($oIE)
Sleep(2000)

; Récupération des résultats de connexions dans un fichier texte ou log avec date si possible et pouvant être implémenté d"un jour sur l'autre.

???????????????????????

; Déconnexion ESPACE PORTAIL
Sleep(2000)
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Enter}")
_IELoadWait ($oIE)
Sleep(2000)
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Tab}")
Send("{Enter}")
_IELoadWait ($oIE)
sleep(2000)
ProcessClose("IExplore.exe")
Exit