Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Как реализовать"Скрытый" ввод пароля? Добавлено: 26.03.09 22:54  

Автор вопроса:  cancler
Всем привет. Всем спасибо за помощь, оказанную ранее. НО вот опять затык. Как скрыть символы при вводе пароля в Inputbox, например 123456 вводим, а видим ****** ? Вообще это можно реализовать?
  
    Для mc-black. Извини, если пытался быть слишком настойчивым. Может все ж "авторизируешь"? Сильно надоедать не буду. Обещаю.

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
  Профиль | | #1 Добавлено: 26.03.09 23:45
В инпут бокс я думаю - нет, сделай свою маленькую форму с текстовым полем и в свойстве текстбокса можно поставить чтоб выводил звёздочки. И ещё можно сделать скрытое тестовое поле в котором будет отображаться пароль введённый в первый текстбокс, а в 1 текстбоксе писать * - это для того, чтоб не могли копировать пароль.

Ответить

Номер ответа: 2
Автор ответа:
 SSTREGG



Вопросов: 3
Ответов: 64
  Профиль | | #2 Добавлено: 27.03.09 00:25
  1. Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
  2.      ByVal lpClassName As String, _
  3.      ByVal lpWindowName As String) As Long
  4.      
  5. Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
  6.      ByVal hWnd1 As Long, _
  7.      ByVal hWnd2 As Long, _
  8.      ByVal lpsz1 As String, _
  9.      ByVal lpsz2 As String) As Long
  10.      
  11. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
  12.      ByVal hwnd As Long, _
  13.      ByVal wMsg As Long, _
  14.      ByVal wParam As Long, _
  15.      ByRef lParam As Any) As Long
  16.  
  17. Private Const EM_SETPASSWORDCHAR As Long = &HCC
  18.  
  19. Private Function SetPass(Optional DlgCaption As String = "", Optional ASCII As Long = 42) As Long
  20. ' DlgCaption - заголовок твоего InputBox'а
  21. ' ASCII - это ASCII код символа, который будет служить паролем
  22. Dim hMain As Long
  23. Dim hEdit As Long
  24.  
  25. hMain = FindWindow("#32770", DlgCaption)
  26. hEdit = FindWindowEx(hMain, 0, "Edit", vbNullString)
  27.  
  28. SetPass = SendMessage(hEdit, EM_SETPASSWORDCHAR, ASCII, 0)
  29. End Function

Ответить

Номер ответа: 3
Автор ответа:
 SergeyZuzic



ICQ: 474690219 

Вопросов: 5
Ответов: 155
  Web-сайт: vsedlysita.narod.ru
 Профиль | | #3 		Добавлено: 29.03.09 16:05
http://vsedlysita.narod.ru/InputBox.rar - качай наздоровье

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам