Друзья, скажу сразу я новичок и только начал изучать AutoIT.
при автоматизации процесса установки почтового клиента столкнулся с проблемой выбора сервера установки. Для более дружественного инсталлятора хотелось бы при выборе в combobox'e выбрать "название филиала" и при нажатии "подтвердить" в элементе Label появлялось имя сервера, оответствующее выбранному в combobox'e элементу, который затем и будет использоваться в процессе установки. на данный момент при нажатии кнопки подтверждения в элементе label отображается точно то же, что и в combobox'e.
при автоматизации процесса установки почтового клиента столкнулся с проблемой выбора сервера установки. Для более дружественного инсталлятора хотелось бы при выборе в combobox'e выбрать "название филиала" и при нажатии "подтвердить" в элементе Label появлялось имя сервера, оответствующее выбранному в combobox'e элементу, который затем и будет использоваться в процессе установки. на данный момент при нажатии кнопки подтверждения в элементе label отображается точно то же, что и в combobox'e.
Код:
#Include <GUIComboBox.au3>
#Include <GUIConstantsEx.au3>
#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>
#Include <GUIListBox.au3>
Opt("GUICoordMode", 1)
$1 = GUICreate("Мастер автоматической установки Lotus Notes 7.0.2 Русская Версия - автор Павел Котков", 800,480, -1, -1)
$button_1 = GUICtrlCreateButton ("Установка", 30, 20, 120, 40)
GUIStartGroup()
$group_1 = GUICtrlCreateGroup ("Список шаблонов установки", 30, 90, 265, 210)
$group_2 = GUICtrlCreateGroup ("Переменные значения", 330, 90, 440, 190)
$group_3 = GUICtrlCreateGroup ("Инструкция по использованию мастера установки Lotus Notes 7.0.2", 30, 310, 740, 150)
$radio_1 = GUICtrlCreateRadio ("Управляющий", 50, 120, 100, 20)
$radio_2 = GUICtrlCreateRadio ("Старший МТЗ", 50, 150, 100, 20)
$radio_3 = GUICtrlCreateRadio ("Старший мен. ПиОТ", 50, 180, 120, 20)
$radio_4 = GUICtrlCreateRadio ("Старший кассир", 50, 210, 120, 20)
$radio_5 = GUICtrlCreateRadio ("Менеджер", 50, 240, 120, 20)
$radio_6 = GUICtrlCreateRadio ("Автор", 50, 270, 120, 20)
$File_1 = GUICtrlCreateInput ("", 350, 140, 200, 20)
$button_2 = GUICtrlCreateButton ("Обзор", 550, 138, 40, 25)
GUICtrlCreateLabel ("Путь к идентификационному файлу:", 350, 120, 200, 20)
GUICtrlCreateLabel ("Выбирите сервер:", 350, 170, 200, 20)
GUICtrlCreateLabel ("Данный мастер установки поможет Вам сконфигурировать Ваш почтовый клиент в соответствии занимаемой Вами должностью! Для выбора параметров установки Вам нужно выбрать в блоке ""Список шаблонов"" требуемый шаблон установки. Затем в блоке ""Переменные значения"" вы должны указать путь к вашему ID-файлу(по умолчанию, он лежит на диске V. Также Вы должны указать имя сервера, которое можно выбрать из списка!", 45, 325, 720, 120) ; first cell 50 width
$Combo = GUICtrlCreateCombo("",350,190, 150, 25)
$LABEL = GUICtrlCreateLabel("",355,234,130,20)
$SetServ_1 = GUICtrlSetData($combo,"Filial1")
$SetServ_2 = GUICtrlSetData($combo,"Filial2")
$SetServ_3 = GUICtrlSetData($combo,"Filial3")
$button_3 = GUICtrlCreateButton("Подтвердить",500,188,90,-1)
GUICtrlCreateLabel ("Вы выбрали сервер:", 355,215,130,20)
;GUICtrlCreateLabel ("Имя сервера филиала:", 485,215,130,20)
;GUICtrlCreateLabel ("-", 470,230,10,20)
GUICtrlSetState($radio_1, $GUI_UNCHECKED)
GUICtrlSetState($radio_2, $GUI_UNCHECKED)
GUICtrlSetState($radio_3, $GUI_UNCHECKED)
GUICtrlSetState($radio_4, $GUI_UNCHECKED)
GUICtrlSetState($radio_5, $GUI_UNCHECKED)
GUICtrlSetState($radio_6, $GUI_UNCHECKED)
GUICtrlCreateLabel ("Укажите имя пользователя:", 350, 254, 160, 20)
$UserName = GUICtrlCreateInput ("", 500, 252, 200, 20)
$Check = GUICtrlCreateCheckbox ("", 710, 252, 20, 20)
$Server_1 = "Server1"
$Server_2 = "Server2"
$Server_3 = "Server3"
$radioval1 = 0
$radioval2 = 6
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
; MsgBox(1, "Завершение работы", "Закончить работу мастера?")
If MsgBox(4+16, "Завершение работы", "Закончить работу мастера?")<>7 Then Exit
;Exit
Case $msg = $button_2
$message1 = "Выбор идентификационного файла"
$var = FileOpenDialog ($message1, "H:\", "ID-files Lotus (*.id)", 1)
If @error Then
MsgBox(16,"Ошибка","Файл не выбран")
Else
$Var = StringReplace($Var, "|", @CRLF)
$message2 = $var
GUICtrlCreateInput ($message2, 350, 140, 200, 22)
EndIf
case $msg = $Button_3
$SetVar = GUICtrlSetData($LABEL,GUICtrlRead($COMBO))
;$SetVar = GUICtrlSetData($data2,GUICtrlRead($data1))
Case $msg = $button_1
.....
If GUICtrlRead($radio_1)=$GUI_UNChecked Then
ElseIf $radioval1 = 0 Then
MsgBox (1, "Кнопка 1","Шаблон:;ID:;Сервер:")
EndIf
If GUICtrlRead($radio_2)=$GUI_UNChecked Then
ElseIf $radioval1 = 1 Then
MsgBox (1, "Кнопка 2","Шаблон:;ID:;Сервер:")
EndIf
If GUICtrlRead($radio_3)=$GUI_UNChecked Then
ElseIf $radioval1 = 2 Then
MsgBox (1, "Кнопка 3","Шаблон:;ID:;Сервер:")
EndIf
If GUICtrlRead($radio_4)=$GUI_UNChecked Then
ElseIf $radioval1 = 3 Then
MsgBox (1, "Кнопка 4","Шаблон:;ID:;Сервер:")
EndIf
If GUICtrlRead($radio_5)=$GUI_UNChecked Then
ElseIf $radioval1 = 4 Then
MsgBox (1, "Кнопка 5","Шаблон:;ID:;Сервер:")
EndIf
If GUICtrlRead($radio_6)=$GUI_UNChecked Then
ElseIf $radioval1 = 5 Then
MsgBox (1, "Кнопка 6","Шаблон:;ID:;Сервер:")
EndIf
EndIf
case $msg >= $radio_1 AND $msg <= $radio_6
$radioval1 = $msg - $radio_1
EndSelect
WEnd