Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 53
Благодарности: 0

Профиль | Отправить PM | Цитировать


Нужна помощь.
Вот скрипт.Автор его Creat0R за что ему ОГРОМНАЯ БЛАГОДАРНОСТЬ.
Нужно чтобы при отметке установки нескольких программ они запускались поочерёдно. Как это сделать?

Код: Выделить весь код
#NoTrayIcon
#Include <GuiConstants.au3>
Opt("RunErrorsFatal", 0)

$Title = "Menu"

If WinExists($Title) Then Exit

GuiCreate($Title, 148, 300)

GUISetFont(13)
GUICtrlCreateLabel("Выбор комплектов",2, 5)

GUISetFont(9)
$Complect1 = GUICtrlCreateCheckbox("AcrReader 4.0.5", 35, 25)
$Complect2 = GUICtrlCreateCheckbox("Office 2003", 35, 50)
$Complect3 = GUICtrlCreateCheckbox("WinRar 3.61", 35, 75)
$Complect4 = GUICtrlCreateCheckbox("DIVX 5.11", 35, 100)
$Complect5 = GUICtrlCreateCheckbox("LightAlloy 4.0", 35, 125)
$Complect6 = GUICtrlCreateCheckbox("WINDVD 7", 35, 150)
$Complect7 = GUICtrlCreateCheckbox("WinAmp 5.08", 35, 175)
$Complect8 = GUICtrlCreateCheckbox("Nero 6.6.0.8", 35, 200)
$Complect9 = GUICtrlCreateCheckbox("DrWeb 4.33", 35, 225)
$Complect10 = GUICtrlCreateCheckbox("Kav 5.338", 35, 250)

$Next = GUICtrlCreateButton("Next>>", 0, 276, 50)
$Cancel = GUICtrlCreateButton("Cancel", 99, 276, 50)

GUISetState()

While 1
$Msg = GUIGetMsg()

Select 
  
  Case $Msg = $Gui_Event_Close or $Msg = $Cancel
    Exit

  Case $Msg = $Next
	If GUICtrlRead($Complect1) <> 1 and GUICtrlRead($Complect2) <> 1 and GUICtrlRead($Complect3) <> 1 and GUICtrlRead($Complect4) <> 1 and GUICtrlRead($Complect5) <> 1 and GUICtrlRead($Complect6) <> 1 and GUICtrlRead($Complect7) <> 1 and GUICtrlRead($Complect8) <> 1 and GUICtrlRead($Complect9) <> 1 and GUICtrlRead($Complect10) <> 1 Then
		GUISetState(@SW_DISABLE)
		MsgBox(262144+48, "Attention", "Выберите как минимум одну птичку ;-)")
		GUISetState(@SW_ENABLE)
		WinActivate($Title, "")
		ContinueLoop
	EndIf

    If GUICtrlRead($Complect1) = $Gui_Checked Then
		Run ("AcrReader\Acrobat.exe")
		If @error Then
		  MsgBox(48, "error", "Не могу запустить <Acrobat.exe>")
		  ContinueLoop
		EndIf
  ;Тут должна выполняться установка комплекта № 1
    EndIf
    
    If GUICtrlRead($Complect2) = $Gui_Checked Then
		Run ("Office\AutoOffice.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoOffice.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 2
    EndIf
    
    If GUICtrlRead($Complect3) = $Gui_Checked Then
		Run ("WinRar\Autowinrar.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoWinRar.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 3
    EndIf

    If GUICtrlRead($Complect4) = $Gui_Checked Then
		Run ("DIVX\DivX511.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <DivX.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 4
    EndIf

    If GUICtrlRead($Complect5) = $Gui_Checked Then
		Run ("LightAlloy\LA.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <LA.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 5
    EndIf

    If GUICtrlRead($Complect6) = $Gui_Checked Then
		Run ("WINDVD\AutoWINDVD7.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoWinDVD.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 6
    EndIf

    If GUICtrlRead($Complect7) = $Gui_Checked Then
		Run ("WinAmp\AutoWinAmp.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoWinAmp.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 7
    EndIf

    If GUICtrlRead($Complect8) = $Gui_Checked Then
		Run ("Nero\Nero6608a.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <Nero.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 8
    EndIf

    If GUICtrlRead($Complect9) = $Gui_Checked Then
		Run ("DrWebAut\AutoDrWeb.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoDrWeb.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 9
    EndIf

    If GUICtrlRead($Complect10) = $Gui_Checked Then
		Run ("kav\AutoKav.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoKav.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 10
    EndIf

	GUISetState(@SW_HIDE)

ExitLoop

EndSelect

Wend

Отправлено: 22:45, 21-11-2006 | #486