AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>

Opt("TrayMenuMode", 1)
opt("TrayAutoPause",0)
Opt("WinWaitDelay",200)
Opt("WinTitleMatchMode",2)
Opt("WinDetectHiddenText",1)
opt("WinSearchChildren",1)
Opt("MouseCoordMode",0)

;##############################  Zimbra.ini 
zimbra_ini() ; initialisation des parametre de connexion au Pop3

;##################################### Création du Tray
$mail = _notifier()
$m_navigateur = TrayCreateItem("Ouvrir Zimbra V3.0")
TrayCreateItem("")
$m_connect = TrayCreateItem("Zimbra mail")
$m_mail= TrayCreateItem($mail & " Message(s)")
TrayCreateItem("")
$m_open = TrayCreateItem("Initiliser zimbra.ini")
TrayCreateItem("")
$m_exit = TrayCreateItem("Quitter")

TraySetState()
TraySetClick(9)
GUISetState(@SW_SHOW)
;~ TraySetIcon(@ScriptDir & "\ico2.ico")

$debut = TimerInit()

While 1
    $msg1 = TrayGetMsg()
    $diff=TimerDiff($debut)
    if $diff>900000 then ;15 minutes = 60000*15
        $mail=_notifier()
        TrayItemSetText($m_mail, $mail & " Message(s)")
        $debut = TimerInit()
    EndIf
    Select
        Case $msg1 = 0
            ContinueLoop
        Case $msg1 = $m_mail    
            TrayItemSetText($m_mail, _notifier() & " Message(s)")
        Case $msg1 = $m_navigateur
            run(@ScriptDir & "\zimbra_navigateur.exe")
        Case $msg1 = $m_connect
            start()
        case $msg1 = $m_open
            initialise()
        Case $msg1 = $m_exit
            exit
    EndSelect
WEnd

func start()
    
    #include "_html.au3" ;script générant le fichier HTML complité avec les éléments du INI crypté
                        ; ce fichier contient du Javascript pour soumettre directement les info du compte Pop3 au serveur
    
    ShellExecute(@ScriptDir & "\zimbra.htm")
    sleep(2000)
    if fileExists(@ScriptDir & "\zimbra.htm") then filedelete(@ScriptDir & "\zimbra.htm")
    
EndFunc

func initialise()
    $continue=msgbox(1,"Zimbra Mail","Ré-iniatilsation Zimbra.ini " & @lf & @lf & _
                    "Etes vous sur de vouloire poursuivre ?, cette opération effacera le fichier zimbra.ini existant")
    if $continue=1 Then
        if fileExists(@ScriptDir & "\zimbra.ini") then filedelete(@ScriptDir & "\zimbra.ini")
        zimbra_ini()
    endif
EndFunc

func zimbra_ini()
    #include "_ini.au3" ; script pour lire des données cryptées du Ini sur le compte Pop3
endfunc

func _notifier()
            
    TCPStartup ()
    $a = _pop3compt (_Pop3start ("pop.free.fr", 110, $id, $pass))
    if $a>=0 then 
        msgbox(64,"Mail Notificateur",  $a & " Messages dans la Boîte de réception",5)
        return $a
    endif
    if $a=-1 then 
        msgbox (64,"Mail Notificateur", "Connexion au serveur échoué",10)
        return "?" ; pas de connexion possible
    endif
    TCPCloseSocket ($pop3_socket)
    TCPShutDown ()
EndFunc

Func _Pop3start ($sServer, $iPort, $sUser, $sPass)
    ;connect
    $sock = TCPConnect (TCPNameToIP ($sServer), $iPort); 
;~      ou avec L'ip serveur -> 
;~      $sock = TCPConnect ($sServer, $iPort)
    If @error Then Return SetError (3, @ScriptLineNumber, -1)
    $iTime = TimerInit ()
    Do
        If TimerDiff ($iTime) > 15000 Then Return SetError (1, @ScriptLineNumber, -1)
        $sRecv = TCPRecv($sock, 32)
    Until StringLeft($sRecv, 3) = "+OK"
            
    ;auth
    TCPSend ($sock, "USER "&$sUser&@CRLF)
    $iTime = TimerInit ()
    Do
        If TimerDiff ($iTime) > 15000 Then Return SetError (1, @ScriptLineNumber, -1)
        $sRecv = TCPRecv($sock, 32)
        Sleep (10)
        If StringLeft($sRecv, 4) = "-ERR" Then Return SetError (2, @ScriptLineNumber, -1)
    Until StringLeft($sRecv, 3) = "+OK"
    TCPSend ($sock, "PASS "&$sPass&@CRLF)
    Do
    If TimerDiff ($iTime) > 15000 Then Return SetError (1, @ScriptLineNumber, -1)
    $sRecv = TCPRecv($sock, 32)
    Sleep(10)
    If StringLeft($sRecv, 4) = "-ERR" Then Return SetError (2, @ScriptLineNumber, -1)
    Until StringLeft($sRecv, 3) = "+OK"
    Return $sock
EndFunc

Func _pop3compt ($sock)
    TCPSend ($sock, "STAT"&@CRLF)
    $iTime = TimerInit ()
    Do
        If TimerDiff ($iTime) > 15000 Then Return SetError (1, @ScriptLineNumber, -1)
        $sRecv = TCPRecv($sock, 32)
        Sleep(10)
    Until StringLeft($sRecv, 3) = "+OK"
            
    $aSplit = StringSplit ($sRecv, " ")
    If $aSplit[0] < 3 Then Return SetError (2, @ScriptLineNumber, -1)
    Return $aSplit[2]
EndFunc

Code : Tout sélectionner

;init d'une globale qui va se souvenir du dernier nombre de messages présents sur le serveur
global $last_number_of_mail = 0



; ... rete du code jusqu'à la fonction _notifier

Func _notifier()
    SetError(0)   ; j'aime bien les retours @error, c'est souvent très pratique    
    TCPStartup ()
    $a = _pop3compt (_Pop3start ("pop.free.fr", 110, $id, $pass))
    if $a >= 0 then
        If $a > $last_number_of_mail Then
            ;nouveaux mails
            msgbox(64,"Mail Notificateur",  $a - $last_number_of_mail& " Messages dans la Boîte de réception",5)
            $last_number_of_mail = $a ; maj de la globale
        ElseIf $a < $last_number_of_mail Then
            ;cas particulier où le compte à pu être poper de façon aspirante, donc les messages ont été aspiré, puis des nouveaux sont arrivés entre 
            ;deux interrogations du serveur via cette appli
            If $a > 0 Then msgbox(64,"Mail Notificateur",  $a & " Messages dans la Boîte de réception",5)
            ;donc mise à jour de la variable témoin:
            $last_number_of_mail = $a
        EndIf
        Return $a
    ElseIf $a = -1 Then
        SetError(1)
        msgbox (64,"Mail Notificateur", "Connexion au serveur échoué",10)
        return "?" ; pas de connexion possible      ; <<<======== je mettrai un autre type de retours, car ici la fonction retourne un coups
        ;du number, un coups de la string ... 
    Else
        SetError(2)
        msgbox (64,"Mail Notificateur", "Paramètre de reours inconnu",10)
        Return -2
    endif
    TCPCloseSocket ($pop3_socket)
    TCPShutDown ()
EndFunc