powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / VBS, окно для вывода в реальном времени
5 сообщений из 5, страница 1 из 1
VBS, окно для вывода в реальном времени
    #38751427
Assoll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Приветствую!

Работает скрипт, требуется выводить в реальном времени результаты.
MsgBox и Echo выводят на экран кучу окошек.
Аккумулировать текст для вывода в переменной тоже не вариант - получаем всё в конце одним махом

Нужно что-то вроде старого доброго ДОС-окна, куда можно скидывать текст постепенно.

Спасибо
...
Рейтинг: 0 / 0
VBS, окно для вывода в реальном времени
    #38751437
carrotik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Assoll,
...так запускайте через cscript в командном окне...
...
Рейтинг: 0 / 0
VBS, окно для вывода в реальном времени
    #38751479
Assoll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну про ДОС я просто для примера сказал,
мне бы всё же win-окошко хотелось бы
...
Рейтинг: 0 / 0
VBS, окно для вывода в реальном времени
    #38751589
carrotik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AssollНу про ДОС я просто для примера сказал,
мне бы всё же win-окошко хотелось бы

...когда-то давным давно я пользовал для этого окно Internet Explorer-a (который можно вызвать из VBS через InternetExplorer.Application ... вот пример заготовки (лет 10 прошло не меньше :) )

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "d:\Scripts\Dadshirt.htm"   
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=400
objExplorer.Height = 200 
objExplorer.Left = 0
objExplorer.Top = 0

Do While (objExplorer.Busy)
    Wscript.Sleep 200
Loop    

objExplorer.Visible = 1             
objExplorer.Document.Body.InnerHTML = "Retrieving service information. " _
    & "This might take several minutes to complete."
Wscript.Sleep 5000 
'тут пишем вывод, и так далее ...

objExplorer.Document.Body.InnerHTML = "Service information retrieved."
...
Рейтинг: 0 / 0
VBS, окно для вывода в реальном времени
    #38758051
Assoll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробовал с браузером - работает, но достаточно неожиданно. У кого-то открывается новое окно, у кого-то новая закладка.
Есть ли способ открывать отдельное фиксированное окно в центре экрана без меню, полос прокрутки и т.д.? Просто окно и крестик, чтобы его закрыть. На JS такой фокус проделать не очень сложно.

Спасибо
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / VBS, окно для вывода в реальном времени
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]