AutoIt Français

Bonjour, Bonsoir,

Sa fera environ un mois que j'essaye de comprendre le fonctionnement de la progressBar pour le faire fonctionner dans mon script qui en gros fait seulement des mises à jour windows.

(S.V.P. ne pas me dire que windows updates fait déjà sa automatiquement, je suis totalement au courant...)

donc, présentement j'utilise temporairement le "GUICtrlListView_SetItemText" en attendant...

en gros ce mois ci, jai faite des recherches et lus pas mal tous les tutos autant sur ce forum que sur celui en anglais et tenté a plusieurs reprises de faire en sorte que la barre de progression montre à combien de "%" le téléchargement / l'installation est complété sur la mise à jour.

Bon voici la parti du script:

► Afficher le texte

Code : Tout sélectionner

    $objSearcher = _CreateMSUpdateSession($Host)
    For $x = 1 To $Selected[0]
        $item = _GUICtrlListView_GetItemText($NeededListView, $Selected[$x])
        For $i = 0 To $ColNeeded.Updates.Count - 1
            $update = $ColNeeded.Updates.Item($i)
            If $item = $update.Title Then
                GUICtrlSetData($UpdatesFound, "Téléchargement de " & $x & " à " & $Selected[0] & " Updates")
                _GUICtrlListView_SetItemText($NeededListView, $i, "Téléchargement...", 1)
                _GUICtrlListView_SetItemFocused($NeededListView, $i)
                _GUICtrlListView_EnsureVisible($NeededListView, $i)
                $updatesToDownload = ObjCreate("Microsoft.Update.UpdateColl")
                $updatesToDownload.Add($update)
                $DownloadSession = $objSearcher.CreateUpdateDownloader()
                $DownloadSession.Updates = $updatesToDownload
                $DownloadSession.Download
                _GUICtrlListView_SetItemText($NeededListView, $i, "Téléchargé", 1)
            EndIf
        Next
    Next

    $RebootNeeded = False
    For $x = 1 To $Selected[0]
        $item = _GUICtrlListView_GetItemText($NeededListView, $Selected[$x])
        For $i = 0 To $ColNeeded.Updates.Count - 1
            $update = $ColNeeded.Updates.Item($i)
                If $item = $update.Title And $update.IsDownloaded Then
                GUICtrlSetData($UpdatesFound, "Installation de " & $x & " sur " & $Selected[0] & " Updates")
                _GUICtrlListView_SetItemText($NeededListView, $i, "Installation...", 1)
                _GUICtrlListView_SetItemFocused($NeededListView, $i)
                _GUICtrlListView_EnsureVisible($NeededListView, $i)
                $InstallSession = $objSearcher.CreateUpdateInstaller()
                $updatesToInstall = ObjCreate("Microsoft.Update.UpdateColl")
                $updatesToInstall.Add($update)
                $InstallSession.Updates = $updatesToInstall
                $installresult = $InstallSession.Install
                If $installresult.RebootRequired Then
                    $RebootNeeded = True
                EndIf
                _GUICtrlListView_SetItemText($NeededListView, $i, "Accomplie", 1)

Mes plus beau sentiments,
Jivaross

Où se situe ton problème exactement ?
Montre-nous le code que tu as fait avec GUICtrlCreateProgress()...

désolé ses justement pour sa que je post dans cette section, si possible que quelqu'un me disent comment la faire fonctionner avec mon script car honnêtement je suis découragé

Cordialement,
Jivaross

Je veux bien t'aider, mais il faudrait que tu postes un code fonctionnel, pas juste un extrait...

ok je croyais que c'était cette parti seulement a travailler désolé :S

je te l'envoie en mp !

Jivaross

Je peut te proposer un UDF que j'avais fait pour moi et qui remplace GUICtrlCreateProgress()
On peut choisir les couleurs et la progression s'affiche dessus.

► Afficher le texteUDF

Code : Tout sélectionner

#cs
Tittle: Progressbar2.au3

Auteur:         Tom.Aijerrie

#ce
#include-once
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>

Func _GUICtrlCreateProgressBar($left,$top,$with = 300 ,$height = 20,$style = 1,$color_bk = 0xFFFFFF,$color_bar = 0x00FF00, $color_txt = 0x000000)
;Creation de la barre de progression
;Retourne une variable tableau, sur le meme principe des handles
;$bar =  _GUICtrlCreateProgressBar(...)
If $style = 1 Then
    Local $1 = 1
    Local $2 = $height
ElseIf $style = 4 Then
    Local $1 = $with
    Local $2 = 1
Else
    Return 0
EndIf



Global $l_bk = GUICtrlCreateLabel( "",$left,$top, $with,$height)
GUICtrlSetBkColor($l_bk,$color_bk)

