Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Окно ввода

Ответить
Настройки темы
CMD/BAT - Окно ввода

Новый участник


Сообщения: 28
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Требуется батник чтобы при запуске, через некоторое время (например, 30 секунд) выскочило GUI окно с полем для ввода пароля, если пароль верный - в батнике пишет (echo Пароль введен верно), если неправильный - пишет "Пароль введен неверно, уточните пароль у Вашего оператора".

Заранее спасибо, если на самом деле работоспособно будет - 100 руб отломать будет не жалко на Ваш счет.

Отправлено: 02:02, 01-08-2013

 

Старожил


Сообщения: 210
Благодарности: 76

Профиль | Отправить PM | Цитировать


feAre, во-первых, непонятно, зачем смешивать консольный и графический режимы. Во-вторых, непонятно, каким именно образом Вы собираетесь проверять корректность пароля.
Советую указать цель, ради которой решается эта задача. Возможно, в этом случае Вам укажут на более подходящее решение.

Отправлено: 10:24, 01-08-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 28
Благодарности: 0

Профиль | Отправить PM | Цитировать


Думаю через наши консольные команды осуществить это возможно, просто при открытии батника всплывается GUI окно
, с полем ввода, человек туда пишет пароль и нажимает на "ОК", неправильный - "echo Пароль неверный" - правильный "echo Пароль верный". Цель: Пройти проверку прежде чем приступить к работе.

Отправлено: 10:41, 01-08-2013 | #3


Старожил


Сообщения: 210
Благодарности: 76

Профиль | Отправить PM | Цитировать


Цитата feAre:
... через наши консольные команды...
О каких командах речь?
Цитата feAre:
... при открытии батника всплывается GUI окно...
Зачем смешивать режимы? Почему нельзя обойтись каким-либо одним?
Цитата feAre:
... неправильный - "echo <...> правильный "echo...
Как именно сценарий должен отличить правильный пароль от неправильного?
Цитата feAre:
Цель: Пройти проверку прежде чем приступить к работе.
О чём конкретно речь: о начале сеанса работы в ОС, о запуске какого-либо приложения, о доступе к какому-либо ресурсу?..

Отправлено: 12:15, 01-08-2013 | #4


Новый участник


Сообщения: 28
Благодарности: 0

Профиль | Отправить PM | Цитировать


Через стандартные команды, Вам лучше знать.

Вообщем, суть Вы поняли, главное осуществить.

Отправлено: 13:47, 01-08-2013 | #5


Старожил


Сообщения: 210
Благодарности: 76

Профиль | Отправить PM | Цитировать


Цитата feAre:
... суть Вы поняли...
Если бы понял, то не задавал бы вопросов.
Поскольку ни на один из вопросов внятного ответа так и не дано, то остаётся надеяться, что тема заинтересует телепатов.

Отправлено: 14:42, 01-08-2013 | #6


Аватара для sunnykey

Пользователь


Сообщения: 124
Благодарности: 47

Профиль | Отправить PM | Цитировать


Цитата:
Цитата DmitriiV:
Если бы понял, то не задавал бы вопросов.
Поскольку ни на один из вопросов внятного ответа так и не дано, то остаётся надеяться, что тема заинтересует телепатов. »
Что вы пристали к человеку? Хочет окно в командной строке, пускай получит
читать дальше »
Код: Выделить весь код
#Powershell script.
#Don't forget unlock script executing by 
#using command "Set-ExecutionPolicy RemoteSigned" or "Set-ExecutionPolicy Unrestricted"
#Save this file with ".ps1" extension
$Global:password

function GetHash($InputString) {
    $md5=New-Object -TypeName System.Security.Cryptography.MD5CryptoServiceProvider
    $utf8=New-Object -TypeName System.Text.UTF8Encoding
    $hash=[System.BitConverter]::ToString($md5.ComputeHash($utf8.GetBytes($InputString)))
    return $hash
}

$form=New-Object -TypeName System.Windows.Forms.Form
$form.Text="Запрос пароля"
$form.FormBorderStyle=[System.Windows.Forms.FormBorderStyle]::FixedDialog -bor `
    [System.Windows.Forms.FormBorderStyle]::None
$form.MinimizeBox=$false
$form.MaximizeBox=$false
$form.Width=185
$form.Height=185
$textbox=New-Object -TypeName System.Windows.Forms.TextBox
$textbox.PasswordChar="#"
$textbox.Top=$form.Height/2-$textbox.Top-50
$textbox.Left=$form.Width/2-$textbox.Width+45
$button=New-Object -TypeName System.Windows.Forms.Button
$button.Text="Отправить"
$button.Left=$form.Width/2-$button.Width+35
$button.Top=$form.Height/2+$button.Top
$button.Add_Click({
    $Global:password=$textbox.Text
    $form.Close()
})
$form.Controls.Add($button)
$form.Controls.Add($textbox)
$form.ShowDialog()
$CurHash=GetHash -InputString $password
$CurHash=GetHash -InputString $CurHash+"-"+$CurHash.SubString(0,5)
#убрать следующую строку, чтобы хэш с солью не отображался в окне командной строки
$CurHash
########################################
#сравнение солёного хэша с введёным паролем 123456
if ($CurHash -eq "42-50-04-E3-5B-EE-0C-95-22-C2-F4-CF-18-E7-53-43") {
    "Пароль верен"
} else {
    "Неправильный пароль"
}

-------
cmd умри, powershell живи=)
Powershel 4.0 microsoft.com/ru-ru/download/details.aspx?id=40855


Последний раз редактировалось sunnykey, 04-08-2013 в 13:36.


Отправлено: 16:58, 03-08-2013 | #7



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Окно ввода

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] Вылазит Окно ввода пользователя и пароля по локалке sasa74 Microsoft Windows 2000/XP 11 03-12-2010 17:34
Окно ввода ключа q28q Автоматическая установка Windows 2000/XP/2003 6 27-11-2010 09:59
Разное - Internet Explorer 8 диалоговое окно ввода пароля oren_yastreb Microsoft Windows 2000/XP 1 17-03-2010 09:32
[решено] Окно для ввода пароля SANIOK_AV AutoIt 2 18-11-2009 18:44
Окно ввода пользователей??? north_crow Автоматическая установка Windows 2000/XP/2003 7 08-06-2006 15:09




 
Переход