I need Help with autoit progress bar

[Adem_Koraani]

hey guys, im creating a program that execute vbscripts and iwant to add a progress bar indicating the progress of these vbscripts.

[Jos]

Great, so what exactly is the question or the thing you need help with?

[Subz]

It depends on how you want to display the progress for example, if you have 5 vbscripts and you want the bar to progress each time the new vbscript is executed you could just place your vbscripts into an array and then upon each execution you progress the bar by 100/arraycount for example:

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

Local $aVBExample[] = ["Execute VBScript 1","Execute VBScript 2","Execute VBScript 3","Execute VBScript 4","Execute VBScript 5"]

GUICreate("Progressbar1", 220, 40, 100, 200)
Local $idProgressbar = GUICtrlCreateProgress(10, 10, 200, 20)
GUISetState(@SW_SHOW)
Local $iProgress = 100/(UBound($aVBExample))
For $i = 0 To UBound($aVBExample) - 1
    $iProgressBar = GUICtrlRead($idProgressbar) + $iProgress
    GUICtrlSetData($idProgressbar, $iProgressBar)
    MsgBox(4096, "", $aVBExample[$i], 2)
Next

If your vbscripts take a long time to complete then would recommend using marquee, otherwise the end user may think the script is frozen, for example:

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

Local $aVBExample[] = ["Execute VBScript 1","Execute VBScript 2","Execute VBScript 3","Execute VBScript 4","Execute VBScript 5"]

GUICreate("Progressbar2", 220, 40, 100, 200)
Local $idProgressbar = GUICtrlCreateProgress(10, 10, 200, 20, $PBS_MARQUEE)
GUISetState(@SW_SHOW)
GUICtrlSendMsg($idProgressbar, $PBM_SETMARQUEE, 1, 50)
For $i = 0 To UBound($aVBExample) - 1
    MsgBox(4096, "", $aVBExample[$i], 2)
Next

 

Edited May 2, 2022 by Subz

[Adem_Koraani]

thanks for code it worked but when i put it in my script. ikeep getting a error message which says that the $PBS_MARQUEE and PBM_SETMARQUEE

variables are used without being declared. itried to install marquee udf but istill get the same error message.

any idea how can i get through this? 

Thanks. 

[Adem_Koraani]

1 hour ago, Jos said:

Great, so what exactly is the question or the thing you need help with?

how can i create a progress bar that indicate the execution progress of a vbscript?

my english is kinda bad ihope you understand what i need 

[Subz]

You must use the #include <ProgressConstants.au3> at the top of your script, these include the $PBS_MARQUEE and $PBM_SETMARQUEE variables, I tested both scripts before posting.

[Adem_Koraani]

thank you brother <3