Global $l_bar = GUICtrlCreateLabel("",$left,$top,$1,$2)
GUICtrlSetBkColor($l_bar,$color_bar)

Global $l_adv = GUICtrlCreateLabel(0 & " %",$left,$top,$with,$height,$SS_CENTER + $SS_CENTERIMAGE )

GUICtrlSetColor(-1,$color_txt)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)



Local $return[10] = [$style,$l_bk,$l_bar,$l_adv,$left,$top,$1,$2,$with ,$height]
Return $return

EndFunc

Func _Barresetstate($l_bk,$l_bar,$l_adv,$state)
; Guictrlsetstate ne marchant pas, il faut utiliser cette fonction
;
;($bar[1],$bar[2],$bar[3])
GUICtrlSetState($l_bk,$state)
GUICtrlSetState($l_bar,$state)
GUICtrlSetState($l_adv,$state)
EndFunc

Func _BarreSetAdv($style,$l_bk,$l_bar,$l_adv,$left,$top,$tmp1,$tmp2,$with ,$height,$adv)
;Met à jour le barre de progression
;$bar = _barresetadv($bar[0],$bar[1],$bar[2],$bar[3],$bar[4],$bar[5],$bar[6],$bar[7],$bar[8],$bar[9])
;Le return sert à mettre à jour le "handle"
    If $adv < 0 Or $adv > 100 Then Return
If $style = 1 Then
    Local $1 = 1 + $adv * $with / 100
    Local $2 = $height
ElseIf $style = 4 Then
    Local $1 = $with
    Local $2 = 1 + $adv * $with / 100
Else
    Return 0
EndIf

    GUICtrlSetPos($l_bar,$left,$top,$1,$2)
    GUICtrlSetData($l_adv,$adv & " %")

    Local $return[10] = [$style, $l_bk, $l_bar,$l_adv,$left,$top,$1,$2,$with ,$height]

Return $return

EndFunc

Func _BarreGetAdv($l_adv)
;Retourne la progression de la barre
;($bar[3])
    Return GUICtrlRead($l_adv)
EndFunc

Cependant, pour ton problème, tu n'utilise pas la fonction GuiCtrlCreateProgress(...) mais une fonction objet qui m'ai complètement inconnue.
Je ne pense pas pouvoir t'aider plus que ça...

Jivaross a écrit :je te l'envoie en mp !

Ce sujet est susceptible d'intéresser d'autres membres, mais s'il doit se traiter par MP (bien que j'aie du mal à percevoir ce qu'il peut y avoir de confidentiel dans des mises à jour Windows) sans que les autres membres aient accès aux conclusions alors il n'a aucune raison d'exister et sera supprimé

Rappel : ce forum est un forum d'entraide communautaire

mikell a écrit :
Jivaross a écrit :je te l'envoie en mp !
Ce sujet est susceptible d'intéresser d'autres membres, mais s'il doit se traiter par MP (bien que j'aie du mal à percevoir ce qu'il peut y avoir de confidentiel dans des mises à jour Windows)
Rappel : ce forum est un forum d'entraide communautaire

Désolé, mais le script entier ne fait pas seulement des mises à jour windows mais aussi toute le montage d'un nouveau PC sortant de sa boite en se servant de liens publiques au serveur ftp de la compagnie que je travaille pour.

[EDIT]: le sujet du poste n'a jamais été résolu, je n'ai toujours pas réussi a faire en sorte qu'une progressbar soit fonctionnel.

Pour ce qui est du rappel: J'aiderai avec plaisirs pour ceux qui voudront savoir ma facon de faire des mises à jour windows au complet sans avoir à surveiller une fois.

Cordialement,
Jivaross

Jivaross le Mar 29 Avr 2014 17:41 a écrit :... mon script qui en gros fait seulement des mises à jour windows.

Jivaross le Jeu 26 Juin 2014 14:17 a écrit : le script entier ne fait pas seulement des mises à jour windows ...

Ben faudrait savoir

Si le problème de progressbar ne concerne que les màj tu peux très bien poster un code fonctionnel "nettoyé" des éléments confidentiels (qui ne sont pas concernés par la question)

oui le problème concerne seulement les mises à jours mais cétait seulement optionnel d'avoir une progressbar

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>


If Not _Singleton(@ScriptName) Then Exit

Global $ColNeeded
Global $Host = @ComputerName

$BannedList = StringSplit("Essentials|Silverlight|malveillants|Bing|Outil", "|")

$Gui = GUICreate("MAJ Script", 800, 600)
GUISetBkColor(0xb2ccff, $Gui)
$NeededListView = GUICtrlCreateListView("Noms|Status", 10, 40, 780, 450, $LVS_SHOWSELALWAYS)
_GUICtrlListView_SetColumnWidth($NeededListView, 0, 657)
_GUICtrlListView_SetColumnWidth($NeededListView, 1, 100)
$UpdatesFound = GUICtrlCreateLabel("", 10, 10, 200, 20)
GUICtrlSetBkColor($UpdatesFound, "0xffffff")
$Auto = GUICtrlCreateButton("Auto", 690, 10, 100, 20)
$AutoRunCountdown = GUICtrlCreateLabel("10 Secondes avant le commencement !", 250, 10, 280, 20)
GUICtrlSetFont(-1, 13)

GUISetState()

$InitTime = TimerInit()
AdlibRegister("_AutoRunDelay", 100)
Do
    Sleep(50)
    $MSG = GUIGetMsg()
    If $MSG == $GUI_EVENT_CLOSE Then Exit
    If $MSG == $Auto Then
        AdlibUnRegister()
        GUICtrlSetData($AutoRunCountdown, "")
        _PopulateNeeded($Host)
    EndIf

Until True == False


Func _AutoRunDelay()
    $TimeLeft = 10 - (TimerDiff($InitTime) / 1000)
    GUICtrlSetData($AutoRunCountdown, Int($TimeLeft) & " Secondes avant le commencement !")
    If $TimeLeft < 0 Then
        GUICtrlSetData($AutoRunCountdown, "")
        _PopulateNeeded($Host)
    EndIf
EndFunc   ;==>_AutoRunDelay


Func _CreateMSUpdateSession($strHost = @ComputerName)
    $objSession = ObjCreate("Microsoft.Update.Session", $strHost)
    If Not IsObj($objSession) Then Return 0
    Return $objSession
EndFunc   ;==>_CreateMSUpdateSession

Func _CreateSearcher($objSession)
    If Not IsObj($objSession) Then Return -1
    Return $objSession.CreateUpdateSearcher
EndFunc   ;==>_CreateSearcher


Func _FetchNeededData($Host)
    $objSearcher = _CreateSearcher(_CreateMSUpdateSession($Host))
    $ColNeeded = _GetNeededUpdates($objSearcher)
    $objSearcher = 0
    Dim $arrNeeded[1][2]
    For $i = 0 To $ColNeeded.Updates.Count - 1
        If $i < $ColNeeded.Updates.Count - 1 Then ReDim $arrNeeded[$i + 2][2]
        $update = $ColNeeded.Updates.Item($i)
        $arrNeeded[$i][0] = $update.Title
        $arrNeeded[$i][1] = $update.Description
    Next
    If Not IsArray($arrNeeded) Then
        MsgBox(16, "Windows Updates Service semble avoir rencontré un problème avec:" & $Host, "", 5)
        Return 0
    EndIf
    Return $arrNeeded
EndFunc   ;==>_FetchNeededData

Func _GetNeededUpdates($objSearcher)
    If Not IsObj($objSearcher) Then Return -5
    $ColNeeded = $objSearcher.Search("IsInstalled=0 and Type='Software'")
    Return $ColNeeded
EndFunc   ;==>_GetNeededUpdates

Func _GetTotalHistoryCount($objSearcher)
    If Not IsObj($objSearcher) Then Return -2
    Return $objSearcher.GetTotalHistoryCount
EndFunc   ;==>_GetTotalHistoryCount


Func _PopulateNeeded($Host)
    AdlibUnRegister()
    _GUICtrlListView_DeleteAllItems(ControlGetHandle($Gui, "", $NeededListView))

    SplashTextOn("MAJ Script", "Recherche en cours..", 400, 30, -1, -1, 32)
    $arrNeeded = _FetchNeededData($Host)
    SplashOff()

    If IsArray($arrNeeded) And $arrNeeded[0][0] <> "" Then
        For $i = 0 To UBound($arrNeeded) - 1
            _GUICtrlListView_AddItem($NeededListView, $arrNeeded[$i][0])
            $Dirty = False
            For $Check = 1 To $BannedList[0]
                If StringInStr($arrNeeded[$i][0], $BannedList[$Check]) Then $Dirty = True
            Next
            If $Dirty == False Then _GUICtrlListView_SetItemSelected($NeededListView, $i, True)
        Next
    Else
        _GUICtrlListView_AddItem($NeededListView, "Aucune mises à jour trouvée!")
    EndIf
    $objSearcher = 0
    $arrNeeded = 0

    AdlibRegister("_KillRestartWindow")
    _UpdatesDownloadAndInstall()
EndFunc   ;==>_PopulateNeeded


Func _KillRestartWindow()
    If WinExists("MAJ Script", "") Then
        WinActivate("MAJ Script", "")
        WinClose("MAJ Script", "")
    EndIf
EndFunc   ;==>_KillRestartWindow


