|
#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
选择了怎么不安装啊...判断错了么? |
|