Что нового
Автор:
Фильтры

Как прикрутить GUICtrlProgressBar

T

Tuxzer92

Новичок
Сообщения
65
Репутация
0
Здравствуйте, подскажите пожалуйста, как прикрутить ProgressBar для того чтобы было видно прогресс работы скрипта. Не пойму как его правильно прикрутить. Чтобы он верно показывал полосу прогреса. Подозреваю, что в процентах, но ведь время установки ПО может быть разным. Подскажите пожалуйста.
Вот сам скрипт:
http://pastebin.com/bPHWZLUW
Спасибо!
 
M

max1300

Гость
Используй
Код: 
guictrlsetdata(переменная где  находится твой прогресс бар,количество процентов любое)
 
Автор
T

Tuxzer92

Новичок
Сообщения
65
Репутация
0
max1300 сказал(а):
Используй
Код: 
guictrlsetdata(переменная где  находится твой прогресс бар,количество процентов любое)
Нажмите, чтобы раскрыть...
Почему любое? Нужно ведь конкретное для того чтобы progressbar правильно отрабатывал. Ведь время установки программ разное.
Пример:
Код: 
GUICreate("Test", 220, 100, 200, 200)
$p = GUICtrlCreateProgress(10, 10, 200, 20)
GUICtrlSetData($p, 0)
GuiSetState()

$n = 70

For $i = 1 To $n
	Sleep(30)
	GUICtrlSetData($p, $i / $n * 100)
Next

Вот как это реализовать в моем случае?!


Добавлено:
Сообщение автоматически объединено:

Код: 
Func SetProgress($a, $n)
  GUICtrlSetData($p, $a / $n * 100)
EndFunc

$i = 0
$n = 3
DoStuff1()
$i += 1
SetProgress($i, $n) ; 33%
DoStuff2()
$i += 1
SetProgress($i, $n) ; 66%
DoStuff3()
$i += 1
SetProgress($i, $n) ; 100%

или
Код: 
Func StepIt()
	$i += 1
	GUICtrlSetData($p, $i / $n * 100)
EndFunc

$i = 0
$n = 3

DoStuff1()
StepIt()
DoStuff2()
StepIt()
DoStuff3()
StepIt()
 
M

max1300

Гость
Код: 
GUICreate("Test", 220, 100, 200, 200)
$p = GUICtrlCreateProgress(10, 10, 200, 20)
GuiSetState()
$VAR = 10
while 1
$VAR = $VAR + 10
if $VAR = 100 then exitloop
GUICtrlSetData($p, $VAR)
sleep(50)
wend

Попробуй такой код
 
M

max1300

Гость
Tuxzer92 я тебе дал хороший ответ на твой вопрос повысь репутацию мне на 1 у меня и так репутация очень отрицательная
 
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
186
madmasles [?]
Можно его опубликовать или здесь, или на другом ресурсе, а то в России pastebin.com заблокирован.
Нажмите, чтобы раскрыть...
Я из России и ничего там не заблокировано, да и прокси на крайний случай есть :smile:
Вот.
Код: 
#RequireAdmin
#AutoIt3Wrapper_Res_Comment=Скрипт для автоматической установки минимального набора ПО
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <EditConstants.au3>
#NoTrayIcon
FileInstall("1.jpg","./",1)
Const $title= "ASI Script v0.2a"
$Window = GUICreate($title, 300, 300)
GUISetBkColor(0xE0FFFF)
GUICtrlCreatePic("1.jpg", 0, 0, 300, 250)
$OKButton = GUICtrlCreateButton("Запустить", 40, 250, 70)
$EXITButton = GUICtrlCreateButton("Закрыть", 190, 250, 70)
$BackButton = GUICtrlCreateButton("Назад", 115, 250, 70)
Local $FileMenu, $FileItem, $FileItem2
$ServerDir = "\\debian-server\FILES\SOFT\MINIMUM_INSTALL\Distr"
$x86 = "\\debian-server\FILES\SOFT\Office2010x32\Office2010x32"
$x64 = "\\debian-server\FILES\SOFT\Office2010x64\Office2010x64"
$OutDir = "D:\"
$InstDir = "D:\Distr\"
$Ping = ping("debian-server",1)
$files = "Files"
$font = "Comic Sans MS"
$FileMenu = GUICtrlCreateMenu("&Файл")
$FileItem = GUICtrlCreateMenuItem("Инструкция", $FileMenu)
$FileItem2 = GUICtrlCreateMenuItem("Выход", $FileMenu)
$FileMenu3 = GUICtrlCreateMenu("&Игры")
$FileItem4= GUICtrlCreateMenuItem("Марио",$FileMenu3)
$FileItem5= GUICtrlCreateMenuItem("Змейка",$FileMenu3)
$FileMenu2 = GUICtrlCreateMenu("&?")
$FileItem6 = GUICtrlCreateMenuItem("Changelog",$FileMenu2)
$FileItem3 = GUICtrlCreateMenuItem("О скрипте",$FileMenu2)
GUISetState(@SW_SHOW, $Window)
Local $iMsg
While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $OKButton
If $Ping Then
    If FileExists($ServerDir) Then
       If FileExists($OutDir) Then
          If @OSArch ='x86' Then
