• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

carlosmendes7

[Resolvida] Password

11 mensagens neste tópico

eu queria que ao introduzir a password numa inputbox no visual basic nao aparecesse o que eu escrevo ou seja queria que aparecesse ********

o codigo que ja tenho e este

Dim r As Integer
Private Sub Form_Load()
Dim r As Integer
UserName = InputBox("Password:", "Login")
    If UserName = "Mtronica" Then
        r = MsgBox("Deseja Mesmo Abrir o Gestor de Stock!", vbYesNo + vbCritical, "login")
        If r = vbNo Then
        End
        ElseIf r = vbYes Then MsgBox ("Então Vamos Continuar!")
        End If
    Else
    MsgBox ("Password Incorrecta!")
    End
    End If
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu nao percebo nada daquilo!

nao me consegues por isso a dar no programa de cima????

agradecia muito

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Invés de utilizar o imput box, utiliza o textbox e depois vais às propridades da textbox e algures de estar password, aí pões um *.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Crias um novo módulo e colocas lá este código:

Option Explicit

' Declaração de API's
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function KillTimer& Lib "user32" (ByVal hwnd&, ByVal nIDEvent&)
Public Declare Function SetTimer& Lib "user32" (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc&)

' Constantes
Public Const NV_INPUTBOX As Long = &H5000&
Private Const EM_SETPASSWORDCHAR = &HCC


Public Sub TimerProc(ByVal hwnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)

   Dim inputHwnd As Long

   inputHwnd = FindWindowEx(FindWindow("#32770", App.Title), 0, "Edit", "")
   Call SendMessage(inputHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
   KillTimer hwnd, idEvent

End Sub

Depois no teu programa:

Option Explicit

Private r As Integer

Private Sub Form_Load()
Dim r As Integer
Dim userName As String
    
    SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc

    ' IMPORTANTE: Não inserir o titulo na inputbox só o texto
    userName = InputBox("Inserir a password de acesso ao programa!")
    If userName = "Mtronica" Then
        r = MsgBox("Deseja Mesmo Abrir o Gestor de Stock!", vbYesNo + vbCritical, "login")
        If r = vbNo Then
            End
        ElseIf r = vbYes Then
            MsgBox ("Então Vamos Continuar!")
        End If
    Else
        MsgBox ("Password Incorrecta!")
        End
    End If
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sabes como é, o .NET já cá está à tanto tempo e tão bem desenvolvido e suportado que não percebo como é que ainda há gente a desenvolver em VB6 e como tal supos que fosse .NET, não reparei na secção :D

My bad...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sabes como é, o .NET já cá está à tanto tempo e tão bem desenvolvido e suportado que não percebo como é que ainda há gente a desenvolver em VB6 e como tal supos que fosse .NET, não reparei na secção :D

My bad...

Às vezes tenho também que parar para pensar ou mesmo perguntar :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Por falta de informação do utilizador e por existirem respostas aceitáveis à pergunta efectuada, esta questão foi marcada como resolvida.

Jorge Paulino

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora