Был блок, так что с опазданием, но пишу...
igor_andreev Цитата: 1.
Код:
@echo off
for /l %%a in (1,1,80) do set /p ="."<nul & ping -n 1 localhost>nul 2>&1
В выполняющемся в данный момент батнике отключи вывод всех команд и ошибок на экран и вставляй изредка по тексту set /p ="."<nul
Цитата: Отличный пример... тока вот время от чего зависит...
попробовал сменить ping -n <X> где x - как я думал будут секунды, но увы не то...
А еще было бы лучше если использовать скрипт какой нить чтоб виндусовскую строку (как через msiexec) в окошечке отдельном показал)))
Как например мне установить всю ту же строку из точек, но только так чтобы она от начала до конца длилась например 5 минут (300 сек)? Еще бы лучше было бы если бы был бы ввод времени через переменную в секундах типа set timeout=300
И по поводу
Цитата: В выполняющемся в данный момент батнике отключи вывод всех команд и ошибок на экран и вставляй изредка по тексту set /p ="."<nul
не понял...
Повторяюсь...
[more=Сам батничек...]echo off
set vbs=%tmp%\~.vbs
set htm=%tmp%\~.htm
echo On Error Resume Next >%vbs%
echo Set objExplorer = WScript.CreateObject _ >>%vbs%
echo ("InternetExplorer.Application", "IE_") >>%vbs%
echo objExplorer.Navigate "file:///%htm%" >>%vbs%
echo objExplorer.ToolBar = 0 >>%vbs%
echo objExplorer.StatusBar = 0 >>%vbs%
echo objExplorer.Width = 330 >>%vbs%
echo objExplorer.Height = 160 >>%vbs%
echo objExplorer.Left = 300 >>%vbs%
echo objExplorer.Top = 200 >>%vbs%
echo objExplorer.Visible = 1 >>%vbs%
echo Do While (objExplorer.Document.Body.All.OKClicked.Value = "") >>%vbs%
echo Wscript.Sleep 250 >>%vbs%
echo Loop >>%vbs%
echo strPassword = objExplorer.Document.Body.All.UserPassword.Value >>%vbs%
echo strButton = objExplorer.Document.Body.All.OKClicked.Value >>%vbs%
echo objExplorer.Quit >>%vbs%
echo Wscript.Sleep 250 >>%vbs%
echo If strButton = "Cancelled" Then >>%vbs%
echo Wscript.Quit >>%vbs%
echo Else >>%vbs%
echo Wscript.Echo strPassword >>%vbs%
echo End If >>%vbs%
echo ^<SCRIPT LANGUAGE="VBScript"^> >%htm%
echo Sub RunScript >>%htm%
echo OKClicked.Value = "OK" >>%htm%
echo End Sub >>%htm%
echo Sub CancelScript >>%htm%
echo OKClicked.Value = "Cancelled" >>%htm%
echo End Sub >>%htm%
echo ^</SCRIPT^> >>%htm%
echo ^<TITLE^>Ввод пароля:^</TITLE^> >>%htm%
echo ^<BODY^> >>%htm%
echo ^<font size="2" face="Arial"^> >>%htm%
echo Введите пароль:^ ^ ^ ^</font^>^<font face="Arial"^> >>%htm%
echo ^<input type="password" name="UserPassword" size="40"^>^</font^>^</p^> >>%htm%
echo ^<input type="hidden" name="OKClicked" size = "20"^> >>%htm%
echo ^<input id=runbutton class="button" type="button" value=" OK " >>%htm%
echo name="ok_button" onClick="RunScript"^> >>%htm%
echo ^ ^ ^ >>%htm%
echo ^<input id=runbutton class="button" type="button" value="Cancel" >>%htm%
echo name="cancel_button" onClick="CancelScript"^> >>%htm%
echo ^</BODY^> >>%htm%
for /f "tokens=*" %%a in ('cscript //nologo "%vbs%"') do set pass=%%a
del /q /f "%vbs%"
del /q /f "%htm%"
echo ‚ўҐ«Ё Ї а®«м: %pass%
pause >nul[/more]
Цитата: проблема в том что IE не реагирует на ENTER/ESC/SPACE, только мышкой клавишу нажать нада...
еще трабла: Окно IE хочеться поставить на передний план, а оно у меня почему-то сзади CMD
и на последок...:: Можно ли запретить в окне IE клавиши управления окном, т е "Свернуть", "Развернуть" и "Закрыть"??? что бы были лишь активными клавиши "Cancel" и "ОК"...
KapralBel Цитата: cmdow — изменение параметров и видимости дос-окна
не катит - палится каспером ((( Утилитку уже узал раньше, пока ее кодик в БД антивирусов не забили, а жаль хороша была...
Цитата: функция "Запуск в режимах MIN MAX HIDE" - так же мне не подходит, т к не пользуюсь данным типом ПО
я как раз и имел ввиду cmdow. Но нашел маленькое решение...
Скриптик на Яве
HIDE
Код: var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run("iexplore.exe",0);