#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$sTitle = 'My Super proga'
$iFunc = 25
$iPercent = 100 / $iFunc
$hGui = GUICreate($sTitle, 350, 120, -1, -1)
$Button = GUICtrlCreateButton('G O !', 120, 20, 100, 30)
$Progress = GUICtrlCreateProgress(10, 70, 330, 17)
$Label = GUICtrlCreateLabel('', 10, 100, 100, 17)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
GUISetState(@SW_DISABLE)
For $i = 1 To $iFunc
_MyFunc()
GUICtrlSetData($Label, Round($i * $iPercent) & ' %')
GUICtrlSetData($Progress, Round($i * $iPercent))
Next
GUISetState(@SW_ENABLE)
GUICtrlSetData($Label, 'End')
GUICtrlSetData($Progress, 0)
TrayTip($sTitle, 'Все функции (' & $iFunc & ' штук) закончили свою работу.', 5, 1)
EndSwitch
WEnd
Func _MyFunc()
Sleep(500)
EndFunc ;==>_MyFunc