Что нового

[Элементы 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 711
Вот так примерно должен выглядеть 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
Репутация
622
AtoS
Предупреждение
Второе предупреждение по поводу правильного оформления темы в разделе Стол заказов и целесообразности создания темы здесь вообще. Переношу в раздел для новичков.
 

Yashied

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

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

AZJIO

Меценат
Меценат
Сообщения
2 752
Репутация
1 149
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
Репутация
622
AtoS
не обязательно цитировать все сообщение, особенно если оно очень длинное. достаточно выделить нужный кусок и воспользоваться появившейся функцией быстрого цитирования. а в твоем случае, цитирование вовсе не нужно ;)
 
Верх