srhack 发表于 2012-3-22 09:06:38

(已解决)感谢兄弟们！简单的软件安装器搞定了！

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

感谢ACN!!感谢Auotit感谢CCTV,..

感谢,,坛里群里的各位帮助过我的兄弟,,,

虽然只是一个小小的东东,,在高手眼里就分分钟的小软件,.,我给折腾了一两天，，，汗，，


但是我感觉到了努力后那种成功的心情，，！

以后会努力好好学习帮助像我这样刚刚接触的新同志。。。#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, -1, -1)
$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)
                                                GUICtrlSetState($Button2,$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 $bool Then
                                                          _end()
                                                          Else
                                                          MsgBox(48, '', '一个也没有选中')
                        EndIf
                        GUICtrlSetState($Button1,$GUI_ENABLE)
                                                GUICtrlSetState($Button2,$GUI_ENABLE)
                                        EndSwitch
                                       
                                       
WEnd
Func setup($i)
      Switch $i
                Case 1
                        TrayTip("","正在安装Microsoft .NET Framework2.0,请勿动鼠标键盘",3)
                                                Sleep(6000)
                        RunWait("1.exe")
                        
                Case 2
                        TrayTip("","正在安装搜狗拼音网吧版,请勿动鼠标键盘",3)
                                                Sleep(6000)
                     RunWait("2.exe")
                     
                Case 3
                        TrayTip("","正在安装OFFICE 2003 简化版,请勿动鼠标键盘",3)
                                                Sleep(6000)
                      RunWait("3.exe")
                        
                Case 4
                        TrayTip("","正在安装Realplay10.6经典版,请勿动鼠标键盘",3)
                                                Sleep(6000)
                     RunWait("4.exe")
                        
                Case 5
                        TrayTip("","正在安装远古播放器2010网吧版,请勿动鼠标键盘",3)
                                                Sleep(6000)
                        RunWait("5.exe")
                     
                Case 6
                        TrayTip("","正在安装迅雷无广告版,请勿动鼠标键盘",3)
                                                Sleep(6000)
                        RunWait("5.exe")
                           
                                       
                                        EndSwitch
                                               
        EndFunc
       
       
        Func _end()
               
               
               
                MsgBox(48, '', '所有软件这安装结束!',3)
                Exit
               
                EndFunc
下面贴出我想要的效果完整代码：

zldfsz 发表于 2012-3-22 09:19:29

提问交流区不能发没提问的贴，请修改

lpxx 发表于 2012-3-22 12:26:59

还需要多泡泡论坛，多请教老鬼。
不管怎么，对你的第一个成果表示恭喜。

srhack 发表于 2012-3-22 15:46:50

回复 3# lpxx


    嘿嘿..谢谢老鬼大大....莫非你就是>???老鬼

derek5257 发表于 2012-3-23 21:53:12

Thanks for your support! Master.

m765555 发表于 2013-12-3 21:31:27

j dk fkd       kjfdkfjdkfjkdjfkdj

ak47gglllk 发表于 2013-12-4 09:56:24

感谢，很好的东西。非常感谢

ivanhuang 发表于 2013-12-23 22:41:26

非常好，谢谢分享！

nqawen 发表于 2014-7-6 10:44:42

楼主值得学习啊，，，我是新手
页: [1]
查看完整版本: (已解决)感谢兄弟们！简单的软件安装器搞定了！