请教如何在软件安装管理器上加上进度条？附源码...

sxzcz · 发表于 2010-2-17 13:28:52

在网络中下载一个软件安装管理器源码，但是只能静默安装，看着好像没有安装一样，这样有的人容易退出程序！安装过程我想实现，安装那个软件就显示：“正在安装（“如qq2009”），请稍候...”，文字下面显示安装进度条。回复请给出具体代码，放到哪个位置，因为是菜鸟，给出思路，可能也不会。
源码如下：

 $g_Version = "888" 
If WinExists($g_Version) Then Exit 
AutoItWinSetTitle($g_Version) 
Opt("TrayIconHide", 1) 
#include <ButtonConstants.au3> 
#include <GUIConstantsEx.au3> 
#include <StaticConstants.au3> 
#include <WindowsConstants.au3> 
If not FileExists(@ScriptDir&"\soft.ini") then 
msgbox(0,"","配置文件不存在,程序正在退出...") 
Exit 
Endif 
$ckbt=IniReadSection(@ScriptDir&"\soft.ini", "窗口标题") 
$picpath=IniReadSection(@ScriptDir&"\soft.ini", "图像") 
$ljpath=IniReadSection(@ScriptDir&"\soft.ini", "路径") 
if $picpath[1][1]="" Then 
$piclj=@ScriptDir&"\AA.jpg[/email]" 
Else 
$piclj=$picpath[1][1] 
EndIf 
Dim $Checkbox[9] 
$Form1 = GUICreate($ckbt[1][1], 482, 324, 247, 154) 
WinActive($ckbt[1][1]) 
WinSetOnTop ($ckbt[1][1], "",1 ) 

$Pic1 = GUICtrlCreatePic($piclj, 0, 0, 482, 70, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) 
$Group1 = GUICtrlCreateGroup("常用软件+", 15, 74, 451, 89) 
$Checkbox[1] = GUICtrlCreateCheckbox($ljpath[1][0], 24, 90, 137, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[1], $GUI_CHECKED) 
$Checkbox[2] = GUICtrlCreateCheckbox($ljpath[2][0], 24, 122, 137, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[2], $GUI_CHECKED) 
$Checkbox[3] = GUICtrlCreateCheckbox($ljpath[3][0], 163, 89, 137, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[3], $GUI_CHECKED) 
$Checkbox[4] = GUICtrlCreateCheckbox($ljpath[4][0], 163, 128, 137, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[4], $GUI_CHECKED) 
$Checkbox[5] = GUICtrlCreateCheckbox($ljpath[5][0], 317, 90, 137, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[5], $GUI_CHECKED) 
$Checkbox[6] = GUICtrlCreateCheckbox($ljpath[6][0], 317, 126, 137, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[6], $GUI_CHECKED) 
GUICtrlCreateGroup("", -99, -99, 1, 1) 
$Group2 = GUICtrlCreateGroup("系统美化+", 15, 178, 451, 46) 
$Checkbox[7] = GUICtrlCreateCheckbox($ljpath[7][0], 24, 190, 177, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[7], $GUI_CHECKED) 
$Checkbox[8] = GUICtrlCreateCheckbox($ljpath[8][0], 206, 190, 177, 30) 
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") 
GUICtrlSetState ( $Checkbox[8], $GUI_CHECKED) 
GUICtrlCreateGroup("", -99, -99, 1, 1) 
$Label1 = GUICtrlCreateLabel(" 说明：[N]为全选/全不选，Y安装，[Esc]取消", 56, 230, 385, 17) 
$Progress1 = GUICtrlCreateProgress(15, 254, 451, 12, -1,-1) 
$Button1 = GUICtrlCreateButton("安装所选软件", 80, 280, 137, 33, 0) 
GUICtrlSetState ( $Button1, $GUI_FOCUS ) 
$Button2 = GUICtrlCreateButton("不安装软件[Esc]", 260, 280, 137, 33, 0) 
DllCall("user32.dll", "int", "AnimateWindow", "hwnd",$form1, "int", 500, "long", 0x00000010) 
GUISetState(@SW_SHOW) 
$wsj = 10 ;等待的时间 
$all=10 ;时间*这个变量就是100 
AdlibEnable("mytime",1000) 
HotKeySet("ESC", "csesc") 
HotKeySet("y", "setup") 
HotKeySet("n", "setup") 
While 1 
$nMsg = GUIGetMsg() 
Switch $nMsg 

