找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解决]求助AU3复选框判断！！！
123下一页
返回列表 发新帖
查看: 13590|回复: 32

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

 火... [复制链接]
srhack
发表于 2012-3-21 15:02:54 | 显示全部楼层 |阅读模式
本帖最后由 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=
include, microsoft, 安装, 网吧

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

评分

参与人数 1金钱 +15 收起 理由
afan + 15 感谢主动将修改帖子分类为[已解决]，请继续 ...

查看全部评分

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
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

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

回复

举报

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


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

举报

srhack
 楼主| 发表于 2012-3-21 15:50:51 | 显示全部楼层
回复 6# user3000


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


怎么弄
回复

举报

user3000
发表于 2012-3-21 15:53:45 | 显示全部楼层
回复  user3000


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


怎么 ...
srhack 发表于 2012-3-21 15:50

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



    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



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

举报

zldfsz
发表于 2012-3-21 19:17:11 | 显示全部楼层
本帖最后由 zldfsz 于 2012-3-21 19:33 编辑
回复  user3000


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


怎么 ...
srhack 发表于 2012-3-21 15:50


将2楼改了下
#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

       

评分

参与人数 1金钱 +25 贡献 +1 收起 理由
afan + 25 + 1

查看全部评分

回复

举报

freedom
发表于 2012-3-21 21:22:57 | 显示全部楼层
这个好像是绿茶的那个安装程序得嘛。？
回复

举报

srhack
 楼主| 发表于 2012-3-21 23:54:12 | 显示全部楼层
回复 13# zldfsz


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

举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-5-16 20:56 , Processed in 0.085788 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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