Да прошу прощения чето просмотрел забыл про функцию:
Function GetDisplayResolution()
Set oWMIService = GetObject("winmgmts:\\.\root\cimv2")
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
Этот пример нашел из сети на его основе сделал свое.
Hta код:
<html>
<head>
<title>Моё HTA-приложение</title>
<hta:application
Id = "oHTA"
ApplicationName = "MyTestApplication"
Border = "Dialog"
Icon = "MyHTA_files\MyHTA.ico"
InnerBorder = "No"
MaximizeButton = "No"
MinimizeButton = "No"
Scroll = "No"
Selection = "No"
ShowInTaskBar = "No"
SingleInstance = "Yes"
Version = "1.5"
/>
<script src="MyHTA_files/MyHTA.vbs" type="text/vbscript"></script>
<link href="MyHTA_files/MyHTA.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body onload="WindowOnLoad()">
<table>
<tr class="Header_Row">
<td colspan="2">
<h1>Моё HTA-приложение</h1>
</td>
</tr>
<tr class="Content_Row">
<td id="StaticMenu_Cell">
<input id="CommandPrompt" type="button" value="Командная строка" onclick="RunApplication(me.id)" />
<input id="TestScript" type="button" value="Сценарий test.vbs" onclick="RunApplication(me.id)" />
<input id="TextFile" type="button" value="Файл test.txt" onclick="RunApplication(me.id)" />
<input id="TempDir" type="button" value="Папка Temp" onclick="RunApplication(me.id)" />
</td>
<td id="DynamicContent_Cell">
<div id="DynamicContent_Div">
Добро пожаловать
</div>
</td>
</tr>
<tr class="Footer_Row">
<td>
<div id="Version_Div">
Версия: X.X
</div>
</td>
<td>
<div id="Button_Div">
<input id="CloseButton" type="button" value="Закрыть" onclick="window.close()" />
</div>
</td>
</tr>
</table>
</body>
</html>
А нельзя не на JavaScript, а на VBS? А то я VBS уже ну хоть как-то определился и более или менее с ним разобрался, а с JavaScript я пока ноль, а что б разобраться нужно время вкладывать.
