HTML: Создание приложений HTA
До определенного момента развития информационных технологий программы могли создавать только профессионалы в области программирования, с появлением и последующим развитием скриптовых языков, а также браузерных технологий, создание приложений стало более простым для обычного пользователя компьютера. Итак, HTA (HTML Application) - это простая технология, позволяющая создавать полезные приложения даже без знания серьезных языков программирования.
Введение
Создать HTA-приложение можно, просто написав HTML-страницу и сохранив ее с расширением .hta, которое обрабатывается программой mshta.exe, её задача - обеспечить связь вашей программы с браузером. Так как такие приложения используют движок браузера, то они объединяют в себе все их возможности - их объектную модель, разметку страницы (HTML), каскадные листы стилей (CSS), скрипты (VBS и JS). Также на такие приложения не накладывается ограничения безопасности - они работают как любой исполняемый файл.
То есть при помощи HTML создается абсолютно любой пользовательский интерфейс, причем с минимальными усилиями и без каких-либо существенных ограничений, логика программы организуется кодом на Java Script или Visual Basic Script, а само приложение выходит за рамки браузера - программа на стадии выполнения ничем не будет отличаться от обычных оконных приложений для Windows - запущенное приложение будет присутствовать на панели задач, иметь собственные окно, меню и значок. Хотя здесь нужно оговориться: программа не будет видна среди запущенных приложений в диспетчере задач, единственное средство, которым можно контролировать запущенную программу - это процесс mshta.exe.
Создание приложения
HTA-приложения можно писать в любом текстовом редакторе или специализированном HTML-конструкторе. Чтобы создать новое приложение, откроем блокнот, скопируем туда структуру HTML документа и сохраним как htm-файл.
<html>
<head>
<title>Моё HTA-приложение</title>
</head>
<body>
<div>Мое тестовое HTA-приложение</div>
</body>
</html>Итак, мы получили HTML-документ, который уже можно посмотреть в браузере. Теперь, чтобы сделать из этой страницы HTA-приложение, необходимо изменить расширение HTML-документа на .hta, после чего его можно запустить двойным щелчком по файлу.
Для того чтобы полностью использовать возможности таких приложений, необходимо в раздел <head> включить тэг <hta:application>. Преобразуем наш тестовый файл таким образом:
<html>
<head>
<title>Моё HTA-приложение</title>
<hta:application
id="oHTA"
ApplicationName = "MyTestHTA"
Border = "dialog"
Caption = "yes"
Scroll = "no"
SingleInstance = "yes"
SysMenu = "yes"
WindowState = "normal"
Version = "1.1" />
</head>
<body>
<div>Моё тестовое HTA-приложение</div>
</body>
</html>Расширение .hta указывает системе, как работать с приложением, а специальный тэг <hta:application> указывает, как отображать окно. Этот тэг предоставляет набор атрибутов, управляющих свойствами окна приложения.
Атрибуты и свойства тега <hta:application>
Итак, чтобы указать HTA-приложению, как отобразить окно программы, необходимо задать атрибуты тега <hta:application>. Помимо управлением окном приложения, этот тег также дает возможность обращаться к свойствам приложения из скриптов, расположенных в коде HTA-приложения. Стоит заметить, что все свойства этого тега доступны только для чтения.
Атрибут и свойство id
Определяет идентификатор объекта - уникального имени внутри файла HTA-приложения.
⮍ СодержаниеАтрибут и свойство ApplicationName
Содержит имя приложения. Если свойствоSingleInstance установлено в "True", то значение ApplicationName автоматически проверяется перед запуском экземпляра приложения. Чтобы проверка была успешной, значение ApplicationName должно быть уникальным. То есть, значение свойства ApplicationName используется для идентификации единственности запущенного приложения.
⮍ СодержаниеАтрибут и свойство Border
Содержит тип бордюра окна. Свойство Border влияет на толщину бордюра и действительно только для окон HTA, у которых есть панель заголовка и сам заголовок. УстанавливаяBorderв "None", вы убираете панель заголовка, иконку программы, и кнопки максимизирования и минимизирования. Это свойство может быть использовано совместно со свойством BorderStyle. Возможные значения:
Dialog - бордюр диалогового окна, пользователь не может изменить размер окна;None - окно без бордюра;Thick - толстый бордюр, бордюр для изменения размера окна (значение по умолчанию);Thin - тонкий бордюр окна с заголовком.
Содержит стиль бордюра клиентской области окна. Свойство BorderStyle устанавливает стиль для бордюра содержимого окна, в то время как свойство Border контролирует бордюр окна приложения. Возможные значения:
Complex Приподнятый и утопленный бордюр. Normal Нормальный бордюр. (Значение по умолчанию). Raised Приподнятый 3-D бордюр. Static 3-D бордюр, обычно используемый для окон, не обрабатывающих ввод пользователя. Sunken Утопленный 3-D бордюр.
Определяет, будет ли в окне HTML приложения отображаться панель заголовка. Заголовок приложения отображается только тогда, когда свойствоCaptionустановлено в "Yes". Отключение свойстваCaptionтакже отключит кнопки "Свернуть", "Развернуть" и программную иконку. В этом случае нужно не забыть предоставить альтернативный способ выхода из приложения, например, кнопку "Закрыть" на форме приложения, вызывающую метод Window.Close. Возможные значения:
Yes Панель заголовка отображается. (Значение по умолчанию). No Панель заголовка не отображается.
Строка, которая содержит путь и параметры командной строки, которые использовались для запуска HTA-приложения. Если HTA-приложение было запущено с использованием HTTP протокола, свойство CommandLine содержит пустую строку.
Определяет, появляется ли контекстное меню при нажатии на правую кнопку мыши. Возможные значения:
Yes Контекстное меню появляется. (Значение по умолчанию). No Контекстное меню не появляется.
Определяет путь к файлу иконки, используемой в HTML приложении. HTA использует системную иконку, если значение не определено. АтрибутIcon распознаёт стандартные файлы с расширением .ico, содержащие изображение размером 32x32 пикселя, а также успешно распознаёт первую иконку из файлов "*.exe", "*.icl" (библиотека иконок), "*.dll", и "*.ocx".
Определяет, отображается ли внутренняя 3-D граница. Возможные значения:
Yes Внутренняя 3-D граница отображается. (Значение по умолчанию). No Внутренняя 3-D граница не отображается.
Определяет, отображается ли кнопка "Развернуть" на панели заголовка окна HTML приложения. Чтобы отображались кнопки "Свернуть" и "Развернуть", окно должно иметь панель заголовка (атрибут Caption). Возможные значения:
Yes Кнопка "Развернуть" отображается. (Значение по умолчанию). No Кнопка "Развернуть" не отображается.
Определяет, отображается ли кнопка "Свернуть" на панели заголовка окна HTML приложения. Чтобы отображались кнопки "Свернуть" и "Развернуть", окно должно иметь панель заголовка (атрибут Caption). Возможные значения:
Yes Кнопка "Свернуть" отображается. (Значение по умолчанию). No Кнопка "Свернуть" не отображается.
Определяет, в каком окне будут открываться загружаемые документы. Возможные значения:
No Будут открываться в новых окнах. (Значение по умолчанию). Yes Будут открываться в основном окне.
Определяет, будут ли отображаться полосы прокрутки. Возможные значения:
Yes Полосы прокрутки отображаются. (Значение по умолчанию). No Полосы прокрутки не отображаются. Auto Полосы прокрутки появляются только тогда, когда содержимое документа не умещается в клиентской области окна.
Определяет, в каком виде будут отображаться полосы прокрутки. Возможные значения:
Yes Полосы прокрутки двухмерные. No Полосы прокрутки трёхмерные. (Значение по умолчанию).
Определяет, может ли содержимое документа быть выбрано мышкой или с помощью клавиатуры. Значение "No" запрещает появление контекстного меню и присвоение атрибуту ContextMenu значения "Yes" не произведёт никакого эффекта. Возможные значения:
Yes Содержимое может быть выбрано. (Значение по умолчанию). No Содержимое не может быть выбрано.
Определяет, будет ли HTML приложение появляться на панели задач Windows. Возможные значения:
Yes Приложение отображается на панели задач. (Значение по умолчанию). No Приложение не отображается на панели задач.
Определяет, может ли быть запущенно больше одного экземпляра HTML приложения одновременно. Возможные значения:
Yes Может быть запущен только один экземпляр приложения. No Может быть запущенно несколько экземпляров приложения одновременно. (Значение по умолчанию).
Определяет, отображается ли системное меню в HTML приложении. Системное меню HTA обозначается программной иконкой в левом углу панели заголовка. Системное меню HTA показывает все команды, входящие в стандартное системное меню Windows, включая "Восстановить", "Переместить", "Размер", "Свернуть", "Развернуть", и "Закрыть". Возможные значения:
Yes Системное меню отображается в панели заголовка. (Значение по умолчанию). No Системное меню не отображается в панели заголовка.
Определяет номер версии HTML приложения.
Определяет начальные размеры окна HTML приложения. Возможные значения:
Normal Размер окна - стандартный размер для Microsoft Internet Explorer. (Значение по умолчанию). Minimize Появляется только заголовок окна на панели задач. Maximize Окно появляется развёрнутым во весь экран.
В данном примере используются все атрибуты тега <hta:application>, несмотря на то, что значения некоторых атрибутов перекрываются другими параметрами, или некоторые значения уже заданы по умолчанию и не требуют объявления. Это сделано для того, чтобы показать, как использовать все атрибуты данного тега. В обычной практике объявляют только те атрибуты, значения которых нужно изменить.
<html>
<head>
<title>Моё HTA-приложение</title>
<hta:application
id = "oHTA"
ApplicationName = "MyTestApplication"
Border = "Dialog"
BorderStyle = "Complex"
Caption = "Yes"
ContextMenu = "No"
Icon = "C:Program FilesWindows NThypertrm.exe"
InnerBorder = "No"
MaximizeButton = "No"
MinimizeButton = "No"
Navigable = "No"
Scroll = "No"
ScrollFlat = "No"
Selection = "No"
ShowInTaskBar = "No"
SingleInstance = "Yes"
SysMenu = "Yes"
Version = "1.2"
WindowState = "Normal"
/>
</head>
<body>
<h1>Пример использования атрибутов HTA-приложения</h1>
<div>
Данное приложение имеет следующие вид:<br />
<ol>
<li>бордюр: неизменяемый;</li>
<li>стиль бордюра: приподнятый и утопленный;</li>
<li>заголовок окна: присутствует;</li>
<li>иконка: от программы Hyper Terminal;</li>
<li>внутренняя 3-D граница: не отображается;</li>
<li>кнопка "развернуть": отсутсвует;</li>
<li>кнопка "свернуть": отсутсвует;</li>
<li>загружаемые документы: открываются в новом окне;</li>
<li>полосы прокрутки: не отображаются;</li>
<li>стиль полос прокрутки: трёхмерный;</li>
<li>содержимое документа быть выбрано мышкой: нет;</li>
<li>приложение появляетсяя на панели задач: нет;</li>
<li>запускается только один экземляр приложения: да;</li>
<li>системное меню: присутствует;</li>
<li>размер окна: обычный.</li>
</ol>
</div>
<div style="text-align: right;">
<input id="CloseButton" type="button" value="Закрыть" onclick="window.close()" />
</div>
</body>
</html>
Так как HTA-приложения, по сути, являются HTML-страничками, то в них можно использовать скриптовые языки. Так как я хорошо знаю язык Visual Basic Script , то все последующие примеры будут основаны на нем, тем не менее Вы можете использовать как VBS, так и JS для создания своих приложений.
Скрипты пишутся в теге <script> и располагаются в разделе <head> либо во внешнем файле. В разделе скриптов описывают действия, которые выполняются при определенных событиях элементов формы приложения. Например, чтобы приложение выполнило скрипт при загрузке формы (инициализации программы), необходимо в теге <body> указать процедуру, которая должна запуститься по событию OnLoad, а сами действия описать в теге <script>.
Наиболее востребованным скриптом при загрузке формы является изменение размеров окна и размещение его по центру экрана.
Изменим наш пример следующим образом: удалим неиспользуемые атрибуты тега <hta:application>, добавим скрипт изменения размера окна, добавим скрипт вывода версии скрипта на форму, а содержание формы оформим невидимой таблицей для того, чтобы каждый элемент стоял на своем месте вне зависимости от содержания формы.
<html>
<head>
<title>Моё HTA-приложение</title>
<hta:application
id = "oHTA"
ApplicationName = "MyTestApplication"
Border = "Dialog"
BorderStyle = "Complex"
Icon = "C:Program FilesWindows NThypertrm.exe"
InnerBorder = "No"
MaximizeButton = "No"
MinimizeButton = "No"
Scroll = "No"
Selection = "No"
ShowInTaskBar = "No"
SingleInstance = "Yes"
Version = "1.3"
/>
<script language="VBScript">
' Процедура инициализации окна формы
Sub WindowOnLoad
' Размер окна
iWidth = 800
iHeight = 600
' Разрешение экрана по умолчанию
iHorizontal = 1024
iVertical = 768
' Получение текущего разрешения экрана
Set oWMIService = GetObject("winmgmts:\.rootcimv2")
Set colItems = oWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each oItem in ColItems
iHorizontal = oItem.ScreenWidth
iVertical = oItem.ScreenHeight
Exit For
Next
' Изменение размера окна и его центрирование
iLeft = (iHorizontal - iWidth) / 2
iTop = (iVertical - iHeight) / 2
Self.Focus()
Self.resizeTo iWidth, iHeight
Self.moveTo iLeft, iTop
' Вывод версии приложения на форму
Version_Div.InnerHTML = "Версия: " & oHTA.Version
End Sub
</script>
</head>
<body onload="WindowOnLoad()">
<table style="height: 100%; width: 100%;">
<tr style="height:50px;">
<td><h1>Моё HTA-приложение</h1></td>
</tr>
<tr style="vertical-align: top;">
<td>
<div>
Данное приложение имеет следующие вид:<br />
<ol>
<li>бордюр: неизменяемый;</li>
<li>стиль бордюра: приподнятый и утопленный;</li>
<li>заголовок окна: присутствует;</li>
<li>иконка: от программы Hyper Terminal;</li>
<li>внутренняя 3-D граница: не отображается;</li>
<li>кнопка "развернуть": отсутсвует;</li>
<li>кнопка "свернуть": отсутсвует;</li>
<li>загружаемые документы: открываются в новом окне;</li>
<li>полосы прокрутки: не отображаются;</li>
<li>стиль полос прокрутки: трёхмерный;</li>
<li>содержимое документа быть выбрано мышкой: нет;</li>
<li>приложение появляетсяя на панели задач: нет;</li>
<li>запускается только один экземляр приложения: да;</li>
<li>системное меню: присутствует;</li>
<li>размер окна: обычный.</li>
</ol>
</div>
</td>
</tr>
<tr style="height:30px;">
<td>
<div id="Version_Div" style="float: left">
Версия: X.X
</div>
<div style="float: right">
<input id="CloseButton" type="button" value="Закрыть"
onclick="window.close()" />
</div>
</td>
</tr>
</table>
</body>
</html>
HTA-приложения очень удобны для централизации сценариев управления ИТ-инфраструктурой компании, которые администратор использует повседневно. Прежде чем мы создадим такое приложение, необходимо ознакомиться с особенностями взаимодействия скриптов HTA-приложений с операционной системой.
Взаимодействие приложения с операционной системой осуществляется путем внедрения в код специальных скриптов. Такие скрипты не просто выполняют логику приложения, они через специальные библиотеки отправляют запросы операционной системе, а операционная система возвращает им запрошенные данные или выполняет необходимые действия.
В HTA нельзя напрямую использовать методы и свойства базового класса WScript. Методы CreateObject(<Library>.<Class>), GetObject(<FilePath>), ConnectObject(<Object>, <Prefix>), DisconnectObject(<Object>) вызываются без указания родительского класса, а все остальные методы базового класса не доступны для использования.
Иначе говоря, нельзя вызвать такой простой, но очень полезный метод, как WScript.Sleep. Чтобы обойти это ограничение, необходимо использовать методы с аналогичными действиями из других библиотек. Ниже представлен пример процедуры, которая замещает отсутствующий метод WScript.Sleep.
Sub ccSleep(seconds)
Set oShell = CreateObject("Wscript.Shell")
sCommand = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul"
oShell.Run sCommand,0,1
End Sub
Данная процедура использует такое свойство стандартной команды ping, что интервал между отправками пакетов к хосту 1 секунда. То есть если нам требуется задержка в выполнении сценария в 1 секунду, то нужно отправить 2 пакета, интервал между ними и будет 1 секунда. Второй момент данного способа в том, что пакеты посылаются на хост-заглушку 127.0.0.1 - то есть самому себе, поэтому время ответа от хоста равно миллисекундам и мало влияет на расчет времени между отправками пакетов. Третий момент - это выполнение команды ping в скрытом режиме.
Для работы с операционной системой используется специальный класс Shell, который позволяет выполнять такие операции как запуск программ, изменение реестра, создание ярлыков, доступ к системным папкам и системным переменным, доступ к системному журналу.
Наиболее востребованной процедурой являются запуск внешнего приложения. Ниже представлен пример процедуры запуска приложения.
Sub RunApplication(sApplication)
sCommandLine =""
Set oShell = CreateObject("Wscript.Shell")
Select Case sApplication
Case "CommandPrompt"
sCommandLine = "%ComSpec%"
Case "TestScript"
sCommandLine = "%COMSPEC% /C CScript C:ScriptsTest.vbs"
Case "FarManager"
sCommandLine = "C:FarManagerFar.exe"
Case "Notepad"
sCommandLine = "notepad.exe"
Case Else
sCommandLine =""
End Select
If Len(sCommandLine) > 0 Then oShell.Run sCommandLine,1,0
End Sub
Данная процедура в качестве параметра получает идентификатор элемента, вызвавшего ее, выбирает нужную командную строку и запускает ее, если строку запуска удалось подобрать.
Очень часто встречаются такие случаи, когда необходимо что-то создать, удалить, переместить или изменить на диске компьютера. Эту задачу позволяет решить класс FileSystemObject, предназначенный для работы с файловой системой.
Наиболее распространенная задача из операций с файловой системой - это чтение файла. Ниже представлена функция чтения текстового файла, которая в качестве параметра принимает путь к файлу, а отдает массив строк считанного файла.
Function ReadFile(sFileName)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oInFile = oFSO.OpenTextFile(sFileName, 1, False, 0)
sFileContent = oInFile.ReadAll
oInFile.Close
ReadFile = sFileContent
End Function
Еще одна полезная функция - это проверка существования файла, например, перед запуском внешней программы или перед считыванием текстового файла. Входным параметром функции является путь к файлу, выходным - логическая переменная.
Function CheckFile(sFilePath)
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(sFilePath) Then
CheckFile = True
Else
CheckFile = false
End If
End Function
Windows Management Instrumentation (WMI) - это набор интерфейсов для управления операционной системой через специальные компоненты, причем как локально, так и по сети. Это очень богатый набор инструментов, с помощью которого можно выполнить любое действие в среде семейства Windows.
Наиболее простым и востребованным примером использования WMI является определение параметров дисплея пользователя для центрирования формы приложения на экране.
Function GetDisplayResolution()
Set oWMIService = GetObject("winmgmts:\.rootcimv2")
Set colItems = oWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each oItem In colItems
iHorizontal = oItem.ScreenWidth
iVertical = oItem.ScreenHeight
Exit For
Next
GetDisplayResolution = iHorizontal & ";" & iVertical
End Function
Второй пример использования WMI также полезен и часто используется - это функция определения доступности компьютера в сети.
Function PingComputer(sComputer)
Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT" & _
* FROM Win32_PingStatus WHERE address = '" & sComputer & "'")
For Each oStatus In oPing
If IsNull(oStatus.StatusCode) Or oStatus.StatusCode <> 0 Then
PingComputer = False
Else
PingComputer = True
End If
Next
End Function
Преобразуем наше приложение следующим образом: изменим текст формы, добавим все вышеописанные примеры, на форме разместим несколько кнопок для запуска заданий, в директории, где располагается файл HTA-приложения, создадим папку "MyHTA_files", в которой разместим несколько файлов:
- text.txt- любой текстовый файл;
- test.vbs- файл, содержащий только одну строку:MsgBox("Hello script!");
- MyHTA.ico- любая иконка;
- MyHTA.vbs- файл, содержащий все вышеописанные скрипты.