case $Button1 
setup() 

case $Button2 
csesc() 


Case $GUI_EVENT_CLOSE 
AdlibDisable() 
DllCall("user32.dll", "int", "AnimateWindow", "hwnd",$form1, "int", 500, "long", 0x00090000);退出效果 
Exit 
EndSwitch 
WEnd 
func csesc() 
Exit 
EndFunc 
func nosetup() 
Exit 
EndFunc 
Func error($s) 
MsgBox(0,"错误!",$s) 
Exit 
EndFunc 

Func mytime() 
if $wsj < 0 Then 
if GUICtrlRead ($Checkbox[1])=$GUI_CHECKED Then 
RunWait ($ljpath[1][1]) 
endif 
if GUICtrlRead ($Checkbox[2])=$GUI_CHECKED Then 
RunWait ($ljpath[2][1]) 
endif 
if GUICtrlRead ($Checkbox[3])=$GUI_CHECKED Then 
RunWait ($ljpath[3][1]) 
endif 

if GUICtrlRead ($Checkbox[4])=$GUI_CHECKED Then 
RunWait ($ljpath[4][1]) 
endif 

if GUICtrlRead ($Checkbox[5])=$GUI_CHECKED Then 
RunWait ($ljpath[5][1]) 
endif 

if GUICtrlRead ($Checkbox[6])=$GUI_CHECKED Then 
RunWait ($ljpath[6][1]) 
endif 

if GUICtrlRead ($Checkbox[7])=$GUI_CHECKED Then 
RunWait ($ljpath[7][1]) 
endif 


if GUICtrlRead ($Checkbox[8])=$GUI_CHECKED Then 
RunWait ($ljpath[8][1]) 
endif 

Exit 
Else 
GUICtrlSetData ($Progress1,100-$wsj * $all) 
if GUICtrlRead ($Checkbox[1])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[2])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[3])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[4])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[5])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[6])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[7])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
if GUICtrlRead ($Checkbox[8])=$GUI_UNCHECKED Then 
AdlibDisable() 
endif 
GUICtrlSetData($Button1,""&$wsj&"秒后安装所选软件") 
$wsj=$wsj-1 
;Sleep(500) 
EndIf 
EndFunc 


func setup() 
AdlibDisable() 
if GUICtrlRead ($Checkbox[1])=$GUI_CHECKED Then 
RunWait ($ljpath[1][1]) 
endif 
if GUICtrlRead ($Checkbox[2])=$GUI_CHECKED Then 
RunWait ($ljpath[2][1]) 
endif 
if GUICtrlRead ($Checkbox[3])=$GUI_CHECKED Then 
RunWait ($ljpath[3][1]) 
endif 

if GUICtrlRead ($Checkbox[4])=$GUI_CHECKED Then 
RunWait ($ljpath[4][1]) 
endif 

if GUICtrlRead ($Checkbox[5])=$GUI_CHECKED Then 
RunWait ($ljpath[5][1]) 
endif 

if GUICtrlRead ($Checkbox[6])=$GUI_CHECKED Then 
RunWait ($ljpath[6][1]) 
endif 

if GUICtrlRead ($Checkbox[7])=$GUI_CHECKED Then 
RunWait ($ljpath[7][1]) 
endif 


if GUICtrlRead ($Checkbox[8])=$GUI_CHECKED Then 
RunWait ($ljpath[8][1]) 
endif 
exit 

EndFunc 

Func allrj() 
for $i=1 to 8 
if GUICtrlRead ($Checkbox[$i])=$GUI_CHECKED Then 
okrj() 
ExitLoop 
Else 
norj() 
ExitLoop 
EndIf 
Next 
EndFunc 

Func okrj() 
for $i=1 to 8 
GUICtrlSetState ( $Checkbox[$i], $GUI_UNCHECKED ) 
next 
EndFunc 
Func norj() 
for $i=1 to 8 
GUICtrlSetState ( $Checkbox[$i], $GUI_CHECKED ) 
next 
EndFunc 
;-------------------------------------------------------------------------------------------

配置文件：

 ;配置文件
