[已解决]求助AU3复选框判断！！！-已解决问题区-AUTOIT CN

srhack 发表于 2012-3-21 15:02:54

[已解决]求助AU3复选框判断！！！

本帖最后由 srhack 于 2012-3-22 09:09 编辑

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("软件自动安装网吧版--by.IeAnDgvt QQ:12079110", 483, 410, 192, 114)
$Pic1 = GUICtrlCreatePic("D:\Personal\桌面\124.jpg", 0, 0, 481, 129)
$Checkbox1=GUICtrlCreateCheckbox("Microsoft .NET Framework2.0", 48, 144, 185, 25)
$Checkbox2= GUICtrlCreateCheckbox("搜狗拼音网吧版", 291, 144, 113, 25)
$Checkbox3= GUICtrlCreateCheckbox("OFFICE 2003 简化版", 48, 200, 137, 25)
$Checkbox4= GUICtrlCreateCheckbox("Realplay10.6经典版", 291, 196, 129, 25)
$Checkbox5= GUICtrlCreateCheckbox("远古播放器2010网吧版", 48, 248, 145, 25)
$Checkbox6= GUICtrlCreateCheckbox("迅雷无广告版", 291, 247, 97, 25)
$Button1 = GUICtrlCreateButton("安装", 88, 296, 65, 25)
$Button2 = GUICtrlCreateButton("退出", 279, 296, 65, 25)
$Label1 = GUICtrlCreateLabel("请在你将要安装的软件上打钩，然后点击安装即可", 16, 360, 268, 17)

$Label2 = GUICtrlCreateLabel("请根据需要安装，附加软件可以不选！", 16, 384, 208, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $Checkbox
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
For $i=1 to 6
$t="checkbox" &$i
Next

if GUICtrlRead(Eval($t))=$GUI_UNCHECKED Then
MsgBox(0,"11111","222222")
if GUICtrlRead(Eval($t))=$GUI_CHECKED Then

MsgBox(64,"33333","44444")
EndIf
EndIf

EndSwitch
WEnd

如果实现按下安装按钮如果,没有选择一个的话提示.没有选任何软件,如果选择其中一个的话择不提示执行所选的.,

如果先择两个的话自动按顺序执行..

忘坛里的,.,有时间的兄弟出来帮个忙谢谢!!!

问题已解决感谢兄弟们！
http://www.autoitx.com/forum.php?mod=viewthread&tid=31111&extra=

user3000 发表于 2012-3-21 15:24:18

你的代码已经接近于实现了...逻辑上稍稍差了一点点而已....#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("软件自动安装网吧版--by.IeAnDgvt QQ:12079110", 483, 410, 192, 114)
$Pic1 = GUICtrlCreatePic("D:\Personal\桌面\124.jpg", 0, 0, 481, 129)
$Checkbox1 = GUICtrlCreateCheckbox("Microsoft .NET Framework2.0", 48, 144, 185, 25)
$Checkbox2 = GUICtrlCreateCheckbox("搜狗拼音网吧版", 291, 144, 113, 25)
$Checkbox3 = GUICtrlCreateCheckbox("OFFICE 2003 简化版", 48, 200, 137, 25)
$Checkbox4 = GUICtrlCreateCheckbox("Realplay10.6经典版", 291, 196, 129, 25)
$Checkbox5 = GUICtrlCreateCheckbox("远古播放器2010网吧版", 48, 248, 145, 25)
$Checkbox6 = GUICtrlCreateCheckbox("迅雷无广告版", 291, 247, 97, 25)
$Button1 = GUICtrlCreateButton("安装", 88, 296, 65, 25)
$Button2 = GUICtrlCreateButton("退出", 279, 296, 65, 25)
$Label1 = GUICtrlCreateLabel("请在你将要安装的软件上打钩，然后点击安装即可", 16, 360, 268, 17)
$Label2 = GUICtrlCreateLabel("请根据需要安装，附加软件可以不选！", 16, 384, 208, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Local $Checkbox
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Button2
Exit

Case $Button1
Local $bool = False
For $i = 1 To 6
$t = "checkbox" & $i
If GUICtrlRead(Eval($t)) = $GUI_CHECKED Then
$bool = True
MsgBox(64, "选中项目", "第 " & $i & ' 个已选中! ')
EndIf
Next
If Not $bool Then MsgBox(48, '', '一个也没有选中')
EndSwitch
WEnd

user3000 发表于 2012-3-21 15:26:14

在Scite 上排版好好的. 怎么一贴上来, 总发现最后的几排代码会'乱'了呢?
怪了, 以前似乎没这事啊...

502762378 发表于 2012-3-21 15:29:52

回复 3# user3000

一直都有，一直不知怎么解决

srhack 发表于 2012-3-21 15:30:51

回复 3# user3000

谢谢了。。。速度快，。厉害。。。能不能解释下，，不好意思刚刚学，，

user3000 发表于 2012-3-21 15:49:22

回复user3000

谢谢了。。。速度快，。厉害。。。能不能解释下，，不好意思刚刚学，，
srhack 发表于 2012-3-21 15:30 http://www.autoitx.com/images/common/back.gif

...不懂就详细指出来哪不懂呀, 但可不能要我们每条语句都...

srhack 发表于 2012-3-21 15:50:51

回复 6# user3000

我只要没选中一个的时候提示没选种但如果我选种相应的软件就安装该软件

怎么弄

user3000 发表于 2012-3-21 15:53:45

回复user3000

我只要没选中一个的时候提示没选种但如果我选种相应的软件就安装该软件

怎么 ...
srhack 发表于 2012-3-21 15:50 http://www.autoitx.com/images/common/back.gif
For 循环里不是有 MsgBox(64, "选中项目", "第 " & $i & ' 个已选中! ') 吗?
把这个替换成打开相应安装包啊...
比如:Run ('c:\123\123.exe')
脑子要懂得变通..

woku2538 发表于 2012-3-21 15:56:07

就安装该软件呀

afan 发表于 2012-3-21 15:57:01

For 循环里不是有 MsgBox(64, "选中项目", "第 " & $i & ' 个已选中! ') 吗?
把这个替换成打开相应安装 ...
user3000 发表于 2012-3-21 15:53 http://www.autoitx.com/images/common/back.gif

RunWait...

srhack 发表于 2012-3-21 15:58:13

回复 8# user3000

不好意思见笑了，。。，。那执行其它的呢。。

麻烦你随便用1。exe 2.exe ==随便代替下，，搞个完整代码

user3000 发表于 2012-3-21 16:02:30

RunWait...
afan 发表于 2012-3-21 15:57 http://www.autoitx.com/images/common/back.gif

正确..
就是自动化安装, 最好也是一个一个的来!

zldfsz 发表于 2012-3-21 19:17:11

本帖最后由 zldfsz 于 2012-3-21 19:33 编辑

回复user3000

我只要没选中一个的时候提示没选种但如果我选种相应的软件就安装该软件

怎么 ...
srhack 发表于 2012-3-21 15:50 http://www.autoitx.com/images/common/back.gif

将2楼http://www.autoitx.com/images/common/back.gif改了下
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("软件自动安装网吧版--by.IeAnDgvt QQ:12079110", 483, 410, 192, 114)
$Pic1 = GUICtrlCreatePic("D:\Personal\桌面\124.jpg", 0, 0, 481, 129)
$Checkbox1 = GUICtrlCreateCheckbox("Microsoft .NET Framework2.0", 48, 144, 185, 25)
$Checkbox2 = GUICtrlCreateCheckbox("搜狗拼音网吧版", 291, 144, 113, 25)
$Checkbox3 = GUICtrlCreateCheckbox("OFFICE 2003 简化版", 48, 200, 137, 25)
$Checkbox4 = GUICtrlCreateCheckbox("Realplay10.6经典版", 291, 196, 129, 25)
$Checkbox5 = GUICtrlCreateCheckbox("远古播放器2010网吧版", 48, 248, 145, 25)
$Checkbox6 = GUICtrlCreateCheckbox("迅雷无广告版", 291, 247, 97, 25)
$Button1 = GUICtrlCreateButton("安装", 88, 296, 65, 25)
$Button2 = GUICtrlCreateButton("退出", 279, 296, 65, 25)
$Label1 = GUICtrlCreateLabel("请在你将要安装的软件上打钩，然后点击安装即可", 16, 360, 268, 17)
$Label2 = GUICtrlCreateLabel("请根据需要安装，附加软件可以不选！", 16, 384, 208, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Local $Checkbox
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Button2
Exit
Case $Button1
GUICtrlSetState($Button1,$GUI_DISABLE)
Local $bool = False
For $i = 1 To 6
$t = "checkbox" & $i
If GUICtrlRead(Eval($t)) = $GUI_CHECKED Then
$bool = True
setup($i)
EndIf
Next
If Not $bool Then
MsgBox(48, '', '一个也没有选中')
EndIf
GUICtrlSetState($Button1,$GUI_ENABLE)
EndSwitch
WEnd
Func setup($i)
Switch $i
Case 1
TrayTip("","正在安装Microsoft .NET Framework2.0,请勿动鼠标键盘",3)
Sleep(6000);延时表示安装过程，具体用RunWait("D:\Microsoft .NET Framework2.0.exe")，修改为对应路径
MsgBox(48, '', 'Microsoft .NET Framework2.0安装结束',2)
Case 2
TrayTip("","正在安装搜狗拼音网吧版,请勿动鼠标键盘",3)
Sleep(6000);延时表示安装过程，具体用RunWait("D:\搜狗拼音网吧版.exe")，修改为对应路径
MsgBox(48, '', '搜狗拼音网吧版安装结束',2)
Case 3
TrayTip("","正在安装OFFICE 2003 简化版,请勿动鼠标键盘",3)
Sleep(6000);延时表示安装过程，具体用RunWait("D:\OFFICE 2003 简化版.exe")，修改为对应路径
MsgBox(48, '', 'OFFICE 2003 简化版安装结束',2)
Case 4
TrayTip("","正在安装Realplay10.6经典版,请勿动鼠标键盘",3)
Sleep(6000);延时表示安装过程，具体用RunWait("D:\Realplay10.6经典版.exe")，修改为对应路径
MsgBox(48, '', 'Realplay10.6经典版安装结束',2)
Case 5
TrayTip("","正在安装远古播放器2010网吧版,请勿动鼠标键盘",3)
Sleep(6000);延时表示安装过程，具体用RunWait("D:\远古播放器2010网吧版.exe")，修改为对应路径
MsgBox(48, '', '远古播放器2010网吧版安装结束',2)
Case 6
TrayTip("","正在安装迅雷无广告版,请勿动鼠标键盘",3)
Sleep(6000);延时表示安装过程，具体用RunWait("D:\迅雷无广告版.exe")，修改为对应路径
MsgBox(48, '', '迅雷无广告版安装结束',2)
EndSwitch
EndFunc

freedom 发表于 2012-3-21 21:22:57

这个好像是绿茶的那个安装程序得嘛。？

srhack 发表于 2012-3-21 23:54:12

回复 13# zldfsz

谢谢高手,,,终于明白了,,在请教个问题..如果软件安装完成关闭软件怎么做

页: [1] 2 3

AUTOIT CN's Archiver

[已解决]求助AU3复选框判断！！！