Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Выпадающий список

Ответить
Настройки темы
VBS/WSH/JS - [решено] Выпадающий список

Аватара для angel_lyucifer

Старожил


Сообщения: 175
Благодарности: 4


Конфигурация

Профиль | Отправить PM | Цитировать


Привет всем! Проблема такая, у меня есть текстовый файл (timeout), мне нужно создать диалоговое окна в нём была бы одна кнопка (ок) и (выпадающий список) с пяти строками.
В первой строке (Время ожидания 5 секунд).
Во второй строке (Время ожидания 7 секунд).
В третей строке (Время ожидания 10 секунд).
В четвёртой строке (Время ожидания 13 секунд).
В пятой строке (Время ожидания 15 секунд).
Если выбираешь любую из этих пяти строк, то текстовом файле (timeout) записывается число 5, 7, 10 и тд...
Помогите пожалуйста, создать такой скрипт.

-------
Век живи, век учись! =)


Отправлено: 23:18, 03-05-2013

 

Ветеран


Contributor


Сообщения: 27628
Благодарности: 8081

Профиль | Отправить PM | Цитировать


читать дальше »
Код: Выделить весь код
<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>

Сохраните с расширением «.hta».
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:07, 04-05-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Аватара для angel_lyucifer

Старожил


Сообщения: 175
Благодарности: 4

Профиль | Отправить 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


Ветеран


Contributor


Сообщения: 27628
Благодарности: 8081

Профиль | Отправить PM | Цитировать


Пробуйте так:
читать дальше »
Код: Выделить весь код
<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.2"
            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
                
                Me.Close
            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 600, tagBody.scrollHeight + 32
            .moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
        End With
    </script>
</html>
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:04, 04-05-2013 | #4


Аватара для angel_lyucifer

Старожил


Сообщения: 175
Благодарности: 4

Профиль | Отправить PM | Цитировать


Цитата Iska:
Пробуйте так: »
Да, то что доктор прописал! Спасибо, и Христос воскрес!

-------
Век живи, век учись! =)


Отправлено: 02:57, 05-05-2013 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Выпадающий список

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход