#include <GUIConstantsEx.au3> ; Для работы с окнами
#include <ButtonConstants.au3> ; Для работы с кнопками
#include <WindowsConstants.au3> ; Для работы стилей
#include <File.au3> ; Для работы с файлами
#include <EditConstants.au3> ; Для редактируемых полей
$Window_X = 400 ; Размер окна по горизонтали
$Window_Y = 200 ; Размер окна по вертикали
$Main_Form = GUICreate('Название окна', $Window_X, $Window_Y, -1, -1, BitOR ($WS_SYSMENU, $WS_VISIBLE)) ; Главное окно в центре экрана - сразу видимое
GUICtrlCreateLabel("для фона", 0, 0, $Window_X, $Window_Y-85)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Stroka_IP = GUICtrlCreateLabel('Введите ip-адрес:', 10, 20) ; Текст
$Input_IP = GUICtrlCreateInput('', 130, 19, 208, 20) ; Поле для ввода данных
$Stroka_Name = GUICtrlCreateLabel('Имя компьютера:', 10, 55) ; Текст
$Stroka_MAC = GUICtrlCreateLabel('MAC-адрес компьютера:', 10, 80) ; Текст
$Text_Name_PC = GUICtrlCreateEdit ('', 130, 55, 208, 17) ; Пустое редактируемое поле - верхний регистр - только для чтения
$Text_MAC_PC = GUICtrlCreateEdit ('', 180, 80, 158, 17) ; Пустое редактируемое поле - верхний регистр - только для чтения
$But_Start = GUICtrlCreateButton('Выполнить', $Window_X-225, $Window_Y-70, 100, 30) ; Кнопка - 'Выполнить'
$But_Cancel = GUICtrlCreateButton('Отмена', $Window_X-115, $Window_Y-70, 100, 30) ; Кнопка - 'Отмена'
While 1 ; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
; Проверка нажатий клавиш
Switch GUIGetMsg()
; -------------------------------------------------------------------------------------------------
; Закрытие окна программы
; -------------------------------------------------------------------------------------------------
Case $GUI_EVENT_CLOSE
Exit
; -------------------------------------------------------------------------------------------------
; Кнопка - 'Выполнить'
; -------------------------------------------------------------------------------------------------
Case $But_Start
MsgBox (64, '', 'OK')
; -------------------------------------------------------------------------------------------------
; Кнопка - 'Отмена'
; -------------------------------------------------------------------------------------------------
Case $But_Cancel
Exit ; Выход из программы
EndSwitch
WEnd
; Выход из программы
Exit