Как создавать диалоговые окна в Windows?

Как создавать диалоговые окна с помощью VBScript? Всем привет, в этом уроке я вам покажу, как быстро создавать диалоговые окна в Windows, с помощью которых мы так часто подшучиваем над своими коллегами. Я представлю небольшой обзор команд с пояснениями для того, чтобы вы не просто копировали диалоговые окна с сайта, а смогли сами импровизировать, одновременно обучаясь. Это будет знакомый вам по предыдущим компьютерным приколам скриптовый язык VBScript, и всё, что нам как всегда понадобится, это простой Блокнот, который мы, после заполнения кода, будем сохранять в укромном месте с расширением .vbs.

VBScript – это простой язык программирования, исполняемый в системе сценарием Windows Script Host. Легко кодируется в Блокноте, а лучше в специальных текстовых редакторах с расширенными возможностями, как например, AkelPad или Notepad ++ (они, в отличие от встроенного Блокнота, понимают русскую кодировку; выберите Кириллицу – Windows-1251). Именно эта связка сценария и скрипта используется Windows для того, чтобы создавать диалоговые окна . Это гораздо проще, чем использовать такие языки как С и С ++. Однако подробное знакомство с VBScript задачей настоящей статьи не ставилось; здесь я лишь приведу ряд конкретных примеров того как создавать диалоговые окна с более-менее осмысленным для читающего содержанием и вариантами развития событий по результатам действий.

Как создавать диалоговые окна с ошибкой?

Итак, создадим простое диалоговое окно с двумя кнопками. И создадим окно с псевдоошибкой. Откроем текстовый редактор, и создадим сообщение, в котором:

Кавычки и скобки обязательны. Значок “+” позволяет использовать в одном скрипте множественные функции окна. В поле «содержание ошибки» вы можете написать любое сообщение, которое впоследствии прочитает пользователь. А в поле «автор ошибки» напишите того, кто это сообщение якобы пришлёт. Ими могут быть сама система Windows, или сосед по офису. А может быть директор или администратор. Решать опять же вам. Останавливаться не буду, идём дальше. Вот каким будут выглядеть диалоговые окна после того, как вы сохраните документ в формате .vbs.

Поле «5+16» приказывает системе создавать диалоговые окна с ярлыком критической ошибки и двумя кнопками. Это, как видно, кнопки «повтор» и «отмена». Но как вы уже поняли, можно создавать диалоговые окна и с другими настройкам, и всё это благодаря комбинации цифр или чисел. Это – числовые выражения постоянных, отвечающие за выводимые кнопки, значки и режимы окна. Подробнее смотрим ниже:

Нажатие кнопок для указанного кода, и, конечно, числовых комбинаций ни к чему не приведёт, но вы в силах будете указать системе, сколько раз те или иные сообщения будут появляться. Для этого просмотрите статью Множественные сообщения об ошибке. Если понадобится перенести строки в диалоговых окнах, можно воспользоваться написанием скрипта в формате:

Диалоговые окна VBS: множество постоянных и переменных.

В простейшем написании скрипта именно знак “+” позволит применять сразу несколько параметров в одном скрипте. Например, для написания окна типа:

Просто повторите скрипт так:

Кстати, появление окна можно запустить по кругу, указав в скрипте команду на запуск его же по нажатию на любую из кнопок:

где скрипт.vbs и есть тот самый скрипт, лежащий, скажем, на Рабочем столе (C:\Users\1\Desktop\). При этом избавиться от окна можно будет только через Диспетчер задач. Скрипт может также содержать и какую-то другую одну или несколько команд. Например, пара вводимых переменных не просто создаст интерактивный диалог, но запустит программу. Например, браузер. Ну, или не запустит:

Как создать сообщение об ошибке в Windows своими руками

Большинство из нас люди с чувством юмора и иногда любят вот такие безобидные розыгрыши!

Сегодня мы с вами создадим фэйк-ошибку Windows своими руками с помощью блокнота.

1. Итак, открываем блокнот, либо создаем текстовый документ

2. Выбираем нужное и вписываем (можно просто скопировать). Следующее означает: Текст внутри окна — это текст самой ошибки; текст в окне — название окна / ошибки.

