Прогресс-бар с использованием стандартного окна Windows

@alpap · Регистрация: 26.04.2015

Добрый вечер.
Как код:

Windows Batch file

@echo on
echo @set @x=0 /*>>progress_bar.bat
echo.>>progress_bar.bat
echo @cscript //nologo /e:jscript "progress_bar.bat" "%Programfiles%" "%Userprofile%\Desktop">>progress_bar.bat
echo @exit /b>>progress_bar.bat
echo.>>progress_bar.bat
echo */new ActiveXObject("shell.Application").NameSpace(WScript.Arguments(1)).CopyHere(WScript.Arguments(0),16);>>progress_bar.bat
echo //>>progress_bar.bat
call progress_bar.bat
ping -n 10 localhost>nul
pause

который создает упрощенно код:

Windows Batch file

@set @x=0 /*
@cscript //nologo /e:jscript "progress_bar.bat" "%Programfiles%" "%Userprofile%\Desktop"
@exit /b
*/new ActiveXObject("shell.Application").NameSpace(WScript.Arguments(1)).CopyHere(WScript.Arguments(0),16);

привести в "человеческий" вид (но уже так он работает), типа:

Windows Batch file

1 2	mshta "javascript:var x=clipboardData.getData('text');if(x) new ActiveXObject("^ Scripting.FileSystemObject").GetStandardStream(1).Write(x);close();"

чего-то подобного, не знаком с js совершенно.

Добавлено через 16 часов 2 минуты
Разобрался уже с условной компиляцией, первой строкой, с @, с /* */ комментированием, не доходит цифра 16, как получается и как все-же запуск сделать командой в bat, а не им
Тут читал и тут.

Добавлено через 3 часа 22 минуты
Немного перекроил:

Windows Batch file

0</*! ::
@cscript //nologo //e:jscript "%~f0" "%Programfiles%" "%Userprofile%\Desktop"
@exit /b
*/0;
new ActiveXObject("shell.Application").NameSpace(WScript.Arguments(1)).CopyHere(WScript.Arguments(0),16);

но как и раньше, хочется иметь последовательный запуск команд - команда 1, команда Копировать, команда Включение прогресс-бара, команда i, выход.

Dragokas · 12.02.2016, 19:15

Не по теме:

Ничего не понятно, что ты хочешь.

@alpap · 13.02.2016, 21:42 **[ТС]**

Сначала хотел это:

Windows Batch file

@set @x=0 /*
@echo off
set "in=%Programfiles%"
set "out=%Userprofile%\Desktop" 
cscript //nologo /e:jscript "%~f0" "%in%" "%out%"
exit
*/new ActiveXObject("shell.Application").NameSpace(WScript.Arguments(1)).CopyHere(WScript.Arguments(0),16);

уже сделал.

Не по теме:

Сейчас сам не знаю что хочу. Выучить JScript это уже понятно. А пока хочется запустить команды cmd в js или запустить bat скрытно с помощью js, но чтобы все было в одном файле.

Dragokas · 18.02.2016, 19:37

Сообщение от alpap

хочется иметь последовательный запуск команд - команда 1, команда Копировать, команда Включение прогресс-бара, команда i, выход.

Если тебя интересует возможность запуска из одного батника разных веток js-inline (встроенного скрипта) в зависимости от ситуации и с передачей аргументов, можешь взглянуть как это было сделано в проекте Virulogs Collector (самый конец батника).

Dragokas
	12.02.2016, 19:15 #2
	Не по теме: Ничего не понятно, что ты хочешь. 0

Dragokas 17779 / 7515 / 888 Регистрация: 25.12.2011 Сообщений: 11,288 Записей в блоге: 16
	18.02.2016, 19:37	4
	Сообщение от alpap хочется иметь последовательный запуск команд - команда 1, команда Копировать, команда Включение прогресс-бара, команда i, выход. Если тебя интересует возможность запуска из одного батника разных веток js-inline (встроенного скрипта) в зависимости от ситуации и с передачей аргументов, можешь взглянуть как это было сделано в проекте Virulogs Collector (самый конец батника). 1

Опции темы