找回密码
 加入
搜索
查看: 1484|回复: 4

那里出错了?

[复制链接]
发表于 2009-8-18 17:25:38 | 显示全部楼层 |阅读模式
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstants.au3>
#Include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <Array.au3>
$Form1                        = Guicreate("Form 1", 390, 217, -1, -1)

$Button1                = GuiCtrlCreateButton("安装", 50, 130, 90, 40)
$Button2                = GuiCtrlCreateButton("退出", 250, 130, 90, 40)

$Checkbox1                = GUICtrlCreateCheckbox("NET Framework 2.0", 30, 40, 140, 20)
$Checkbox2                = GUICtrlCreateCheckbox("搜狗拼音网吧版3.5", 30, 90, 140, 20)
$Checkbox3                = GUICtrlCreateCheckbox("OFFICE 2003 简化版", 220, 40, 140, 20)
$Checkbox4                = GUICtrlCreateCheckbox("远古播放器2009版", 220, 90, 140, 20)

$Label1                        = GuiCtrlCreateLabel("Label1", 220, 180, 140, 20)

$Group1                        = GUICtrlCreateGroup("Group1", 10, 10, 370, 190)
GUICtrlSetState ($Checkbox1, $GUI_CHECKED)
GUICtrlSetState ($Checkbox2, $GUI_CHECKED)
GUICtrlSetState ($Checkbox3, $GUI_CHECKED)
GUICtrlSetState ($Checkbox4, $GUI_CHECKED)

GuiSetState(@SW_SHOW)

While 1
        $Msg = GUIGetMsg()
        Switch $Msg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        If  GUICtrlRead($Checkbox1)=1 then
RunWait(@ScriptDir & "\dotnetfx2.0\install.exe /Q")
        EndIf
        If  GUICtrlRead($Checkbox2)=1 then
                RunWait(@ScriptDir & "\sogou.exe")
        EndIf
        If  GUICtrlRead($Checkbox3)=1 then
                RunWait(@ScriptDir & "\office2003.exe")
        EndIf
        If  GUICtrlRead($Checkbox4)=1 then
                RunWait(@ScriptDir & "\WebPlayer2009.exe /S")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "WebPlayerUpdater")
SplashOff()
endif
exit
        
                Case $Button2
exit
                Case $GUI_EVENT_CLOSE
                        Exit
                        
        EndSwitch
Wend


选择了怎么不安装啊...判断错了么?
发表于 2009-8-18 19:44:03 | 显示全部楼层
脚本所在的目录无需要安装的软件?
 楼主| 发表于 2009-8-18 20:04:07 | 显示全部楼层
@ScriptDir  在同一个目录下边有相应的软件啊
发表于 2009-8-19 03:10:16 | 显示全部楼层
经测试完全没问题,只对软件及参数的运行结果稍有怀疑。
或者安装完进程没退出之类。可以每次选择一个测试下(从第二个开始测)
 楼主| 发表于 2009-8-19 09:39:10 | 显示全部楼层
选好一点安装脚本就退出了..郁闷
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-6-17 06:12 , Processed in 0.097864 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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