复选框没有选中如何有个提示

请问各位朋友：如果没有选中复选框，在按“自动安装”按钮时如何做到有个提示，如，您没有选中任何想要安装的软件。

1. #include <GUIConstants.au3>
   
2. #include <ProgressConstants.au3>
   
3. #include <WindowsConstants.au3>
   
4. #include <StaticConstants.au3>
   
5. 
   
6. $soft_ini = FileOpen("Soft.ini", 0)
   
7. If $soft_ini = -1 Then
   
8.         MsgBox(16, "错误", '请检查配置文件' & @ScriptDir & '"Soft.ini"是否存在!')
   
9. EndIf
   
10. FileClose($soft_ini)
    
11. 
    
12. Const $N = 13, $s = 4
    
13. Dim $softname[$N], $softPath[$N], $soft[$N], $radio[$s], $InstallPath
    
14. 
    
15. For $i = 0 To $N - 1
    
16.                 $softname[$i] = IniRead("soft.ini", $i, "softname", "空")
    
17.         $softPath[$i] = IniRead("soft.ini", $i, "softpath", "空")
    
18. 
    
19. Next
    
20. 
    
21. $form = GUICreate("", 630, 420, -1, -1)
    
22. $Label1 = GUICtrlCreateLabel("软件 - 安装助理", 22, 33, 300, 26)
    
23. $Group1 = GUICtrlCreateGroup("", 22, 80, 588, 256)
    
24. 
    
25. $soft[1] = GUICtrlCreateCheckbox($softname[1], 60, 110, 150, 20)
    
26. $soft[2] = GUICtrlCreateCheckbox($softname[2], 60, 166, 150, 20)
    
27. $soft[3] = GUICtrlCreateCheckbox($softname[3], 60, 216, 150, 20)
    
28. $soft[4] = GUICtrlCreateCheckbox($softname[4], 60, 266, 150, 20)
    
29. 
    
30. $soft[5] = GUICtrlCreateCheckbox($softname[5], 243, 110, 150, 20)
    
31. $soft[6] = GUICtrlCreateCheckbox($softname[6], 243, 166, 150, 20)
    
32. $soft[7] = GUICtrlCreateCheckbox($softname[7], 243, 216, 150, 20)
    
33. $soft[8] = GUICtrlCreateCheckbox($softname[8], 243, 266, 150, 20)
    
34. 
    
35. $soft[09] = GUICtrlCreateCheckbox($softname[9], 426, 110, 150, 20)
    
36. $soft[10] = GUICtrlCreateCheckbox($softname[10], 426, 166, 150, 20)
    
37. $soft[11] = GUICtrlCreateCheckbox($softname[11], 426, 216, 150, 20)
    
38. $soft[12] = GUICtrlCreateCheckbox($softname[12], 426, 266, 150, 20)
    
39. 
    
40. $setA = IniRead("soft.ini", "select", "A", "")
    
41. $chooseA = IniRead("soft.ini", "select", "ChooseA", "")
    
42. $setB = IniRead("soft.ini", "select", "B", "")
    
43. $chooseB = IniRead("soft.ini", "select", "ChooseB", "")
    
44. 
    
45. $radio[1] = GUICtrlCreateRadio($setA & "(&A)", 140, 327, 60, 17)
    
46. $radio[2] = GUICtrlCreateRadio($setB & "(&B)", 210, 327, 61, 17)
    
47. 
    
48. $Button3 = GUICtrlCreateButton("自动安装", 406, 360, 82, 33)
    
49. $Button4 = GUICtrlCreateButton("退  出", 498, 360, 82, 33)
    
50. 
    
51. GUISetState(@SW_SHOW)
    
52. 
    
53. 
    
54. While 1
    
55.         $nMsg = GUIGetMsg()
    
56.         Select
    
57.                 Case $nMsg = $GUI_EVENT_CLOSE
    
58.                         AdlibUnRegister()
    
59.                         ExitLoop
    
60.                 Case $nMsg = $radio[1] And BitAND(GUICtrlRead($radio[1]), $GUI_CHECKED) = $GUI_CHECKED
    
61.                         $all = all()
    
62.                 Case $nMsg = $radio[2] And BitAND(GUICtrlRead($radio[2]), $GUI_CHECKED) = $GUI_CHECKED
    
63.                         $none = none()
    
64. 
    
65.                 Case $nMsg = $Button3
    
66.                         $AZ = AZ()
    
67.                         
    
68.                 Case $nMsg = $Button4
    
69.                         Exit
    
70.                         
    
71.         EndSelect
    
72. WEnd
    
73. 
    
74. Func all()
    
75.         AdlibUnRegister()
    
76.         For $i = 0 To $N - 1
    
77.                 If $softname[$i] And $softPath[$i] <> "" Then
    
78.                         GUICtrlSetState($soft[$i], $GUI_CHECKED)
    
79.                 Else
    
80.                         GUICtrlSetState($soft[$i], $GUI_UNCHECKED)
    
81.                 EndIf
    
82.         Next
    
83. 
    
84. EndFunc   ;==>all
    
85. 
    
86. Func none()
    
87.         AdlibUnRegister()
    
88.         For $i = 0 To $N - 1
    
89.                 If $softname[$i] And $softPath[$i] <> "" Then
    
90.                         GUICtrlSetState($soft[$i], $GUI_UNCHECKED)
    
91.                 Else
    
92.                         GUICtrlSetState($soft[$i], $GUI_UNCHECKED)
    
93.                 EndIf
    
94.         Next
    
95. EndFunc   ;==>none
    
96. 
    
97. Func AZ()
    
98.         AdlibUnRegister()
    
99.         For $i = 0 To $N - 1
    
100.                 If $softPath[$i] <> "" And GUICtrlRead($soft[$i]) = $GUI_CHECKED Then
     
101.                         RunWait(@ScriptDir & "" & $softPath[$i] & " " & $InstallPath)
     
102.                
     
103.                 EndIf
     
104.         Next
     
105. 
     
106.         If Not $softPath Then MsgBox(48, '温馨提示：', '您所选软件：现以安装完成，是否退？')
     
107. 
     
108. EndFunc   ;==>AZ

复制代码

1. Func AZ()
   
2.         AdlibUnRegister()
   
3.         For $i = 0 To $N - 1
   
4.                 If $softPath[$i] <> "" And GUICtrlRead($soft[$i]) = $GUI_UNCHECKED Then
   
5.                        MsgBox(0,"1",$soft[$i])       
   
6.                                    Else
   
7.                                             MsgBox(0,"3","3")       
   
8.                                                 ;RunWait(@ScriptDir & "" & $softPath[$i] & " " & $InstallPath)
   
9.                                        
   
10.                 EndIf
    
11.         Next
    
12. 
    
13.         If Not $softPath Then MsgBox(48, '温馨提示：', '您所选软件：现以安装完成，是否退？')
    
14. 
    
15. EndFunc   ;==>AZ

复制代码

厉害，很好的哦，我们都喜欢