[路径]
迅雷5="notepad.exe"
暴风影音3="c:\windows\Storm.exe"
酷我音乐盒="c:\windows\runonce\software\KWMUSIC.exe"
腾讯QQ2008="c:\windows\runonce\software\QQ2008.exe"
PPS网络电视="c:\windows\runonce\software\PPstream.exe"
Maxthon="d:\wenqq\qq\qq.exe"
精美桌面主题="c:\windows\runonce\software\Themes.exe"
梦幻水族馆屏保="c:\windows\runonce\software\pingbao.exe"
;左边的文字显在选框中的 右边为安装的路径。程序要做成自动安装方式。
[窗口标题]
标题=软件自动安装 
[图像]
图像=
;图像路径为空时。在程序目录下的AA.jpg为logo

qq1244521 · 发表于 2010-2-18 14:06:49

呵呵真是的都没有人回答哦可是看你的代码可真是一般哦

给你一个刚刚回答问题的源码看看你参考下

这样对你版本升级和代码修改都帮助

http://www.autoitx.com/forum.php ... mp;page=1#pid137691

连接地址

qq1244521 · 发表于 2010-2-18 14:11:48

我没太仔细看虽说有错误但是你可以参考下他的代码
基本制作一个不需要界面的的软件安装器
就那几个命令调用配置文件启动外部程序说的是简单了点还是自己看吧
自己多查查帮助对自己有好处的哦印象深刻

#NoTrayIcon

#Region ;**** 参数创建于 ACNWrapper_GUI ****

#AutoIt3Wrapper_icon=setup1.ico

#AutoIt3Wrapper_Res_Description=软件安装器 v1.0

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_Field=主页|http://wjq0886.spaces.live.com

#AutoIt3Wrapper_Res_Field=源码|wjq0886

#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 



脚本作者: wjq0886

    主页: http://wjq0886.spaces.live.com/

    QQ/TM: 

脚本版本: 1.0.0.0

脚本功能: 软件安装器 



#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 



#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#include <StaticConstants.au3>

#include <ButtonConstants.au3>

#include <GuiListView.au3>

#include <Misc.au3>

_Singleton("test")

$g_szVersion = "test"

If WinExists($g_szVersion) Then Exit

AutoItWinSetTitle($g_szVersion)

If FileExists(@ScriptDir & "" & "SoftIns.ini") <> 1 Then

    MsgBox(64, "", "出错了，在当前目录下没有找到配置文件SoftIns.ini。")

    Exit

EndIf

$rdmu = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "rd", "")

$biaoti = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "name", "")

$Form1 = GUICreate($biaoti, 400, 330, -1, -1)

$picname = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "pic", "")

$pic = GUICtrlCreatePic($picname, 0, 0, 400, 70)

$button1 = GUICtrlCreateButton("安装(&E)", 335, 300, 55, 25)

$button2 = GUICtrlCreateButton("全选(&Q)", 280, 300, 55, 25)

$button3 = GUICtrlCreateButton("不选(&B)", 225, 300, 55, 25)

$nListView = GUICtrlCreateListView("软件名称|大小(M)|版本|推荐等级", 0, 70, 400, 225, $LVS_ICON, BitOR($LVS_EX_CHECKBOXES, $LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))

_GUICtrlListView_SetColumnWidth($nListView, 0, 150) ;设置ListView标题宽度

FileInstall("_setup.ico", @TempDir & "\_setup.ico", 1)

GUICtrlSetImage($nListView, "_setup.ico")

FileDelete(@TempDir & "\_setup.ico")

$set = IniReadSectionNames(@ScriptDir & "\SoftIns.ini")

$r = 0

Local $Listem[$set[0] + 1]

Local $name[$set[0] + 1]

Local $canshu[$set[0] + 1], $xg

If @error Then

    MsgBox(4096, "", "配置文件SoftIns.ini错误，请检查。")

    Exit

