找回密码
 加入
搜索
查看: 1934|回复: 0

[AU3基础] 程序没有按要求被调用

[复制链接]
发表于 2015-3-31 19:32:04 | 显示全部楼层 |阅读模式
本帖最后由 dnvplj 于 2015-4-10 14:00 编辑

各位朋友,下面代码中没有按配置文件被调用,面是直接调用目录里的程序,整了2天也没有整明白,所以到论坛求各位朋友给予指教。
#include <Constants.au3 >
#include <WinAPI.au3>
#include <WinAPIEx.au3>
#include <Misc.au3>

#include <ProgressConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region
$Form1_SoftInstall = GUICreate("Soft_Name", 552, 393, 193, 131)
$Group1 = GUICtrlCreateGroup("  选择软件:  ", 8, 96, 537, 245)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("安装", 352, 360, 75, 25)
Global $Button2 = GUICtrlCreateButton("退   出", 440, 360, 75, 25)
Global $Radio1 = GUICtrlCreateRadio("全选", 216, 364, 57, 17)
Global $Radio2 = GUICtrlCreateRadio("全不选", 280, 364, 65, 17)
$Pic1 = GUICtrlCreatePic("", 0, 0, 609, 105)
GUISetState(@SW_SHOW)
#EndRegion

If Not FileExists(@ScriptDir & "\test.ini") Then
        MsgBox(0, "配置文件不存在", "找不到:" & @ScriptDir & "\test.ini")
        Exit
        
EndIf
Global $secNamesArray = IniReadSectionNames(@ScriptDir & "\test.ini")

If @error Then
        
        MsgBox(0, "配置文件为空", "请检查:" & @ScriptDir & "\test.ini")
        Exit
        
EndIf


Global $secCnt = $secNamesArray[0]
Global $Checkbox1[$secCnt][3]

For $i = 0 To $secCnt - 1
        $Checkbox1[$i][1] = $secNamesArray[$i + 1]
        $Checkbox1[$i][0] = GUICtrlCreateCheckbox($Checkbox1[$i][1], _Iif($i < 5, 60, 330), 120 + Mod($i, 5) * 35, 193, 33)
        $Checkbox1[$i][2] = IniRead(@ScriptDir & "\test.ini", $Checkbox1[$i][1], "文件名", "没有读到")
Next

While 1
        
        $nMsg = GUIGetMsg()
        Switch $nMsg
                
                Case $GUI_EVENT_CLOSE
                        Exit
                        
                Case $Radio1
                        SetAllCheckBox(True)
                        
                Case $Radio2
                        SetAllCheckBox(False)
                        
                Case $Button1
                        Setup1()
                        
                Case $Button2
                        Exit

        EndSwitch
WEnd

Func Setup1()
        ProgressOn("安装进度", "")
        For $i = 0 To UBound($Checkbox1) - 1
                $name=stringsplit($Checkbox1[$i][2],"")                
                ProgressSet(100 / UBound($Checkbox1) * $i, "已完成" & 100 / UBound($Checkbox1) * $i & " % ", "正在安装:" & $name[UBound($name) - 1])
                RunWait($Checkbox1[$i][2])

        Next
        ProgressSet(100, "完成", "完成")
        Sleep(500)
        ProgressOff()
EndFunc   ;==>Setup1
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-16 16:18 , Processed in 0.068876 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表