|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Выпадающий список |
|
VBS/WSH/JS - [решено] Выпадающий список
|
Старожил Сообщения: 175 |
Профиль | Отправить PM | Цитировать Привет всем! Проблема такая, у меня есть текстовый файл (timeout), мне нужно создать диалоговое окна в нём была бы одна кнопка (ок) и (выпадающий список) с пяти строками.
В первой строке (Время ожидания 5 секунд). Во второй строке (Время ожидания 7 секунд). В третей строке (Время ожидания 10 секунд). В четвёртой строке (Время ожидания 13 секунд). В пятой строке (Время ожидания 15 секунд). Если выбираешь любую из этих пяти строк, то текстовом файле (timeout) записывается число 5, 7, 10 и тд... Помогите пожалуйста, создать такой скрипт. |
|
------- Отправлено: 23:18, 03-05-2013 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Сохраните с расширением «.hta». |
Отправлено: 01:07, 04-05-2013 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Спасибо скрипт работает, но есть два нюанса.
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> » |
------- Последний раз редактировалось angel_lyucifer, 04-05-2013 в 19:18. Отправлено: 18:53, 04-05-2013 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Пробуйте так:
|
Отправлено: 21:04, 04-05-2013 | #4 |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
||
------- Отправлено: 02:57, 05-05-2013 | #5 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
C/C++ - Односвязный список | SAU-trade | Программирование и базы данных | 1 | 17-01-2013 22:23 | |
Список ключей | kosmos56 | Автоматическая установка Windows 2000/XP/2003 | 2 | 04-02-2010 13:41 | |
Список компов в сети? Список открытых папок на компе? | DANTIST | Программирование и базы данных | 3 | 12-06-2003 10:05 | |
Список серверов | CyMpak | Сетевые технологии | 9 | 05-02-2003 09:19 | |
Список серверов | CyMpak | Хочу все знать | 2 | 07-10-2002 15:17 |
|