Else

    For $i = 1 To $set[0]

        If $set[$i] = "Main" Then

        Else

            $setup = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "setup", "")

            If @error Then

            Else

                $xg = StringInStr($setup, " /")

                If $xg = 0 Then

                    $name[$i] = @ScriptDir & "" & $setup

                Else

                    $name[$i] = @ScriptDir & "" & StringLeft($setup, $xg - 1)

                    $canshu[$i] = StringTrimLeft($setup, $xg - 1)

                EndIf

                If FileExists($name[$i]) = 1 Then

                    $dx = Round(FileGetSize($name[$i]) / 1024 / 1024, 2)

                Else

                    $dx = "文件不存在"

                EndIf

            EndIf

            $Version = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "Version", "")

            If @error Then

            Else

                If $Version = "" Then

                    $bb = FileGetVersion($name[$i])

                Else

                    $bb = $Version

                EndIf

            EndIf

            $section = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "section", "")

            If @error Then

            Else

                If $section = 1 Or $section = 2 Or $section = 3 Then

                    If $section = 1 Then

                        $dj = "必备软件"

                    EndIf

                    If $section = 2 Then

                        $dj = "常用软件"

                    EndIf

                    If $section = 3 Then

                        $dj = "可选软件"

                    EndIf

                Else

                    $dj = ""

                EndIf

            EndIf

            $Listem[$i] = GUICtrlCreateListViewItem($set[$i] & "|" & $dx & "|" & $bb & "|" & $dj, $nListView)

            $state = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "state", "")

            If @error Then

            Else

                If $state = 1 Then

                    GUICtrlSetState($Listem[$i], $GUI_CHECKED)

                EndIf

            EndIf

            $ico = IniRead(@ScriptDir & "\SoftIns.ini", $set[$i], "ico", "")

            If @error Then

            Else

                GUICtrlSetImage($Listem[$i], @ScriptDir & "" & $ico)

            EndIf

        EndIf

    Next

EndIf

$shijian = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "time", "")

If @error Then

    $shijian = 15

Else

    If $shijian = "" Then

        $shijian = 15

    EndIf

EndIf

$Label1 = GUICtrlCreateLabel(" " & $shijian, 0, 303, 30, 25)

GUICtrlSetColor($Label1, 0xFF0000)

GUICtrlSetFont($Label1, 12, 800)

$Label2 = GUICtrlCreateLabel("秒后自动安装所选中的软件", 30, 305, 150, 25)

GUICtrlSetColor($Label2, 0x0000FF)

GUISetState(@SW_SHOW, $Form1)

$time = $shijian - 1

AdlibEnable("djs", 100 * $time)

$wait = 0

While 1

    $nMsg = GUIGetMsg()

    Select

        Case $nMsg = $GUI_EVENT_CLOSE

            Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & $rdmu & '"', $rdmu, @SW_HIDE)

            Exit

        Case $nMsg = $button2

            For $i = 1 To $set[0]

                GUICtrlSetState($Listem[$i], $GUI_CHECKED)

            Next

        Case $nMsg = $button3

            For $i = 1 To $set[0]

                GUICtrlSetState($Listem[$i], $GUI_UNCHECKED)

            Next

        Case $nMsg = $GUI_EVENT_PRIMARYDOWN

            AdlibDisable()

            GUICtrlSetState($Label1, $GUI_HIDE)

            $xx = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "label", "")

            If @error Or $xx = "" Then

                $xx = "-- wjq0886 作品 --"

            EndIf

            GUICtrlSetData($Label2, $xx)

            GUICtrlSetState($Label2, $GUI_DISABLE)

        Case $nMsg = $button1

            yunxing()

    EndSelect

WEnd

Func djs()

    GUICtrlSetData($Label1, " " & $time)

    $time = $time - 1

    If $time = -1 Then

        yunxing()

    EndIf

EndFunc   ;==>djs

Func yunxing()

    GUISetState(@SW_HIDE, $Form1)

    For $i = 1 To $set[0]

        If GUICtrlRead($Listem[$i], 1) <> 1 Then

            $r = $r + 1

        EndIf

    Next

    If $r = $set[0] Then

        MsgBox(64, "", "您没有选择安装任何软件。")

        GUISetState(@SW_SHOW, $Form1)

    Else

        ProgressOn("", "", "", -1, @DesktopHeight - 135, 1)

        $pro = IniRead(@ScriptDir & "\SoftIns.ini", "Main", "pro", "")

        For $i = 1 To $set[0]

            ProgressSet(($i - 2) * 100 / ($set[0] - 2), "正在安装" & $set[$i] & "..." & @CRLF & @CRLF & $pro, "")

            If GUICtrlRead($Listem[$i], 1) <> 1 Then

            Else

                If $xg = 0 Then

                    ShellExecuteWait($name[$i])

                Else

                    ShellExecuteWait($name[$i], $canshu[$i])

                EndIf

            EndIf

        Next

        Sleep(600)

        ProgressOff()

        $ask = MsgBox(4, "询问", "您选择安装的所有软件已经完成。" & @CRLF & "您要删除所有的软件吗？(删除程序及所在目录的所有文件)")

        If $ask = 6 Then

            Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & $rdmu & '"', $rdmu, @SW_HIDE)

            Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & @ScriptDir & '"', @ScriptDir, @SW_HIDE)

            Exit

        Else

            Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&rd /q/s "' & $rdmu & '"', $rdmu, @SW_HIDE)

            Exit

        EndIf

    EndIf

