Что нового

[Элементы GUI] Проблема с tabitem

AtoS

Новичок
Сообщения
57
Репутация
2
Собственно я запутался, есть окно в котором располагается 4 tabitem'а, при этом в каждом из них должен быть свой набор элиментов, но при введении элиментов в первый tabitem все остальные становятся невидимыми. Вот пример кода:
Код:
#Include <GUIComboBox.au3>
#Include <GUIConstantsEx.au3>
#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>
#Include <GUIListBox.au3>
#include <ButtonConstants.au3>	

Opt("GUICoordMode",1)
;Opt('MustDeclareVars', 1)
$msg1 = GUICreate("Интерфейс инженера технической поддержки пользователей",800,480, -1, -1)
;Local $button1, $button2, $button3, $button4, $button5, $button6, $button7, $button8, $button9, $button10, $button11, $button12
$tab=GUICtrlCreateTab (0,0, 800,480)
$tab0=GUICtrlCreateTabitem ("Запуск приложений")
$tab1=GUICtrlCreateTabitem ( "Установка приложений")
; Create the controls
$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,"DMITS10")
$SetServ_2 = GUICtrlSetData($combo,"Dmits11")
$SetServ_3 = GUICtrlSetData($combo,"Dmits100")
$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)
$FilName_1 = "Dmits10"
;GUICtrlSetState($butt, $GUI_FOCUS + $GUI_DEFBUTTON)
$radioval1 = 0    ; We will assume 0 = first radio button selected, 2 = last button
$radioval2 = 6
;$checkvar = GUICtrlRead($Check)=$GUI_UNChecked

  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
             $IDFold = 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
		; Запуск программы устнаовки Lotus Notes тестировался на IBM ThinkPad T43
		RunWait("d:\test\install\Lotus\setup.exe")
		; Окно приглашения к установке программы
		WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "", 3)
		Send("{enter}")
		; Окно принятия лицензионного соглашения
		WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard LAP", "", 3)
		Send("+{LCTRL 1}")
		Send("!п")
		; MouseClick("left", 377, 621, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
		WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard LAP", "", 3)
		Send("{enter}")
		; Окно ввода информации о пользователе и организации
		WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "", 3)
		Send("{TAB 1}")
		Send("+{LCTRL 1}")
		; MouseClick("left", 579, 457, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
		Send("Detskiy mir - Center")
		; MouseClick("left", 498, 638, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
		Send("+{LCTRL 1}")
		Send("{TAB 1}")
		Send("!в")
		Send("{enter}")
		; Окно изменения пути установки 1
		WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "Изменить", 3)
		Send("!и")
		; MouseClick("left", 488, 480, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
		; Окно изменения пути установки 2
		WinWait("Lotus Notes 7.0.2 ru - Install Wizard", "Изменение папки для установки программ")
		Send("{delete}")
		WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "Выберите папку для установки файлов программ.")
		Send("+{LCTRL 1}")
		Send("C:\Lotus\")
		Send("{enter}")
		; Окно подтвержения выбора пути
		WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "Выбор пути для установки:")
		Send("{enter}")
		; Окно выбора установки программных компонентов
		WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Выборочная установка")
		Send("{enter}")
		; Окно подтверждения готовности к установке
		WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Все готово для установки программы")
		Send("{enter}")
		; Окно завешения установки Лотус - Лотус установлен
		WinActivate("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Программа InstallShield Wizard завершена")
		WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Программа InstallShield Wizard завершена")
		Send("{enter}")
		Run("C:\Lotus\notes.exe")
		; Настройка Лотуса
        WinWait("Настройка клиента Lotus Notes", "")
        WinActivate("Настройка клиента Lotus Notes", "")
        WinWaitActive("Настройка клиента Lotus Notes", "")
        Send("{ENTER}")
         ; Введение седений о пользователе и сервере
        WinWait("Настройка клиента Lotus Notes", "Сведения о пользователе")
        WinActivate("Настройка клиента Lotus Notes", "Сведения о пользователе")
        WinWaitActive("Настройка клиента Lotus Notes", "Сведения о пользователе")
		If GUICtrlRead($Check)=$GUI_UNChecked Then
			MsgBox(16,"Ошибка","Файл не выбран")
		ElseIf GUICtrlRead($Check)=$GUI_Checked Then
		Send(GUICtrlRead($UserName))
		Send("{TAB 1}")
		Send(GUICtrlRead($Label))
		Send("{TAB 2}")
		Send("{ENTER 1}")
		; Подключение ID-файла пользователя
		WinWait("Настройка клиента Lotus Notes", "Файл учетной записи Notes")
		WinActivate("Настройка клиента Lotus Notes", "Файл учетной записи Notes")
		WinWaitActive("Настройка клиента Lotus Notes", "Файл учетной записи Notes")
		Send(GUICtrlRead($IDFold))
		Send("{TAB 2}")
		Send("{ENTER 1}")
		;WinWait("IBM Lotus Notes", "Скопировать файл учетной записи D:\TEST\Install\Lotus\pkotkov.id в каталог данных?")
		;WinActivate("IBM Lotus Notes", "Скопировать файл учетной записи D:\TEST\Install\Lotus\pkotkov.id в каталог данных?")
		WinWaitActive("IBM Lotus Notes", "Скопировать файл учетной записи")
		Send("{TAB 2}")
		Send("{ENTER 1}")
		; Ввод пароля в Лотус
		;WinWait("Lotus Notes", "")
		;WinActivate("Lotus Notes", "")
		WinWaitActive("Lotus Notes", "", 3)
		Send("rjhjdrf")
		Send("{ENTER 1}")
		; Настройка Службы экспресс сообщений
		;WinWait("Настройка клиента Lotus Notes", "Настройка службы экспресс-сообщений")
		;WinActivate("Настройка клиента Lotus Notes", "Настройка службы экспресс-сообщений")
		WinWaitActive("Настройка клиента Lotus Notes", "")
		Send("{TAB 2}")
		Send("{DOWN 1}")
		Send("{TAB 2}")
		Send("{ENTER 1}")
		WinWaitActive("Настройка клиента Lotus Notes", "Выберите службы, которые необходимо настроить:")
		Send("{ENTER 1}")
		WinWaitActive("IBM Lotus Notes", "Установка Notes завершена!")
		Send("{ENTER 1}")
		 If GUICtrlRead($radio_1)=$GUI_UNChecked Then
			ElseIf $radioval1 = 0 Then
			MsgBox (1, "Кнопка 1","Шаблон не создан")
		EndIf
		If GUICtrlRead($radio_2)=$GUI_UNChecked Then
			ElseIf $radioval1 = 1 Then 
			 MsgBox (1, "Кнопка 2","Шаблон не создан")
		 EndIf
		 If GUICtrlRead($radio_3)=$GUI_UNChecked Then
		 ElseIf $radioval1 = 2 Then 
			 MsgBox (1, "Кнопка 3","Шаблон не создан")
		 EndIf
		 If GUICtrlRead($radio_4)=$GUI_UNChecked Then
		 ElseIf $radioval1 = 3 Then 
			 MsgBox (1, "Кнопка 4","Шаблон не создан")
		 EndIf
		 If GUICtrlRead($radio_5)=$GUI_UNChecked Then
		 ElseIf $radioval1 = 4 Then 
			 MsgBox (1, "Кнопка 5","Шаблон не создан")
		 EndIf
		 If GUICtrlRead($radio_6)=$GUI_UNChecked Then
		 ElseIf $radioval1 = 5 Then 
			 ; Настройка рабочей области
			WinWait("Добро пожаловать - IBM Lotus Notes", "")
			WinActivate("Добро пожаловать - IBM Lotus Notes", "")
			WinWaitActive("Добро пожаловать - IBM Lotus Notes", "")
			Send("!b")
			Send("9")
			Send("{DOWN 1}")
			Send("{SHIFTDown}")
			Send("{F10}")
			Send("{SHIFTUP}")
			Send("{UP 1}")
			Send("{ENTER}")
			; Подтвержение использования новой домашней страницы
			WinWait("Выбор домашней страницы", "")
			WinActivate("Выбор домашней страницы", "")
			WinWaitActive("Выбор домашней страницы", "")
			Send("{Enter 1}")
			; Запуск настроек рабочей области
			WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
			Send("{ALT}")
			Send("{DOWN 9}")
			Send("{RIGHT 1}")
			Send("{DOWN 3}")
			Send("{ENTER 1}")
			; Настройка Мест вызова
			WinWait("AK: Kotkov - Дополнительно\Места вызова - IBM Lotus Notes", "")
			WinActivate("AK: Kotkov - Дополнительно\Места вызова - IBM Lotus Notes", "")
			WinWaitActive("AK: Kotkov - Дополнительно\Места вызова - IBM Lotus Notes", "")
			Send("{SPACE 1}")
			Send("{DOWN 1}")
			Send("{SPACE 1}")
			Send("{DOWN 1}")
			Send("{SPACE 1}")
			Send("{DOWN 1}")
			Send("{SPACE 1}")
			Send("{DOWN 1}")
			Send("{SPACE 1}")
			Send("{DEL 1}")
			Send("{ESC 1}")
			; Удаление лишних мест вызова
			WinWait("IBM Lotus Notes", "Удалить 5 документов из базы данных AK: Kotkov?")
			WinActivate("IBM Lotus Notes", "Удалить 5 документов из базы данных AK: Kotkov?")
			WinWaitActive("IBM Lotus Notes", "Удалить 5 документов из базы данных AK: Kotkov?")
			Send("{ENTER 1}")
			; Запуск настроек портов подключения
			WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
			Send("{ALT}")
			Send("{DOWN 1}")
			Send("{UP 7}")
			Send("{RIGHT 1}")
			Send("{ENTER 1}")
			; Окно параметров лотуса
			WinWait("Параметры настройки", "")
			WinActivate("Параметры настройки", "")
			WinWaitActive("Параметры настройки", "")
			Send("{SHIFTDOWN}")
			Send("{CTRLDOWN}")
			Send("{TAB 1}")
			Send("{SHIFTUP}")
			Send("{CTRLUP}")
			Send("{DOWN 9}")
			Send("{TAB 1}")
			WinWait("Параметры настройки", "")
			WinActivate("Параметры настройки", "")
			WinWaitActive("Параметры настройки", "")
			Send("{DOWN 1}")
			Send("{TAB 1}")
			Send("{SPACE 1}")
			Send("{SHIFTDOWN}")
			Send("{CTRLDOWN}")
			Send("{TAB 1}")
			Send("{SHIFTUP}")
			Send("{CTRLUP}")
			WinWait("Параметры настройки", "")
			WinActivate("Параметры настройки", "")
			WinWaitActive("Параметры настройки", "")
			Send("{DOWN 1}")
			Send("{TAB 1}")
			Send("{SPACE 1}")
			Send("{SHIFTDOWN}")
			Send("{CTRLDOWN}")
			Send("{TAB 1}")
			Send("{SHIFTUP}")
			Send("{CTRLUP}")
			WinWait("Параметры настройки", "")
			WinActivate("Параметры настройки", "")
			WinWaitActive("Параметры настройки", "")
			Send("{DOWN 1}")
			Send("{TAB 1}")
			Send("{SPACE 1}")
			Send("{TAB 11}")
			Send("{ENTER}")
			WinWait("IBM Lotus Notes", "")
			WinActivate("IBM Lotus Notes", "")
			WinWaitActive("IBM Lotus Notes", "")
			Send("{ENTER}")
			WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
			; Вкладка №1 - Переименование
			Send("{SHIFTDOWN}")
			Send("{F10}")
			Send("{shiftup}")
			Send("{Down 1}")
			Send("{ENTER}")
			Send("{CTRLDOWN}")
			Send("{SHIFTDOWN}")
			Send("{SHIFTUP}")
			Send("{CTRLUP}")
			Send("Почта")
			Send("{ENTER}")
			Send("{ESC}")
			; Вкладка №2
			Send("{UP 2}")
			Send("{Right 1}")
			; Вкладка №2 - Переименование
			Send("{SHIFTDOWN}")
			Send("{F10}")
			Send("{shiftup}")
			Send("{Down 1}")
			Send("{ENTER}")
			Send("Запуски")
			Send("{ENTER}")
			Send("{ESC}")
			Send("{CTRLDOWN}")
			Send("{SHIFTDOWN}")
			Send("{SHIFTUP}")
			Send("{CTRLUP}")
			; Прикручивание баз
			Send("{SHIFTDOWN}")
			Send("{F10}")
			Send("{shiftup}")
			Send("{Down 4}")
			Send("{ENTER}")
			WinWait("Открытие базы данных", "")
			WinActivate("Открытие базы данных", "")
			WinWaitActive("Открытие базы данных", "")
			; Документы IT
			Send("dmits10")
			Send("{ENTER 1}")
			Send("{DOWN 12}")
			Send("{ENTER 1}")
			Send("{DOWN 1}")
			Send("{ENTER 1}")
			WinWait("О базе данных: Документы IT MS Office - Конструктор - IBM Lotus Notes", "")
			WinActivate("О базе данных: Документы IT MS Office - Конструктор - IBM Lotus Notes", "")
			WinWaitActive("О базе данных: Документы IT MS Office - Конструктор - IBM Lotus Notes", "")
			Send("{CTRLDOWN}")
			Send("{F4}")
			WinWait("Документы IT MS Office - Все документы - IBM Lotus Notes", "")
			WinActivate("Документы IT MS Office - Все документы - IBM Lotus Notes", "")
			WinWaitActive("Документы IT MS Office - Все документы - IBM Lotus Notes", "")
			Send("{F4}")
			Send("{CTRLUP}")
			Send("{UP 1}")
			WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
			Send("{SHIFTDOWN}")
			Send("{F10}")
			Send("{shiftup}")
			Send("{Down 4}")
			Send("{ENTER}")
			WinWait("Открытие базы данных", "")
			WinActivate("Открытие базы данных", "")
			WinWaitActive("Открытие базы данных", "")
			; Запуски филиалов
			Send("dmits10")
			Send("{ENTER 1}")
			Send("{DOWN 12}")
			Send("{ENTER 1}")
			Send("{DOWN 2}")
			Send("{ENTER 1}")
			WinWait("О базе данных: Запуски филиалов - Конструктор - IBM Lotus Notes", "")
			WinActivate("О базе данных: Запуски филиалов - Конструктор - IBM Lotus Notes", "")
			WinWaitActive("О базе данных: Запуски филиалов - Конструктор - IBM Lotus Notes", "")
			Send("{CTRLDOWN}")
			Send("{F4}")
			WinWait("Запуски филиалов - Запуски филиалов - IBM Lotus Notes", "")
			WinActivate("Запуски филиалов - Запуски филиалов - IBM Lotus Notes", "")
			WinWaitActive("Запуски филиалов - Запуски филиалов - IBM Lotus Notes", "")
			Send("{F4}")
			Send("{CTRLUP}")
			Send("{UP 1}")
			; Завершение работы Лотуса
			WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
			WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
			Send("{LEFT 1}")
			Send("{ALT 1}")
			Send("{DOWN 1}")
			Send("{UP 1}")
			Send("{ENTER}")
			WinWait("IBM Lotus Notes", "Действительно завершить работу Notes?")
			WinActivate("IBM Lotus Notes", "Действительно завершить работу Notes?")
			WinWaitActive("IBM Lotus Notes", "Действительно завершить работу Notes?")
			Send("{LEFT 1}")
			Send("{ENTER}")
		 EndIf
		EndIf
	 case $msg >= $radio_1 AND $msg <= $radio_6
		 $radioval1 = $msg - $radio_1
	EndSelect
WEnd
$tab2=GUICtrlCreateTabitem ("Настройка приложений")
$tab3=GUICtrlCreateTabitem ("Установка Лотуса")
	GUICtrlCreateLabel("Запустить ""CMD""", 60,45,150,20)
	GUICtrlCreateLabel("Запустить ""Проводник""", 60,87,180,20)
	GUICtrlCreateLabel("Запустить ""Internet Explorer""", 60,129,180,20)
	GUICtrlCreateLabel("Запустить ""Far manager""", 60,171,180,20)
;системные функции
	GUICtrlCreateLabel("Запутисть оснастку ""Диспетчер устройств""", 60,208,180,40)
	GUICtrlCreateLabel("Запустить оснастку ""Диспетчер задач""", 60,253,180,40)
	GUICtrlCreateLabel("Запустить редактирование Реестра", 60,295,180,40)
	GUICtrlCreateLabel("Запустить оснастку ""Службы""", 60,342,180,40)
;Доступ к системным ресурсам
	GUICtrlCreateLabel("Открыть ""Панель управления""", 60,386,180,20)
	GUICtrlCreateLabel("Просмотреть Лог несанкционированного доступа", 60,423,180,40)
	GUICtrlCreateLabel("Открыть ""Принтеры и факсы""", 295,45,180,40)
	GUICtrlCreateLabel("Открыть ""Установка и удаление программ""",    295,80,180,40)
	$cmd = GUICtrlCreateButton("", 15, 30, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 160)
	$explorer = GUICtrlCreateButton("2", 15, 73, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll",  235)
	$iexplorer = GUICtrlCreateButton("3", 15, 116, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 512)
	$farmanager = GUICtrlCreateButton("4", 15, 159, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 274)
	$sysmgr = GUICtrlCreateButton("5", 15, 202, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 16)
	$taskmgr = GUICtrlCreateButton("6", 15, 245, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 14)
	$regedit = GUICtrlCreateButton("1", 15, 288, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 177)
	$service = GUICtrlCreateButton("2", 15, 331, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 278)
	$control = GUICtrlCreateButton("Открыть ""Панель управления""", 15, 374, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 22)
	$errorlog = GUICtrlCreateButton("Просмотреть Лог несанкционированного доступа", 15, 417, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 151)
	$printfold = GUICtrlCreateButton("Открыть ""Принтеры и факсы""", 250, 30, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 138)
	$addremprog = GUICtrlCreateButton("Открыть ""Установка и удаление программ""", 250, 73, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 271)
	GUISetState()
	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				If MsgBox(4+16, "Завершение работы", "Закончить работу мастера?")<>7 Then Exit
			Case $cmd
				Run("C:\Windows\system32\cmd.exe")
	 		Case $explorer
				Run("C:\Windows\system32\cmd.exe")
			Case $iexplorer
				Run("C:\Windows\system32\cmd.exe")
			Case $farmanager
				Run("C:\Windows\system32\cmd.exe")
			Case $sysmgr
				Run("C:\Windows\system32\cmd.exe")
			Case $taskmgr
				Run("C:\Windows\system32\cmd.exe")
			Case $regedit
				Run("C:\Windows\system32\cmd.exe")
			Case $service
				Run("C:\Windows\system32\cmd.exe")
			Case $control 
				Run("C:\Windows\system32\cmd.exe")
			Case $errorlog
				Run("C:\Windows\system32\cmd.exe")
			Case $printfold
				Run("C:\Windows\system32\cmd.exe")
			Case $addremprog
				Run("C:\Windows\system32\cmd.exe")
			Case Else
		EndSwitch
	WEnd

Заранее спасибо всем кто посодействовал в решении проблемы.
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Вот так примерно должен выглядеть GUI c Tab элементами:

Код:
GUICreate('MyGUI')
; Элементы, которые располагаются на всей форме (окне)
...
GUICtrlCreateTab(10, 10, 380, 380)
GUICtrlCreateTabItem('Tab1')
; Элементы, которые располагаются на Tab1
...
GUICtrlCreateTabItem('Tab2')
; Элементы, которые располагаются на Tab2
...
GUICtrlCreateTabItem('Tab3')
; Элементы, которые располагаются на Tab3
...
GUICtrlCreateTabItem('Tab4')
; Элементы, которые располагаются на Tab4
...
GUICtrlCreateTabItem('')
; Элементы, которые располагаются на всей форме (окне), если нужно
...
GUISetState()

While 1
...
WEnd
 
Автор
A

AtoS

Новичок
Сообщения
57
Репутация
2
Yashied сказал(а):
Вот так примерно должен выглядеть GUI c Tab элементами:

Код:
GUICreate('MyGUI')
; Элементы, которые располагаются на всей форме (окне)
...
GUICtrlCreateTab(10, 10, 380, 380)
GUICtrlCreateTabItem('Tab1')
; Элементы, которые располагаются на Tab1
...
GUICtrlCreateTabItem('Tab2')
; Элементы, которые располагаются на Tab2
...
GUICtrlCreateTabItem('Tab3')
; Элементы, которые располагаются на Tab3
...
GUICtrlCreateTabItem('Tab4')
; Элементы, которые располагаются на Tab4
...
GUICtrlCreateTabItem('')
; Элементы, которые располагаются на всей форме (окне), если нужно
...
GUISetState()

While 1
...
WEnd
это то я понял, проблема заключается в следующем - размещаю элемент на последней вкладке(все остальные вкладки пустые) - все вкладки видны. Размещаю элемент на первой вкладке - все вкладки, кроме первой пропадают
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
AtoS
Предупреждение
Второе предупреждение по поводу правильного оформления темы в разделе Стол заказов и целесообразности создания темы здесь вообще. Переношу в раздел для новичков.
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
AtoS

Внимательно посмотри на то, что я написал выше, а именно, где нужно располагать основной цикл - While WEnd. В любом случае, я рекомендую тебе упростить твой код до необходимого минимума и выложить его еще раз. 476 (!) строк кода, не относящегося к данной проблеме, отобьет у кого хочешь желание разбираться в нем.
 

AZJIO

Меценат
Меценат
Сообщения
2,874
Репутация
1,194
AtoS
Посмотрел твой код, я примерно делаю оболочки в таком же стиле, то есть сначала оболочка, потом цикл с назначением действия каждой кнопке. Как тебе уже сказали сначала создаётся оболочка, а потом цикл. Получается так: создаются две вкладки, потом запускается цикл, до других вкладок дела не доходит, так как из цикла только один выход - закрытие программы.
Второй цикл состоит из Switch, на самом деле все эти действия можно уместить под Select в общей куче.
Далее элементы
Код:
$Combo = GUICtrlCreateCombo("",350,190, 150, 25)
$LABEL = GUICtrlCreateLabel("",355,234,130,20)
$SetServ_1 = GUICtrlSetData($combo,"DMITS10")
$SetServ_2 = GUICtrlSetData($combo,"Dmits11")
$SetServ_3 = GUICtrlSetData($combo,"Dmits100")

можно сделать так:
Код:
GUICtrlSetData($Combo,'DMITS10|Dmits11|Dmits100', 'DMITS10')

А в цикле при нажатии кнопки "Установить" читаем это комбобокс
Код:
$Combo01=GUICtrlRead ($Combo)
далее выполняем проверку, типа если $Combo01<>"" комбобокс неравен пустоте, то выполнить установку, иначе выдать мессагу и вернутся в ожидание нажатия кнопок ContinueLoop
=================
Вот готовый подправленный, смотри
Код:
#Include <GUIComboBox.au3>
#Include <GUIConstantsEx.au3>
#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>
#Include <GUIListBox.au3>
#include <ButtonConstants.au3>  
#NoTrayIcon ;скрыть в системной панели индикатор AutoIt

Opt("GUICoordMode",1)
;Opt('MustDeclareVars', 1)
$msg1 = GUICreate("Интерфейс инженера технической поддержки пользователей",800,480, -1, -1)
;Local $button1, $button2, $button3, $button4, $button5, $button6, $button7, $button8, $button9, $button10, $button11, $button12
$tab=GUICtrlCreateTab (0,0, 800,480)
$tab0=GUICtrlCreateTabitem ("Запуск приложений")
$tab1=GUICtrlCreateTabitem ( "Установка приложений")
; Create the controls
$button_1 = GUICtrlCreateButton ("Установка", 30, 20, 120, 40)
GUIStartGroup()
$group_1 = GUICtrlCreateGroup ("Список шаблонов установки", 30, 90, 265, 210)
$group_2 = GUICtrlCreateGroup ("Переменные значения", 330, 90, 440, 210)
$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)
GUICtrlSetData($Combo,'|DMITS10|Dmits11|Dmits100', '')
$LABEL = GUICtrlCreateLabel("",355,234,130,20)
$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)
$FilName_1 = "Dmits10"
;GUICtrlSetState($butt, $GUI_FOCUS + $GUI_DEFBUTTON)
$radioval1 = 0    ; We will assume 0 = first radio button selected, 2 = last button
$radioval2 = 6
;$checkvar = GUICtrlRead($Check)=$GUI_UNChecked
$tab2=GUICtrlCreateTabitem ("Настройка приложений")
$tab3=GUICtrlCreateTabitem ("Установка Лотуса")
    GUICtrlCreateLabel("Запустить ""CMD""", 60,45,150,20)
    GUICtrlCreateLabel("Запустить ""Проводник""", 60,87,180,20)
    GUICtrlCreateLabel("Запустить ""Internet Explorer""", 60,129,180,20)
    GUICtrlCreateLabel("Запустить ""Far manager""", 60,171,180,20)