Чтобы сделать текст в окне:

lol=msgbox(«Текст внутри окна»,8,»Текст в окне»)

Чтобы сделать фейк ошибку:

lol=msgbox(«Текст внутри окна»,16,»Текст в окне»)

Чтобы сделать ВАЖНОЕ сообщение:

lol=msgbox(«Текст внутри окна»,48,»Текст в окне»)

Чтобы сделать обычное или справка в окне:

lol=msgbox(«Текст внутри окна»,64,»Текст в окне»)

Чтобы сделать сборник ошибок (Просто скопируйте чтобы не возиться. либо придумайте свои значения):

lol=msgbox(«The file has been successfully installed on the computer.»,8,»File installed.»)

lol=msgbox(«The system error, in your system does not have the MSCONFIG file.»,16,»System error»)

lol=msgbox(«Continue? (click Ok). If you close then close the window.»,32,»Continue?»)

lol=msgbox(«The system error, in your system does not have the MSCONFIG file.»,48,»System error»)

lol=msgbox(«This file does not work, close the window.»,64,»File is not working.»)

lol=msgbox(«A collection of mistakes is over.»,64,»Completed!»)

3. Далее жмем Файл → Сохранить как. Сохраните файл с расширением «.vbs» (например, error.vbs), иначе он не запустится.

При желании можно поместить его в автозагрузку по пути: C:\ Users\ Имя_Пользователя\ AppData\ Roaming\ Microsoft\ Windows\ Start Menu\ Programs\ Startup.
Для быстрого открытия папки автозагрузки, введите команду shell:startup в окне Выполнить, которое легко вызвать комбинацией Win + R

Отправка и получение текстовых сообщений с компьютера

Отправка сообщения

Если вы еще не настроили сообщения, Познакомьтесь с тем, как отправлять новые сообщения с компьютера:

На компьютере в приложении для телефонавыберите пункт сообщения.

Чтобы начать новую беседу, нажмите кнопку создать сообщение.

Введите имя или номер телефона контакта.

Выберите человека, которому вы хотите отправить сообщение. Откроется новый поток сообщений, с которого начинается создание.

Если вы столкнулись с проблемами при использовании сообщений, вам могут помочь наши советы по устранению неполадок.

Добавление мультимедиа в беседы

Под окном сообщения находятся три кнопки, которые помогут вам вставить содержимое в сообщение. Кнопка эмодзи и кнопка GIF открыть меню, в котором можно быстро найти нужные сведения.

При нажатии кнопки изображение также открывается меню, в котором можно выбрать последние фотографии на устройстве с Android. В меню также есть возможность вставить изображение с компьютера.

Чтобы добавить изображение с компьютера на компьютер, выполните указанные ниже действия.

Под окном сообщения нажмите кнопку изображение.

Нажмите кнопку Обзор компьютера.

Перейдите к папке, содержащей изображение.

Выберите рисунок и нажмите кнопку Открыть.

Если у вас есть фотография на устройстве с Android, которая не входит в самую последнюю версию, вы можете вставить ее в сообщение.

В приложении для телефона перейдите на вкладку » фотографии«.

В коллекции фотографий найдите нужное изображение, щелкните его правой кнопкой мыши и выберите команду Сохранить как , чтобы сохранить документ на компьютере.

Выполните описанные выше действия, чтобы добавить изображение с компьютера в сообщение.

Ограничены ли возможности текстовыми сообщениями или можно работать и с MMS?

Приложение Ваш телефон поддерживает сообщения, отправленные по протоколу Short Message Service (SMS). Оно также поддерживает MMS-сообщения. Вы можете отправлять любимые фотографии и GIF-файлы с компьютера.

Обмен сообщениями на RCS также доступен для выбора устройств Samsung. Дополнительные сведения о сообщениях удаленного консольного коммутатора можно найти здесь.

Сколько сообщений я могу видеть?

Для экономии пропускной способности сети и повышения производительности мы отображаем SMS, которые вы получили или отправили за последние 30 дней.

Можно ли управлять сообщениями или удалять их?

Управлять сообщениями или удалять их на своем компьютере невозможно.

