AutoIt Français

Code : Tout sélectionner

Opt("WinTitleMatchMode",2)
$Build = IniRead("C:\ClouDevSet.ini","CompileParams","Build","0001")
If $Build = "0001" Then
    IniWrite("C:\ClouDevSet.ini","CompileParams","Build","0001")
EndIf
TrayTip("","ClouDev Compilation Output est maintenant actif." & @CRLF & "Vos compilations seront envoyées vers votre serveur ClouDev.",30)
WinWait("[CLASS:AutoIt v3]")
TrayTip("","Nouvelle compilation détectée.",30)
$TimeStart = @HOUR & "h" & @MIN & "m" & @SEC & "s"
$CmpT = 0
While 1
    If WinExists("[CLASS:AutoIt v3 GUI]") = 1 Then
        $CmpErr = 1
        $Type = 1
        ExitLoop
    EndIf
    If WinExists("[CLASS:#32770]") = 1 Then
        $CmpErr = 1
        $Type = 2
        ExitLoop
    EndIf
    If $CmpT = 100 Then
        $CmpError = 1
        ExitLoop
    EndIf
    Sleep(100)
    $CmpT = $CmpT + 1
WEnd
If $CmpErr = 0 Then
    MsgBox(64,"Compilation","Compilation réussie sans erreurs.")
    $ST = "Réussie"
    $Errs = "Compilation ..." & @CRLF & @CRLF & "Compilation Ended."
Else
    If $Type = 1 Then
        $Errs = ControlGetText("Au3Check errors","", 6)
    Else
        $Errs = ControlGetText("Aut2Exe Error","", 65535)
    EndIf
    $Errs = StringReplace($Errs, @UserName, "{USER}")
    $Errs = "Compilation ..." & @CRLF & $Errs & @CRLF & @CRLF & "Compilation aborted."
    MsgBox(64,"Compilation","Compilation échouée. Erreurs enregistrées")
    $ST = "Echouée"
EndIf
$NumBuild = InputBox("Compilation Output","Une compilation a été détectée, entrez un numéro de build supérieur à " & $Build & ".")
If $NumBuild < $Build OR $NumBuild = $Build Then
    $NumBuild = $Build + 1
    MsgBox(48,"Attention","Mauvais numéro de build. Numéro remis à " & $NumBuild & ".")
EndIf
If StringLen($NumBuild) < 4 Then
    While 1
        $NumBuild = "0" & $NumBuild
        If StringLen($NumBuild) = 4 Then
            ExitLoop
        EndIf
    WEnd
EndIf
IniWrite("C:\ClouDevSet.ini","CompileParams","Build",$NumBuild)
$TimeStop = @HOUR & "h" & @MIN & "m" & @SEC & "s"
$FDebug = "Compilation de la build " & $NumBuild & @CRLF & "Etat : " & $ST & @CRLF & "OUTPUT :" & @CRLF & $Errs
FileWrite("B_" & $NumBuild & ".txt",$FDebug)