;системные функции
    GUICtrlCreateLabel("Запутисть оснастку ""Диспетчер устройств""", 60,208,180,40)
    GUICtrlCreateLabel("Запустить оснастку ""Диспетчер задач""", 60,253,180,40)
    GUICtrlCreateLabel("Запустить редактирование Реестра", 60,295,180,40)
    GUICtrlCreateLabel("Запустить оснастку ""Службы""", 60,342,180,40)
;Доступ к системным ресурсам
    GUICtrlCreateLabel("Открыть ""Панель управления""", 60,386,180,20)
    GUICtrlCreateLabel("Просмотреть Лог несанкционированного доступа", 60,423,180,40)
    GUICtrlCreateLabel("Открыть ""Принтеры и факсы""", 295,45,180,40)
    GUICtrlCreateLabel("Открыть ""Установка и удаление программ""",    295,80,180,40)
    $cmd = GUICtrlCreateButton("", 15, 30, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 160)
    $explorer = GUICtrlCreateButton("2", 15, 73, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll",  235)
    $iexplorer = GUICtrlCreateButton("3", 15, 116, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 512)
    $farmanager = GUICtrlCreateButton("4", 15, 159, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 274)
    $sysmgr = GUICtrlCreateButton("5", 15, 202, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 16)
    $taskmgr = GUICtrlCreateButton("6", 15, 245, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 14)
    $regedit = GUICtrlCreateButton("1", 15, 288, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 177)
    $service = GUICtrlCreateButton("2", 15, 331, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 278)
    $control = GUICtrlCreateButton("Открыть ""Панель управления""", 15, 374, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 22)
    $errorlog = GUICtrlCreateButton("Просмотреть Лог несанкционированного доступа", 15, 417, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 151)
    $printfold = GUICtrlCreateButton("Открыть ""Принтеры и факсы""", 250, 30, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 138)
    $addremprog = GUICtrlCreateButton("Открыть ""Установка и удаление программ""", 250, 73, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 271)

  GUISetState ()
While 1
   $msg = GUIGetMsg()
   Select
       Case $msg = $GUI_EVENT_CLOSE
        ; MsgBox(1, "Завершение работы", "Закончить работу мастера?")
        If MsgBox(0, "Сообщение", "Закончить работу мастера?")<>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
             $IDFold = 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
        ; Запуск программы устнаовки Lotus Notes тестировался на IBM ThinkPad T43
        RunWait("d:\test\install\Lotus\setup.exe")
        ; Окно приглашения к установке программы
        WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "", 3)
        Send("{enter}")
        ; Окно принятия лицензионного соглашения
        WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard LAP", "", 3)
        Send("+{LCTRL 1}")
        Send("!п")
        ; MouseClick("left", 377, 621, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
        WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard LAP", "", 3)
        Send("{enter}")
        ; Окно ввода информации о пользователе и организации
        WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "", 3)
        Send("{TAB 1}")
        Send("+{LCTRL 1}")
        ; MouseClick("left", 579, 457, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
        Send("Detskiy mir - Center")
        ; MouseClick("left", 498, 638, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
        Send("+{LCTRL 1}")
        Send("{TAB 1}")
        Send("!в")
        Send("{enter}")
        ; Окно изменения пути установки 1
        WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "Изменить", 3)
        Send("!и")
        ; MouseClick("left", 488, 480, 1, 4) - ТОЛЬКО ДЛЯ РАЗРЕШЕНИЯ ЭКРАНА 1400*1050*14' для IBM ThinkPad T43
        ; Окно изменения пути установки 2
        WinWait("Lotus Notes 7.0.2 ru - Install Wizard", "Изменение папки для установки программ")
        Send("{delete}")
        WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "Выберите папку для установки файлов программ.")
        Send("+{LCTRL 1}")
        Send("C:\Lotus\")
        Send("{enter}")
        ; Окно подтвержения выбора пути
        WinWaitActive("Lotus Notes 7.0.2 ru - Install Wizard", "Выбор пути для установки:")
        Send("{enter}")
        ; Окно выбора установки программных компонентов
        WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Выборочная установка")
        Send("{enter}")
        ; Окно подтверждения готовности к установке
        WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Все готово для установки программы")
        Send("{enter}")
        ; Окно завешения установки Лотус - Лотус установлен
        WinActivate("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Программа InstallShield Wizard завершена")
        WinWaitActive("Lotus Notes 7.0.2 ru - InstallShield Wizard", "Программа InstallShield Wizard завершена")
        Send("{enter}")
        Run("C:\Lotus\notes.exe")
        ; Настройка Лотуса
        WinWait("Настройка клиента Lotus Notes", "")
        WinActivate("Настройка клиента Lotus Notes", "")
        WinWaitActive("Настройка клиента Lotus Notes", "")
        Send("{ENTER}")
         ; Введение седений о пользователе и сервере
        WinWait("Настройка клиента Lotus Notes", "Сведения о пользователе")
        WinActivate("Настройка клиента Lotus Notes", "Сведения о пользователе")
        WinWaitActive("Настройка клиента Lotus Notes", "Сведения о пользователе")
        If GUICtrlRead($Check)=$GUI_UNChecked Then
            MsgBox(16,"Ошибка","Файл не выбран")
        ElseIf GUICtrlRead($Check)=$GUI_Checked Then
        Send(GUICtrlRead($UserName))
        Send("{TAB 1}")
        Send(GUICtrlRead($Label))
        Send("{TAB 2}")
        Send("{ENTER 1}")
        ; Подключение ID-файла пользователя
        WinWait("Настройка клиента Lotus Notes", "Файл учетной записи Notes")
        WinActivate("Настройка клиента Lotus Notes", "Файл учетной записи Notes")
        WinWaitActive("Настройка клиента Lotus Notes", "Файл учетной записи Notes")
        Send(GUICtrlRead($IDFold))
        Send("{TAB 2}")
        Send("{ENTER 1}")
        ;WinWait("IBM Lotus Notes", "Скопировать файл учетной записи D:\TEST\Install\Lotus\pkotkov.id в каталог данных?")
        ;WinActivate("IBM Lotus Notes", "Скопировать файл учетной записи D:\TEST\Install\Lotus\pkotkov.id в каталог данных?")
        WinWaitActive("IBM Lotus Notes", "Скопировать файл учетной записи")
        Send("{TAB 2}")
        Send("{ENTER 1}")
        ; Ввод пароля в Лотус
        ;WinWait("Lotus Notes", "")
        ;WinActivate("Lotus Notes", "")
        WinWaitActive("Lotus Notes", "", 3)
        Send("rjhjdrf")
        Send("{ENTER 1}")
        ; Настройка Службы экспресс сообщений
        ;WinWait("Настройка клиента Lotus Notes", "Настройка службы экспресс-сообщений")
        ;WinActivate("Настройка клиента Lotus Notes", "Настройка службы экспресс-сообщений")
        WinWaitActive("Настройка клиента Lotus Notes", "")
        Send("{TAB 2}")
        Send("{DOWN 1}")
        Send("{TAB 2}")
        Send("{ENTER 1}")
        WinWaitActive("Настройка клиента Lotus Notes", "Выберите службы, которые необходимо настроить:")
        Send("{ENTER 1}")
        WinWaitActive("IBM Lotus Notes", "Установка Notes завершена!")
        Send("{ENTER 1}")
         If GUICtrlRead($radio_1)=$GUI_UNChecked Then
            ElseIf $radioval1 = 0 Then
            MsgBox (1, "Кнопка 1","Шаблон не создан")
        EndIf
        If GUICtrlRead($radio_2)=$GUI_UNChecked Then
            ElseIf $radioval1 = 1 Then 
             MsgBox (1, "Кнопка 2","Шаблон не создан")
         EndIf
         If GUICtrlRead($radio_3)=$GUI_UNChecked Then
         ElseIf $radioval1 = 2 Then 
             MsgBox (1, "Кнопка 3","Шаблон не создан")
         EndIf
         If GUICtrlRead($radio_4)=$GUI_UNChecked Then
         ElseIf $radioval1 = 3 Then 
             MsgBox (1, "Кнопка 4","Шаблон не создан")
         EndIf
         If GUICtrlRead($radio_5)=$GUI_UNChecked Then
         ElseIf $radioval1 = 4 Then 
             MsgBox (1, "Кнопка 5","Шаблон не создан")
         EndIf
         If GUICtrlRead($radio_6)=$GUI_UNChecked Then
         ElseIf $radioval1 = 5 Then 
             ; Настройка рабочей области
            WinWait("Добро пожаловать - IBM Lotus Notes", "")
            WinActivate("Добро пожаловать - IBM Lotus Notes", "")
            WinWaitActive("Добро пожаловать - IBM Lotus Notes", "")
            Send("!b")
            Send("9")
            Send("{DOWN 1}")
            Send("{SHIFTDown}")
            Send("{F10}")
            Send("{SHIFTUP}")
            Send("{UP 1}")
            Send("{ENTER}")
            ; Подтвержение использования новой домашней страницы
            WinWait("Выбор домашней страницы", "")
            WinActivate("Выбор домашней страницы", "")
            WinWaitActive("Выбор домашней страницы", "")
            Send("{Enter 1}")
            ; Запуск настроек рабочей области
            WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
            Send("{ALT}")
            Send("{DOWN 9}")
            Send("{RIGHT 1}")
            Send("{DOWN 3}")
            Send("{ENTER 1}")
            ; Настройка Мест вызова
            WinWait("AK: Kotkov - Дополнительно\Места вызова - IBM Lotus Notes", "")
            WinActivate("AK: Kotkov - Дополнительно\Места вызова - IBM Lotus Notes", "")
            WinWaitActive("AK: Kotkov - Дополнительно\Места вызова - IBM Lotus Notes", "")
            Send("{SPACE 1}")
            Send("{DOWN 1}")
            Send("{SPACE 1}")
            Send("{DOWN 1}")
            Send("{SPACE 1}")
            Send("{DOWN 1}")
            Send("{SPACE 1}")
            Send("{DOWN 1}")
            Send("{SPACE 1}")
            Send("{DEL 1}")
            Send("{ESC 1}")
            ; Удаление лишних мест вызова
            WinWait("IBM Lotus Notes", "Удалить 5 документов из базы данных AK: Kotkov?")
            WinActivate("IBM Lotus Notes", "Удалить 5 документов из базы данных AK: Kotkov?")
            WinWaitActive("IBM Lotus Notes", "Удалить 5 документов из базы данных AK: Kotkov?")
            Send("{ENTER 1}")
            ; Запуск настроек портов подключения
            WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
            Send("{ALT}")
            Send("{DOWN 1}")
            Send("{UP 7}")
            Send("{RIGHT 1}")
            Send("{ENTER 1}")
            ; Окно параметров лотуса
            WinWait("Параметры настройки", "")
            WinActivate("Параметры настройки", "")
            WinWaitActive("Параметры настройки", "")
            Send("{SHIFTDOWN}")
            Send("{CTRLDOWN}")
            Send("{TAB 1}")
            Send("{SHIFTUP}")
            Send("{CTRLUP}")
            Send("{DOWN 9}")
            Send("{TAB 1}")
            WinWait("Параметры настройки", "")
            WinActivate("Параметры настройки", "")
            WinWaitActive("Параметры настройки", "")
            Send("{DOWN 1}")
            Send("{TAB 1}")
            Send("{SPACE 1}")
            Send("{SHIFTDOWN}")
            Send("{CTRLDOWN}")
            Send("{TAB 1}")
            Send("{SHIFTUP}")
            Send("{CTRLUP}")
            WinWait("Параметры настройки", "")
            WinActivate("Параметры настройки", "")
            WinWaitActive("Параметры настройки", "")
            Send("{DOWN 1}")
            Send("{TAB 1}")
            Send("{SPACE 1}")
            Send("{SHIFTDOWN}")
            Send("{CTRLDOWN}")
            Send("{TAB 1}")
            Send("{SHIFTUP}")
            Send("{CTRLUP}")
            WinWait("Параметры настройки", "")
            WinActivate("Параметры настройки", "")
            WinWaitActive("Параметры настройки", "")
            Send("{DOWN 1}")
            Send("{TAB 1}")
            Send("{SPACE 1}")
            Send("{TAB 11}")
            Send("{ENTER}")
            WinWait("IBM Lotus Notes", "")
            WinActivate("IBM Lotus Notes", "")
            WinWaitActive("IBM Lotus Notes", "")
            Send("{ENTER}")
            WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
            ; Вкладка №1 - Переименование
            Send("{SHIFTDOWN}")
            Send("{F10}")
            Send("{shiftup}")
            Send("{Down 1}")
            Send("{ENTER}")
            Send("{CTRLDOWN}")
            Send("{SHIFTDOWN}")
            Send("{SHIFTUP}")
            Send("{CTRLUP}")
            Send("Почта")
            Send("{ENTER}")
            Send("{ESC}")
            ; Вкладка №2
            Send("{UP 2}")
            Send("{Right 1}")
            ; Вкладка №2 - Переименование
            Send("{SHIFTDOWN}")
            Send("{F10}")
            Send("{shiftup}")
            Send("{Down 1}")
            Send("{ENTER}")
            Send("Запуски")
            Send("{ENTER}")
            Send("{ESC}")
            Send("{CTRLDOWN}")
            Send("{SHIFTDOWN}")
            Send("{SHIFTUP}")
            Send("{CTRLUP}")
            ; Прикручивание баз
            Send("{SHIFTDOWN}")
            Send("{F10}")
            Send("{shiftup}")
            Send("{Down 4}")
            Send("{ENTER}")
            WinWait("Открытие базы данных", "")
            WinActivate("Открытие базы данных", "")
            WinWaitActive("Открытие базы данных", "")
            ; Документы IT
            Send("dmits10")
            Send("{ENTER 1}")
            Send("{DOWN 12}")
            Send("{ENTER 1}")
            Send("{DOWN 1}")
            Send("{ENTER 1}")
            WinWait("О базе данных: Документы IT MS Office - Конструктор - IBM Lotus Notes", "")
            WinActivate("О базе данных: Документы IT MS Office - Конструктор - IBM Lotus Notes", "")
            WinWaitActive("О базе данных: Документы IT MS Office - Конструктор - IBM Lotus Notes", "")
            Send("{CTRLDOWN}")
            Send("{F4}")
            WinWait("Документы IT MS Office - Все документы - IBM Lotus Notes", "")
            WinActivate("Документы IT MS Office - Все документы - IBM Lotus Notes", "")
            WinWaitActive("Документы IT MS Office - Все документы - IBM Lotus Notes", "")
            Send("{F4}")
            Send("{CTRLUP}")
            Send("{UP 1}")
            WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
            Send("{SHIFTDOWN}")
            Send("{F10}")
            Send("{shiftup}")
            Send("{Down 4}")
            Send("{ENTER}")
            WinWait("Открытие базы данных", "")
            WinActivate("Открытие базы данных", "")
            WinWaitActive("Открытие базы данных", "")
            ; Запуски филиалов
            Send("dmits10")
            Send("{ENTER 1}")
            Send("{DOWN 12}")
            Send("{ENTER 1}")
            Send("{DOWN 2}")
            Send("{ENTER 1}")
            WinWait("О базе данных: Запуски филиалов - Конструктор - IBM Lotus Notes", "")
            WinActivate("О базе данных: Запуски филиалов - Конструктор - IBM Lotus Notes", "")
            WinWaitActive("О базе данных: Запуски филиалов - Конструктор - IBM Lotus Notes", "")
            Send("{CTRLDOWN}")
            Send("{F4}")
            WinWait("Запуски филиалов - Запуски филиалов - IBM Lotus Notes", "")
            WinActivate("Запуски филиалов - Запуски филиалов - IBM Lotus Notes", "")
            WinWaitActive("Запуски филиалов - Запуски филиалов - IBM Lotus Notes", "")
            Send("{F4}")
            Send("{CTRLUP}")
            Send("{UP 1}")
            ; Завершение работы Лотуса
            WinWait("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinActivate("Paбoчaя oблacть - IBM Lotus Notes", "")
            WinWaitActive("Paбoчaя oблacть - IBM Lotus Notes", "")
            Send("{LEFT 1}")
            Send("{ALT 1}")
            Send("{DOWN 1}")
            Send("{UP 1}")
            Send("{ENTER}")
            WinWait("IBM Lotus Notes", "Действительно завершить работу Notes?")
            WinActivate("IBM Lotus Notes", "Действительно завершить работу Notes?")
            WinWaitActive("IBM Lotus Notes", "Действительно завершить работу Notes?")
            Send("{LEFT 1}")
            Send("{ENTER}")
         EndIf
        EndIf
     case $msg >= $radio_1 AND $msg <= $radio_6
         $radioval1 = $msg - $radio_1
    Case $msg = $cmd
                Run("C:\Windows\system32\cmd.exe")
    Case $msg = $explorer
                Run(@WindowsDir&"\explorer.exe")
    Case $msg = $iexplorer
                Run(@ProgramFilesDir&"\Internet Explorer\iexplore.exe")
    Case $msg = $farmanager
                Run("C:\Windows\system32\cmd.exe")
    Case $msg = $sysmgr
                Run(@SystemDir&"\sysmgr.exe")
    Case $msg = $taskmgr
                Run(@SystemDir&"\taskmgr.exe")
    Case $msg = $regedit
                Run(@SystemDir&"\regedit.exe")
    Case $msg = $service
                ShellExecute(@SystemDir&'\COMPMGMT.MSC','','','')
    Case $msg = $control
                ShellExecute(@SystemDir&'\RUNDLL32.EXE','shell32,Control_RunDLL','','' )
    Case $msg = $errorlog
                Run("C:\Windows\system32\cmd.exe")
    Case $msg = $printfold
                Run("C:\Windows\system32\cmd.exe")
    Case $msg = $addremprog
                Run("C:\Windows\system32\cmd.exe")
    EndSelect
WEnd


И вот ещё посмотри скрипты в качестве примера.
 
Автор
A

AtoS

Новичок
Сообщения
57
Репутация
2
AZJIO
спасибо огроменное, я как раз запутался с этих циклах), а специфика требует чтобы было все в одном файле в общей куче))))
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
AtoS
не обязательно цитировать все сообщение, особенно если оно очень длинное. достаточно выделить нужный кусок и воспользоваться появившейся функцией быстрого цитирования. а в твоем случае, цитирование вовсе не нужно ;)
 
Верх