Сообщения Windows и их обработка (исходники)

Что же такое «Сообщение Windows»? Этот вопрос первым может возникнуть у начинающего программиста, тот же, кто когда-либо сталкивался с этим, хитро ухмыльнется и спрячет свои мысли в загадочную улыбку.

Взаимодействие, как форма общения

В своей повседневной жизни, мы постоянно общаемся. Общение может подразумевать разговор, совместную работу и еще много всего прочего, однако в любом случае это обмен разного рода информацией, выраженной различными формами взаимодействия. Так же происходит и в электронном мире, когда мы запускаем какую-нибудь программу, не важно игра это, текстовый редактор, или среда разработки Delphi. Программы, начинают, скрыто от нас общаться и обмениваться информацией, в простейшем виде это обмен информацией между операционной системой и приложением.

Приложение может взаимодействовать, как со своими дочерними формами, так и с «посторонними» (внешними) приложениями. Виды взаимодействия с внешними приложениями могут быть следующими:

• непосредственный запуск внешней программы из высшего приложения
• запуск внешней программы, связанной с некоторым документом
• обмен сообщениями с другими программами
• технология OLE — внедрения и связывания документов, подготовленных внешними программами, в ваше приложение
• управление внешними программами как серверами
• динамический обмен данными между приложениями.

В данной статье нам предстоит познакомиться с сообщениями и способами их обработки.

Обработка сообщений в приложениях Windows

И все же что такое сообщение? Как оно выглядит? Как можно его послать? Немного терпения друзья мои, и Вы все узнаете.

Итак! Настал момент выложить карты на стол. В свое время сообщения выглядели крайне не приветливо, и было довольно сложно для запоминания В новых версиях Windows, великая и могучая и всеми «любимая» Microsoft, видимо осознав все это значительно облегчила Нам жизнь, приведя сообщения к вполне «цивилизованному» виду (например WM_CLOSE ).

Рассмотрим некоторые виды сообщений:

WM_CLOSE — сигнализирует, что окно или приложение закрывается. Это сообщение не имеет параметров. По умолчанию оно закрывает окно, которому послано. Если приложение обрабатывает это сообщение, то оно должно возвращать нуль. При обработке этого сообщение приложение может запросить пользователя о необходимости закрывать окно или вызвать функцию закрывания окна только при положительном ответе.

WM_ACTIVATE — посылается, когда окно переводится в активное или неактивное состояние. Сначала сообщение посылается окну, переходящему в неактивное состояние, а потом — активируемому. Это сообщение имеет дополнительные параметры:

fActive = LOWORD(wParam);	Флаг активации
fMinimized = (BOOL) HIWORD(wParam);	Флаг минимизации (1 — если окно минимизировано, 0 — если нет)
hwndPrevious = (HWND) lParam;	Идентификатор окна (Handle)

Параметр fActive показывает, как активизируется или деактивируется окно. Возможные значения этого параметра:

WA_ACTIVE	окно активизируется не щелчком мыши (например, функцией SetActiveWindow или клавиатурой)
WA_CLICKACTIVE	окно активизируется щелчком мыши
WA_INACTIVE	окно деактивируется

Параметр hwndPrevious — это дескриптор, который указывает на окно, из которого фокус переключился на данное окно, если оно активируется, или на окно, в которое передается управление, если данное окно деактивируется. По умолчанию, если активируемое окно не свернуто, то оно получает фокус. Если приложение обрабатывает это сообщение, то оно должно возвращать нуль.

WM_GETMINMAXINFO — посылается при изменении размеров или положения окна. Обработчик события может использоваться для ограничения допустимых размеров и координат положения на экране.

WM_GETMINMAXINFO
lpmmi = (LPMINMAXINFO) lParam; // address of structure

Параметр lpmmi указывает на структуру типа MINMAXINFO, содержащую принятые по умолчанию пределы изменения размеров и координат положения окна. Описание этой структуры:

typedef struct tagMINMAXINFO < // mmi
POINT ptReserved;
POINT ptMaxSize;
POINT ptMaxPosition;
POINT ptMinTrackSize;
POINT ptMaxTrackSize;
> MINMAXINFO;

