как сделать чтоб были звёздочки?

вот кусок кода на VBScript:

Select Case user_type
    Case "Гость"
setPass = MsgBox("Вы хотите создать пароль для новой учётной записи?", vbYesNo + vbQuestion, "Создание пароля")
If setPass = vbYes Then
create_userpassword = InputBox("Введите Ваш новый пароль:","Новый пароль")
MsgBox "Сейчас будет создан новый пользователь:" & vbcrlf & vbcrlf & "———-" & vbcrlf & "Имя создаваемой учётной записи:   " & create_username & vbcrlf & vbcrlf & "Пароль для создаваемой учётной записи:   " & create_userpassword & vbcrlf & vbcrlf & "Права:   " & rightshome & vbcrlf & vbcrlf & "Состав в группах:   " & group3 & vbcrlf & vbcrlf & "Где создается:   " & computer
question = MsgBox("Продолжить?", vbYesNo + vbQuestion, "Подтвердите")

тут когда вводишь пароль то он отображается
а как сделать чтоб когда вводишь пароль в InputBox то были видны "******" вместо "привет"?  

1 комментарий

  • Опс…не увидел тэги…
    на VBS форм нет, поэтому можно предложить вариант использования HTA, но для такой задачи это IMHO слишком громоздко… 🙂

    —- old answer:
    через InputBox — никак.
    используйте для этого пользовательскую форму с контролом "TextBox".
    У него есть свойство PasswordChar можно прописать и звездочци и решеточки … 🙂