_FileCopy($ServerDir, $OutDir)
_FileCopy($x86, $InstDir)
RunWait(@ComSpec & " /c REGEDIT /s " & $InstDir & "DisableRestart.reg", "")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA","REG_DWORD",0)
RunWait(@ComSpec & " /c " & "gpupdate /force", "")
RunWait($InstDir & "7z920.exe /S")
RunWait('C:\Program Files\7-Zip\7z.exe x "D:\Distr\Office2010x32\Microsoft Office 2010 Professional Plus VL x86.iso"  -oD:\Distr\Office2010x32\Office2010')
_FileCopy($InstDir & "Office2010x32\Updates\",$InstDir & "Office2010x32\Office2010\")
_FileCopy($InstDir & "Office2010x32\32.MSP",$InstDir & "Office2010x32\Office2010\")
RunWait($InstDir & "Office2010x32\Office2010\setup.exe /adminfile D:\Distr\Office2010x32\Office2010\32.MSP")
RunWait('C:\Program Files\7-Zip\7z.exe x "D:\Distr\FineReader.rar"  -oD:\')
DirRemove($InstDir & "Office2010x32\Updates",1)
Else
_FileCopy($ServerDir, $OutDir)
_FileCopy($x64, $InstDir)
RunWait(@ComSpec & " /c REGEDIT /s " & $InstDir & "DisableRestart.reg", "")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA","REG_DWORD",0)
RunWait(@ComSpec & " /c " & "gpupdate /force", "")
RunWait($InstDir & "7z920.exe /S")
RunWait('C:\Program Files (x86)\7-Zip\7z.exe x "D:\Distr\Office2010x64\Microsoft Office 2010 Professional Plus VL x64.iso"  -oD:\Distr\Office2010x64\Office2010')
_FileCopy($InstDir & "Office2010x64\Updates\",$InstDir & "Office2010x64\Office2010\")
_FileCopy($InstDir & "Office2010x64\64.MSP",$InstDir & "Office2010x64\Office2010\")
RunWait($InstDir & "Office2010x64\Office2010\setup.exe /adminfile D:\Distr\Office2010x64\Office2010\64.MSP")
RunWait('C:\Program Files (x86)\7-Zip\7z.exe x "D:\Distr\FineReader.rar"  -oD:\')
DirRemove($InstDir & "Office2010x64\Updates",1)
EndIf
Runwait("msiexec /i D:\Distr\install_flash_player_14_active_x.msi /passive")
Runwait("msiexec /i D:\Distr\install_flash_player_14_plugin.msi /passive")
Runwait("msiexec /i D:\Distr\AdbeRdr11000_ru_RU.msi /passive")
Runwait($InstDir & "ccsetup416_slim.exe /S")
RunWait($InstDir & "aimp_3.55.1355.exe /AUTO")
Runwait($InstDir & "K-Lite\K-Lite_Codec_Pack_1065_Mega.exe /verysilent /norestart /LoadInf=.\klcp_mega_unattended.ini")
Runwait("msiexec /i D:\Distr\Far30b3800.x86.20140208.msi /passive")
Runwait($InstDir & "tcmd750a\INSTALL.EXE")
_FileCopy($InstDir & "tcmd750a\wincmd.key","C:\totalcmd\")
Runwait($InstDir & "FSViewerSetup51.exe /S")
Runwait($InstDir & "mini-KMS Activator 1.3 Office 2010 VL.exe /os")
RunWait($InstDir & "KMSAutoXP.exe /oa")
RunWait($InstDir & "WinRAR 4.20.exe -a4RAi")
WinWaitClose("Установка WinRAR 4.20")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU","NoAutoRebootWithLoggedOnUsers")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA","REG_DWORD",1)
RunWait(@ComSpec & " /c " & "gpupdate /force", "")
FileDelete($InstDir & "KMSAutoXP.exe")
FileDelete($InstDir & "mini-KMS Activator 1.3 Office 2010 VL.exe")
FileDelete($InstDir & "DisableRestart.reg")
GUICtrlCreateLabel("Готово!", 120, 100)
Sleep(2000)
SoundSetWaveVolume(50)
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
Else
GUISetFont(14, 700, 0, $font)
GUICtrlCreateLabel( "Диска " & $OutDir &" нет", 10, 10)
GUICtrlSetColor(-1, 0xff0000)
Sleep(2000)
GUIDelete()
Exit
EndIf
Else
GUISetFont(14, 700, 0, $font)
GUICtrlCreateLabel("Каталог с ПО не существует!", 10, 10)
GUICtrlSetColor(-1, 0xff0000)
Sleep(2000)
GUIDelete()
Exit
EndIf
Else
GUISetFont(14, 700, 0, $font)
GUICtrlCreateLabel("Debian-server не доступен!", 10, 10)
GUICtrlSetColor(-1, 0xff0000)
Sleep(2000)
Exit
GUIDelete()
EndIf
   Case $FileItem
            $sTextFile = $files & "\ReadMe.txt"
            Run ( "notepad.exe " & $sTextFile)
   Case $GUI_EVENT_CLOSE
            ExitLoop
   Case $FileItem2
            ExitLoop

   Case $FileItem3
            $edit = GUICtrlCreateEdit($title & @CRLF & "Данный скрипт разработан с целью автоматической установки необходимого ПО.", 10, 10, 280, 230, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN + $ES_READONLY)
    Case $EXITButton
            ExitLoop
    Case $BackButton
                GUICtrlDelete($edit)
    Case $FileItem4
            Run($files & "\MARIO\Mario.exe")
    Case $FileItem5
            Run($files & "\snakeV1.0.exe")
    Case $FileItem6
            $change = $files & "\changelog.txt"
            Run ( "notepad.exe " & $change)
    EndSwitch
WEnd
Exit

Func _FileCopy($fromFile,$tofile)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 256
    $winShell = ObjCreate("shell.application")
    $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
EndFunc
 
joiner

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
OffTopic:
это местный провайдер усердствует. я тоже могу перейти по ссылке
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
По теме.
ИМХО, есть три варианта.
1. Сосчитать кол-во устанавливаемых программ и добавлять в прогресс проценты от количества при установке.
2. Сосчитать сумму размеров установщиков и добавлять проценты от общего размера.
3. Сделать бегунок на время установки:
Код: 
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

GUICreate('Прогресс бар', 220, 100)
$iProgressBar = GUICtrlCreateProgress(10, 40, 200, 20, BitOR($GUI_SS_DEFAULT_PROGRESS, $PBS_MARQUEE))
GUICtrlSendMsg($iProgressBar, $PBM_SETMARQUEE, 1, 0);http://msdn.microsoft.com/en-us/library/windows/desktop/bb760842(v=vs.85).aspx
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
 
Автор
T

Tuxzer92

Новичок
Сообщения
65
Репутация
0
madmasles сказал(а):
По теме.
ИМХО, есть три варианта.
1. Сосчитать кол-во устанавливаемых программ и добавлять в прогресс проценты от количества при установке.
2. Сосчитать сумму размеров установщиков и добавлять проценты от общего размера.
3. Сделать бегунок на время установки:
Код: 
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

GUICreate('Прогресс бар', 220, 100)
$iProgressBar = GUICtrlCreateProgress(10, 40, 200, 20, BitOR($GUI_SS_DEFAULT_PROGRESS, $PBS_MARQUEE))
GUICtrlSendMsg($iProgressBar, $PBM_SETMARQUEE, 1, 0);http://msdn.microsoft.com/en-us/library/windows/desktop/bb760842(v=vs.85).aspx
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
Нажмите, чтобы раскрыть...
Извините, но вы бы не могли показать на моем скрипте вариант с процентами? А то у меня прогресс бар пробегает, а установка еще не завершена.
Код: 
#RequireAdmin
    #AutoIt3Wrapper_Res_Comment=Скрипт для автоматической установки минимального набора ПО
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <EditConstants.au3>
    #NoTrayIcon
    FileInstall("1.jpg","./",1)
    Const $title= "ASI Script v0.2a"
    $Window = GUICreate($title, 300, 300)
    GUISetBkColor(0xE0FFFF)
    GUICtrlCreatePic("1.jpg", 0, 0, 300, 250)
    $OKButton = GUICtrlCreateButton("Запустить", 40, 250, 70)
    $EXITButton = GUICtrlCreateButton("Закрыть", 190, 250, 70)
    $BackButton = GUICtrlCreateButton("Назад", 115, 250, 70)
    Local $FileMenu, $FileItem, $FileItem2
    $ServerDir = "\\debian-server\FILES\SOFT\MINIMUM_INSTALL\Distr"
    $x86 = "\\debian-server\FILES\SOFT\Office2010x32\Office2010x32"
    $x64 = "\\debian-server\FILES\SOFT\Office2010x64\Office2010x64"
    $OutDir = "D:\"
    $InstDir = "D:\Distr\"
    $Ping = ping("debian-server",1)
    $files = "Files"
    $font = "Comic Sans MS"
    $FileMenu = GUICtrlCreateMenu("&Файл")
    $FileItem = GUICtrlCreateMenuItem("Инструкция", $FileMenu)
    $FileItem2 = GUICtrlCreateMenuItem("Выход", $FileMenu)
    $FileMenu3 = GUICtrlCreateMenu("&Игры")
    $FileItem4= GUICtrlCreateMenuItem("Марио",$FileMenu3)
    $FileItem5= GUICtrlCreateMenuItem("Змейка",$FileMenu3)
    $FileMenu2 = GUICtrlCreateMenu("&?")
    $FileItem6 = GUICtrlCreateMenuItem("Changelog",$FileMenu2)
    $FileItem3 = GUICtrlCreateMenuItem("О скрипте",$FileMenu2)
    GUISetState(@SW_SHOW, $Window)
    Local $iMsg
    While 1
        $iMsg = GUIGetMsg()
        Switch $iMsg
            Case $OKButton
    If $Ping Then
        If FileExists($ServerDir) Then
           If FileExists($OutDir) Then
              If @OSArch ='x86' Then
    _FileCopy($ServerDir, $OutDir)
    _FileCopy($x86, $InstDir)
    RunWait(@ComSpec & " /c REGEDIT /s " & $InstDir & "DisableRestart.reg", "")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA","REG_DWORD",0)
    RunWait(@ComSpec & " /c " & "gpupdate /force", "")
    RunWait($InstDir & "7z920.exe /S")
    RunWait('C:\Program Files\7-Zip\7z.exe x "D:\Distr\Office2010x32\Microsoft Office 2010 Professional Plus VL x86.iso"  -oD:\Distr\Office2010x32\Office2010')
    _FileCopy($InstDir & "Office2010x32\Updates\",$InstDir & "Office2010x32\Office2010\")
    _FileCopy($InstDir & "Office2010x32\32.MSP",$InstDir & "Office2010x32\Office2010\")
    RunWait($InstDir & "Office2010x32\Office2010\setup.exe /adminfile D:\Distr\Office2010x32\Office2010\32.MSP")
    RunWait('C:\Program Files\7-Zip\7z.exe x "D:\Distr\FineReader.rar"  -oD:\')
    DirRemove($InstDir & "Office2010x32\Updates",1)
    Else
    _FileCopy($ServerDir, $OutDir)
    _FileCopy($x64, $InstDir)
    RunWait(@ComSpec & " /c REGEDIT /s " & $InstDir & "DisableRestart.reg", "")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA","REG_DWORD",0)
    RunWait(@ComSpec & " /c " & "gpupdate /force", "")
    RunWait($InstDir & "7z920.exe /S")
    RunWait('C:\Program Files (x86)\7-Zip\7z.exe x "D:\Distr\Office2010x64\Microsoft Office 2010 Professional Plus VL x64.iso"  -oD:\Distr\Office2010x64\Office2010')
    _FileCopy($InstDir & "Office2010x64\Updates\",$InstDir & "Office2010x64\Office2010\")
    _FileCopy($InstDir & "Office2010x64\64.MSP",$InstDir & "Office2010x64\Office2010\")
    RunWait($InstDir & "Office2010x64\Office2010\setup.exe /adminfile D:\Distr\Office2010x64\Office2010\64.MSP")
    RunWait('C:\Program Files (x86)\7-Zip\7z.exe x "D:\Distr\FineReader.rar"  -oD:\')
    DirRemove($InstDir & "Office2010x64\Updates",1)
    EndIf
    Runwait("msiexec /i D:\Distr\install_flash_player_14_active_x.msi /passive")
    Runwait("msiexec /i D:\Distr\install_flash_player_14_plugin.msi /passive")
    Runwait("msiexec /i D:\Distr\AdbeRdr11000_ru_RU.msi /passive")
    Runwait($InstDir & "ccsetup416_slim.exe /S")
    RunWait($InstDir & "aimp_3.55.1355.exe /AUTO")
    Runwait($InstDir & "K-Lite\K-Lite_Codec_Pack_1065_Mega.exe /verysilent /norestart /LoadInf=.\klcp_mega_unattended.ini")
    Runwait("msiexec /i D:\Distr\Far30b3800.x86.20140208.msi /passive")
    Runwait($InstDir & "tcmd750a\INSTALL.EXE")
    _FileCopy($InstDir & "tcmd750a\wincmd.key","C:\totalcmd\")
    Runwait($InstDir & "FSViewerSetup51.exe /S")
    Runwait($InstDir & "mini-KMS Activator 1.3 Office 2010 VL.exe /os")
    RunWait($InstDir & "KMSAutoXP.exe /oa")
    RunWait($InstDir & "WinRAR 4.20.exe -a4RAi")
    WinWaitClose("Установка WinRAR 4.20")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU","NoAutoRebootWithLoggedOnUsers")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA","REG_DWORD",1)
    RunWait(@ComSpec & " /c " & "gpupdate /force", "")
    FileDelete($InstDir & "KMSAutoXP.exe")
    FileDelete($InstDir & "mini-KMS Activator 1.3 Office 2010 VL.exe")
    FileDelete($InstDir & "DisableRestart.reg")
    GUICtrlCreateLabel("Готово!", 120, 100)
    Sleep(2000)
    SoundSetWaveVolume(50)
    SoundPlay(@WindowsDir & "\media\tada.wav", 1)
    Else
    GUISetFont(14, 700, 0, $font)
    GUICtrlCreateLabel( "Диска " & $OutDir &" нет", 10, 10)
    GUICtrlSetColor(-1, 0xff0000)
    Sleep(2000)
    GUIDelete()
    Exit
    EndIf
    Else
    GUISetFont(14, 700, 0, $font)
    GUICtrlCreateLabel("Каталог с ПО не существует!", 10, 10)
    GUICtrlSetColor(-1, 0xff0000)
    Sleep(2000)
    GUIDelete()
    Exit
    EndIf
    Else
    GUISetFont(14, 700, 0, $font)
    GUICtrlCreateLabel("Debian-server не доступен!", 10, 10)
    GUICtrlSetColor(-1, 0xff0000)
    Sleep(2000)
    Exit
    GUIDelete()
    EndIf
       Case $FileItem
                $sTextFile = $files & "\ReadMe.txt"
                Run ( "notepad.exe " & $sTextFile)
       Case $GUI_EVENT_CLOSE
                ExitLoop
       Case $FileItem2
                ExitLoop
     
       Case $FileItem3
                $edit = GUICtrlCreateEdit($title & @CRLF & "Данный скрипт разработан с целью автоматической установки необходимого ПО.", 10, 10, 280, 230, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN + $ES_READONLY)
        Case $EXITButton
                ExitLoop
        Case $BackButton
                    GUICtrlDelete($edit)
        Case $FileItem4
                Run($files & "\MARIO\Mario.exe")
        Case $FileItem5
                Run($files & "\snakeV1.0.exe")
        Case $FileItem6
                $change = $files & "\changelog.txt"
                Run ( "notepad.exe " & $change)
        EndSwitch
    WEnd
    Exit
     
    Func _FileCopy($fromFile,$tofile)
        Local $FOF_RESPOND_YES = 16
        Local $FOF_SIMPLEPROGRESS = 256
        $winShell = ObjCreate("shell.application")
        $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
    EndFunc
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
M Помогите прикрутить цикл While Общие вопросы по AutoIt 2
A Помогите пожалуйста прикрутить отправку уведомления на email Стол заказов 8
P [Сеть, интернет] Помогите прикрутить код Общие вопросы по AutoIt 1
D Помогите прикрутить прокси к скрипту Общие вопросы по AutoIt 4
F Как прикрутить gui к скрипту запуска задачи в определенное время Общие вопросы по AutoIt 8
Похожие темы
Помогите прикрутить цикл While
Помогите пожалуйста прикрутить отправку уведомления на email
[Сеть, интернет] Помогите прикрутить код
Помогите прикрутить прокси к скрипту
Как прикрутить gui к скрипту запуска задачи в определенное время
Верх