Поля структуры означают следующее:

ptReserved	Зарезервировано и пока не используется
ptMaxSize	Поле типа Point определяет ширину (Point.x) и высоту (Point.y) развернутого окна
ptMaxPosition	Поле типа Point определяет положение левого (Point.x) и верхнего (Point.y) краев развернутого окна
ptMinTrackSize	Поле типа Point определяет минимальную ширину (Point.x) и минимальную высоту (Point.y) окна при изменении пользователем размеров его рамки.
ptMaxTrackSize	Поле типа Point определяет максимальную ширину (Point.x) и максимальную высоту (Point.y) окна при изменении пользователем размеров его рамки.

Если приложение обрабатывает это сообщение, оно должно вернуть 0.

WM_COPYDATA — посылается, когда одно приложение передает данные другому приложению.
Определение:
WM_COPYDATA

wParam = (WPARAM) (HWND) hwnd;	Дескриптор посылающего окна
lParam = (LPARAM) (PCOPYDATASTRUCT) pcds;	указатель на структуру с данными

Параметр hwnd идентифицирует окно, посылающее данные.
Параметр pcds указывает на структуру типа COPYDATASTRUCT, содержащую пересылаемые данные. Описание этой структуры:

typedef struct tagCOPYDATASTRUCT

< cds DWORD dwData; до 32 бит данных, передаваемых приложению-получателю
DWORD cbData; определяет размер (в байтах) даных, на которые указывает lpData
PVOID lpData; указатель на данные, передаваемые приложению-получателю
> COPYDATASTRUCT;

Возвращаемое приложение-приемник обрабатывает сообщение, оно должно возвратить значение TRUE; в противном случае — FALSE.

• При посылке сообщения приложение должно использовать функцию SendMessage, использование PostMessage не допускается.
• Посылаемые данные не должны содержать указателей или других ссылок на объекты, недоступные для приложения, получающего данные.
• Пока посылается сообщение, посылаемые данные не должны изменяться другим потоком посылающего процесса.
• Приложение, получающее данные, рассматривает их как данные только для чтения.
• Параметр pcds действует только в процессе приема сообщения. Приложение, получающее данные, не может освобождать память, на которую ссылается pcds.
• Если приложение, получающее данные, должно иметь к ним доступ после завершения процедуры SendMessage, оно должно скопировать данные в локальный буфер.

Посылка сообщений

Функция SendMessage посылает указанное в ней сообщение окну или множеству окон и не возвращается, пока это сообщение обрабатывается. Этим она отличается от функции PostMessage , которая возвращается сразу после передачи сообщения.

Объявление функции:
function SendMessage(HWND: hWnd, Msg,WPARAM: word,LPARAM: longint):longint;

Параметр hWnd — дескриптор окна, которому передается сообщение.
Параметр Msg определяет передаваемое сообщение. Параметры WPARAM и LPARAM могут содержать дополнительную информацию. Значение, возвращаемое функцией, зависит от вида сообщения.

Функция PostMessage не годится для передачи срочных сообщений, но зато она не блокирует вызвавшее приложение на время обработки сообщения приемником. Объявление функции:

function PostMessage(HWND: hWnd, Msg,WPARAM: word,LPARAM: longint):longint;

Параметр hWnd — дескриптор окна, которому передается сообщение. Если этот параметр nil, то сообщение становится в очередь сообщений (если она есть) текущего процесса.
Параметр Msg определяет передаваемое сообщение. Параметры WPARAM и LPARAM могут содержать дополнительную информацию. Функция возвращает ненулевое значение при успешном завершении и нуль в случае аварийного завершения. В этом случае причину ошибки можно установить вызовом функции GetLastError.

Обратимся к программе, которая приведена в качестве примера для данной статьи и разберем кусок текста программы, чтобы лучше понять механизм работы сообщений.

SendMessage (Form2.Handle, WM_CLOSE, 0, 0);

В данной строке ясно видно, что мы работаем с дочерним окном своего приложения (Form2.Handle) и передаем ему «приказ» закрыться (WM_CLOSE).