EndFunc   ;==>yunxing 



#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 



    AutoIt 版本: 3.2.13.6 (第一版) 



#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本结束＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
复制代码配置程序：;软件安装器1.0配置文件 

;  ------------------------------------

;

;       主页：http://wjq0886.spaces.live.com/

;       程序：软件安装器1.0

;       制作： wjq0886

;

;  ------------------------------------ 



;  =============== 程序界面设置部分 ============= 



[Main]

;窗口标题，默认不使用

name=SoftIns 1.0 



;倒计时，单位：秒                                             

time=15 



;倒计时停止，显示在窗体的标签                                            

label=-- wjq0886 作品 --

;进度条标签                    

pro=------- 软件安装器1.0 By wjq0886 --------   



;logo图片，使用相对路径  

pic=logo.jpg 



;程序退出前要清空的目录(删除目录下所有的文件)，请填写完整的路径

rd=                                             



;  ================   软件安装部分  ============== 



;例子：

;[软件名称]

;setup=软件路径，连运行参数一块写上

;state=1或0：1为默认选中，0为不选中

;Version=软件版本,如果你不写，则由程序自动获取

;ico=软件图标文件的路径

;section=软件推荐等级，1为必备软件，2为常用软件，3为可选软件 



;还有什么不明白的，请往下再研究下吧。 



[360安全卫士]

setup=Software\360safe.exe /S

state=1

Version=

ico=ico\360安全卫士.ico

section=1 



[腾讯QQ2008]

setup=Software\QQ2008.exe /S

state=1

Version=正式版

ico=ico\QQ2008.ico

section=2 



[遨游网页浏览器]

setup=Software\mx_2.1.2.649cn.exe

state=3

Version=2.1.2.649

ico=ico\遨游浏览器.ico

section=3 



[暴风影音高清版]

setup=Software\Storm3-321.exe /S

state=1

Version=

ico=ico\暴风影音.ico

section=2 



[极点五笔输入法]

setup=Software\极点五笔6.2.exe

state=1

Version=

ico=ico\极点五笔.ico

section=2 



[千千静听]

setup=Software\ttpsetup.exe

state=1

Version=

ico=ico\ttplayer.ico

section=2 



[Baidu Hi]

setup=Software\BaiduHi_1.0_Beta2.exe

state=0

Version=1.0 beta2

ico=ico\百度Hi.ico

section=3 



[迅雷5]

setup=Software\Thunder5.8.3.545.exe /Silent

state=1

Version=

ico=ico\Thunder.ico

section=1 



[eMule电骡]

setup=Software\eMule-VeryCD-Setup.exe

state=0

Version=0.48a

ico=ico\eMule.ico

section=3 



[7-Zip文件管理器]

setup=Software\7z458chs.exe

state=1

Version=4.58beta

ico=ico\7-Zip.ico

section=2 



[WinRAR文件管理器]

setup=Software\winrar371sc.exe /S

state=1

Version=3.71正式版

ico=ico\WinRAR.ico

section=1 



[搜狗拼音输入法奥运版]

setup=Software\sogou_pinyin_35.exe /S

state=1

Version=

ico=ico\搜狗拼音.ico

section=2 



[ACDSee]

setup=Software\ACDSee3.1.exe /Silent

state=1

Version=

ico=ico\ACDSee.ico

section=2 

;  ====================  配文件结束=====================

nmgwddj · 发表于 2010-2-18 17:12:56

