Командная строка, батники, сценарии (bat, cmd) - [916] :: Программы

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

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