var
CDS : TCopyDataStruct;
dt : TDateTime;
ms : TMemoryStatus;
begin
.
GlobalMemoryStatus(ms);
CDS.dwData:=ms.dwAvailPageFile+ms.dwAvailPhys;
CDS.cbData:=SizeOf(dt);
CDS.lpData:=@dt;
SendMessage(FindWindow (`TForm1`, `Form1`), WM_COPYDATA, 0, longint(@CDS));
.
end;

Очевидно, что мы посылаем найденному окну внешней программы (в нашем случае заголовок окна будет иметь значение Caption = `Form1`) сообщение с дополнительными параметрами, опять же в нашем случае это адрес структуры CDS типа TcopyDataStruct (longint(@CDS)), в которую мы предварительно занесли информацию о текущем времени и объеме свободной памяти.

Замечание : здесь стоит сразу оговориться, что если процедура FindWindow будет иметь вид FindWindow (`TForm1`, nil ), то сообщение будет отослано всем приложениям, имеющим в своем составе класс TForm1, т.к эта запись предполагает любое значение свойства Caption в заголовке.

Во всех оконных компонентах предусмотрены обработчики сообщений Windows по умолчанию. Можно определить свои собственные обработчики, заменив ими обработчики по умолчанию, или дополнив их. Объявление своего обработчика помещается в описание класса оконного компонента, как правило, в раздел private. Синтаксис объявления:

procedure (var : ); message ;

Здесь обозначает имя процедуры обработки сообщения. Имя может быть любым, но обычно принято делать его тождественным имени обрабатываемого сообщения, исключив из него символ подчеркивания. Передаваемый в обработчик параметр также может иметь любое имя. Этот параметр представляет собой запись, через которую в обработчик передаются параметры сообщения, а из обработчика возвращается значение поля Result, фиксирующее результат обработки. — это тип структуры параметров сообщения. После ключевого слова message записывается тип сообщения.

Снова обратимся к демонстрационной программе и посмотрим пример объявления своего обработчика сообщения WM_CLOSE:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
private
< Private declarations >
procedure WMClose(var a : TWMClose) ;message WM_CLOSE;
.
implementation
<$R *.dfm>
.
procedure TForm2.WMClose( var a:TWMClose);
begin
if MessageDlgPos(`Меня хотят закрыть. Согласны?`, mtConfirmation, [mbYes,mbNo],0,BoundsRect.Left,BoundsRect.Bottom)=mrYes then Close
else Label1.Caption:=`Не закроюсь!`;
end;

Здесь мы объясняем программе, как нужно реагировать на сообщение операционной системы о том, что ей пора закрываться. При попытке ее закрыть, она будет оказывать сопротивление и спросит Вас действительно ли ей нужно закрыться, или нет.

Определение собственных сообщений

Можно описать свои собственные сообщения, и работать с ними так же, как и с предопределенными API Windows.
Номера своих собственных сообщений необходимо отсчитывать от константы WM_USER, которая соответствует первому номеру сообщения пользователя.
Например, можно определить в своем приложении константы

Const
WM_MyMess1=WM_USER;
WM_MyMess2=WM_USER+1;

и затем оперировать с сообщениями WM_MyMess1 и WM_MyMess2 как с предопределенными в Windows.
Ниже представлен пример объявления своего сообщения:
.
private
< Private declarations >
procedure WMin ( var b : TMessage); message WM_USER ;
.
procedure TForm2.WMin ( var b : TMessage);
begin
Form2.WindowState := wsMinimized;
end;

Вот и закончилось наше путешествие в мир сообщений Windows, как заканчивается очередная глава, понравившейся книги. В данной статье я постарался сообщить Вам по этой теме все, что знаю я, и буду рад, если хоть кому-то она пойдет впрок. Помните господа, Вы программисты! У вас особый склад ума и особый статус! И не важно, на каком Вы уровне и сколько на данный момент у Вас знаний; важно постоянно совершенствовать себя и давать для этого возможность другим, быть чуткими к близким и не размениваться по мелочам. Покорно благодарю всех, кто почтил внимаем сей скромный труд и дочитал до этих строк, растите в профессиональном плане и любите Linux.