楼主看看这个希望对你有帮助！

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 436, 284, 192, 124)
$Button1 = GUICtrlCreateButton("执行", 110, 240, 80, 30)
$Button2 = GUICtrlCreateButton("取消", 240, 240, 80, 30)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 80, 56, 105, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 80, 96, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 80, 136, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 184, 56, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 184, 96, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 184, 136, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 280, 56, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 280, 96, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox9", 280, 136, 97, 17)
$Progress1 = GUICtrlCreateProgress(72, 208, 289, 9);进度条
$Group1 = GUICtrlCreateGroup("Group1", 40, 32, 353, 153)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 40, 184, 353, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        If GUICtrlRead($Checkbox1) = 1 Then
                                bat1()
                                GUICtrlSetData($Progress1, 10)
                        EndIf
                        If GUICtrlRead($Checkbox2) = 1 Then
                                bat2()
                                GUICtrlSetData($Progress1, 20)
                        EndIf
                        If GUICtrlRead($Checkbox3) = 1 Then
                                bat3()
                                GUICtrlSetData($Progress1, 30)
                        EndIf
                        If GUICtrlRead($Checkbox4) = 1 Then
                                bat4()
                                GUICtrlSetData($Progress1, 40)
                        EndIf
                        If GUICtrlRead($Checkbox5) = 1 Then
                                bat5()
                                GUICtrlSetData($Progress1, 50)
                        EndIf
                        If GUICtrlRead($Checkbox6) = 1 Then
                                bat6()
                                GUICtrlSetData($Progress1, 60)
                        EndIf
                        If GUICtrlRead($Checkbox7) = 1 Then
                                bat7()
                                GUICtrlSetData($Progress1, 70)
                        EndIf
                        If GUICtrlRead($Checkbox8) = 1 Then
                                bat8()
                                GUICtrlSetData($Progress1, 80)
                        EndIf
                        If GUICtrlRead($Checkbox9) = 1 Then
                                bat9()
                                GUICtrlSetData($Progress1, 90)
                        EndIf
                        GUICtrlSetData($Progress1, 100)
                        MsgBox(64, "提示", "全部任务完成")
                        GUICtrlSetData($Progress1, 0)
        EndSwitch
WEnd
Func bat1()
        $bar = GUICtrlCreateLabel("正在执行第1句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat1
Func bat2()
        $bar = GUICtrlCreateLabel("正在执行第2句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat2
Func bat3()
        $bar = GUICtrlCreateLabel("正在执行第3句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat3
Func bat4()
        $bar = GUICtrlCreateLabel("正在执行第4句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat4
Func bat5()
        $bar = GUICtrlCreateLabel("正在执行第5句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat5
Func bat6()
        $bar = GUICtrlCreateLabel("正在执行第6句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat6
Func bat7()
        $bar = GUICtrlCreateLabel("正在执行第7句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat7
Func bat8()
        $bar = GUICtrlCreateLabel("正在执行第8句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat8
Func bat9()
        $bar = GUICtrlCreateLabel("正在执行第9句...", 180, 15, 150, 12)
        Sleep(3000)
EndFunc   ;==>bat9

sxzcz · 发表于 2010-2-19 16:42:03

有门了，研究下...

sxzcz · 发表于 2010-2-19 16:46:37

回复 2# qq1244521
那也是我在网上找的，并提出问题，这个主题代码也有缺陷，楼上代码静默参数大多可以正常运行
，而你给的这个不一定能运行，我这儿有个千千静听是7z打包，加的参数，那个不能静默安装，此代码却能正常运行！

sxzcz · 发表于 2010-2-19 16:49:37

回复 2# qq1244521
那也是我在网上找的，并提出问题，这个主题代码也有缺陷，楼上代码静默参数大多可以正常运行
，而你给的这个不一定能运行，我这儿有个千千静听是7z打包，加的参数，那个不能静默安装，此代码却能正常运行！

注明：所有代码都不是我的，网上粘贴来的，我还没这大本事呢。

netegg · 发表于 2010-2-20 08:21:03

进度条本身没有预测功能，把你需要的时长定义后做一个间隔变量就可以了

devilma · 发表于 2010-2-20 20:01:52

4楼的我也收藏一下，学习。

Jax · 发表于 2010-2-22 23:43:38

刚开始学. 看起来有点晕. 呵呵

水饺睡觉 · 发表于 2010-7-2 23:51:26

我来收藏，留着以后学习用。

mxj987 · 发表于 2010-7-8 21:09:48

nmgwddj 这个发的好谢谢

rocklerson · 发表于 2010-7-9 23:31:08

收藏了，以后备用。

liu19910917 · 发表于 2010-9-20 21:15:08

看看学习下多谢楼主！！！

wlgzs · 发表于 2010-11-29 01:38:53

Nice软件安装管理器

		自动登录	找回密码
密码			加入

[AU3基础] 请教如何在软件安装管理器上加上进度条？附源码...

本帖子中包含更多资源

本帖子中包含更多资源