Спасибо скрипт работает, но есть два нюанса.
1 диалоговое окно слишком вытянутые (длинное).
2 при нажатие на кнопку (ок), диалоговое окно не закрывается а мне бы нужно чтобы окно патом закрывалось...
Цитата
Iska:
<html id="appHTML">
<head> <meta charset="windows-1251">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<title>Выбор времени ожидания</title>
<hta:Application Icon = "MyIco.ico"
Id="oHTA" ApplicationName="Выбор времени ожидания"
Border="normal"
BorderStyle="normal"
Caption="yes"
ContextMenu="no"
InnerBorder="yes"
MaximizeButton="no"
MinimizeButton="yes"
Navigable="no"
Scroll="auto"
ScrollFlat="no"
Selection="no"
ShowInTaskbar="yes"
SingleInstance="yes"
SysMenu="yes"
Version="0.1"
WindowState="normal" />
<style type="text/css">
BODY { font: x-small Verdana, Arial, sans-serif; color: WindowText; background-color: ButtonFace; } .Row { clear:both; } .Left { float:Left; clear:none; } .Right, SELECT { float:Right; clear:none; } </style> <script language="VBScript"> Option Explicit '----------------------------------------------------------------------
Sub OK_OnClick With document .getElementByID("Wait").disabled = True .getElementByID("OK").disabled = True .getElementByID("tagBody").style.cursor = "wait" End With setTimeout "SetOK", 0 End Sub '---------------------------------------------------------------------- '----------------------------------------------------------------------
Sub SetOK() With CreateObject("Scripting.FileSystemObject").CreateTextFile("timeout.txt", True) .WriteLine document.getElementByID("Wait").value .Close End With With document .getElementByID("Wait").disabled = False .getElementByID("OK").disabled = False .getElementByID("tagBody").style.cursor = "auto" End With End Sub '----------------------------------------------------------------------
</script>
</head>
<body id="tagBody" scroll="auto"> <span Class="Row"> <span Class="left">
<span id="lblChoice">Время ожидания: </span></span>
<span Class="right"> <select name="Wait" id="Wait" size="1">
<option value="5" selected>5 секунд
<option value="7">7 секунд
<option value="10">10 секунд
<option value="13">13 секунд
<option value="15">15 секунд
</select>
</span>
</span>
<span Class="Row">
<span Class="left">
<span id="lblOK">После выбора времени ожидания нажмите кнопку "OK"</span>/span>
<span Class="right"><input type="Button" name="OK" value="OK"></span> </span>
</body> <script language="VBScript"> With window .resizeTo tagBody.scrollWidth + 25, tagBody.scrollHeight + 32 .moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2 End With
</script>
</html>
»