Func _UpdatesDownloadAndInstall()
    GUICtrlSetData($AutoRunCountdown, "")
    $Selected = _GUICtrlListView_GetSelectedIndices($NeededListView, True)

    If $Selected[0] = 0 Then
        AdlibUnRegister()
        MsgBox(0,@ScriptName,"Aucune mises à jour restantes",5)
        Exit
    EndIf

    $objSearcher = _CreateMSUpdateSession($Host)
    For $x = 1 To $Selected[0]
        $item = _GUICtrlListView_GetItemText($NeededListView, $Selected[$x])
        For $i = 0 To $ColNeeded.Updates.Count - 1
            $update = $ColNeeded.Updates.Item($i)
            If $item = $update.Title Then
                GUICtrlSetData($UpdatesFound, "Téléchargement de " & $x & " à " & $Selected[0] & " Updates")
                _GUICtrlListView_SetItemText($NeededListView, $i, "Téléchargement...", 1)
                _GUICtrlListView_SetItemFocused($NeededListView, $i)
                _GUICtrlListView_EnsureVisible($NeededListView, $i)
                $updatesToDownload = ObjCreate("Microsoft.Update.UpdateColl")
                $updatesToDownload.Add($update)
                $DownloadSession = $objSearcher.CreateUpdateDownloader()
                $DownloadSession.Updates = $updatesToDownload
                $DownloadSession.Download
                _GUICtrlListView_SetItemText($NeededListView, $i, "Téléchargé", 1)
            EndIf
        Next
    Next

    $RebootNeeded = False
    For $x = 1 To $Selected[0]
        $item = _GUICtrlListView_GetItemText($NeededListView, $Selected[$x])
        For $i = 0 To $ColNeeded.Updates.Count - 1
            $update = $ColNeeded.Updates.Item($i)
                If $item = $update.Title And $update.IsDownloaded Then
                GUICtrlSetData($UpdatesFound, "Installation de " & $x & " sur " & $Selected[0] & " Updates")
                _GUICtrlListView_SetItemText($NeededListView, $i, "Installation...", 1)
                _GUICtrlListView_SetItemFocused($NeededListView, $i)
                _GUICtrlListView_EnsureVisible($NeededListView, $i)
                $InstallSession = $objSearcher.CreateUpdateInstaller()
                $updatesToInstall = ObjCreate("Microsoft.Update.UpdateColl")
                $updatesToInstall.Add($update)
                $InstallSession.Updates = $updatesToInstall
                $installresult = $InstallSession.Install
                If $installresult.RebootRequired Then
                    $RebootNeeded = True
                EndIf
                _GUICtrlListView_SetItemText($NeededListView, $i, "Accomplie", 1)
            EndIf
        Next
    Next

    If $RebootNeeded Then
        MsgBox(0, "MAJ Script", "Un redémarrage est nécessaire.  donc je redémarre dans 5 secondes.", 5)
        Shutdown(2 + 4 + 16)
    Else
        _GUICtrlListView_DeleteAllItems($NeededListView)
        _PopulateNeeded($Host)
    EndIf

    $DownloadSession = 0
    $updatesToDownload = 0
    Return 0
EndIf

EndFunc ;==>_UpdatesDownloadAndInstall

J'ai néttoyé le script en fonction du sujet concerné.

Je voudrais remplacé " _GUICtrlListView_SetItemText " par une progressbar.

(pardonnez-moi mon francais, je suis québécois)

cordialement,
Jivaross

Je te propose d'ajouter des progressbar à coté des lignes de la listeview.

Pour cela, il faudrait remplacer

► Afficher le texteligne 102 et après

Il faudra ajouter une ligne Guictrlsetdata($progress[...],...) apres GUICtrlListView_SetItemText (en remplacent ... par la variable ou la valeur corespondante.)

Essaie comme ça et dis nous si ça marche ou non.
Je n'ai pas pu tester le code en entier car je n'avais pas de MAJ à faire.

Si ça marche, tu pourra ajuster les valeurs que j'ai utilisées un peut au hasard et retirer les lignes _GUICtrlListView_SetItemText et compagnie.

Pour ce qui est de tes rares fautes de Français, ce n'est pas grave, je suis certain que plusieurs personnes ne le remarque même pas.
Quand on lit "remplacé" au lieu de "remplacer", ça ne change rien à la prononciation donc à la compréenssion.

ok merci, je vais essayer mais tu aurais pu aussi désinstallé une MAJ toi-même ^^ je fait régulièrement sa pour tester mon script.

AutoIt Français

[..] Mettre une ProgressBar avec pourcentage S.V.P.

[..] Mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] Mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] Mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] Mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] Mettre une ProgressBar avec pourcentage S.V.P.

Re: [..] Mettre une ProgressBar avec pourcentage S.V.P.