Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)

Модерирует : gyra, Maz

Widok (03-03-2010 16:29): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

ScreamWolf



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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 Введите пароль:^&nbsp;^&nbsp;^&nbsp; ^</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 ^&nbsp;^&nbsp;^&nbsp; >>%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

Всего записей: 197 | Зарегистр. 15-05-2009 | Отправлено: 21:35 15-08-2009 | Исправлено: ScreamWolf, 21:38 15-08-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)
Widok (03-03-2010 16:29): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru