client/Seguridad/Login.vb

525 lines
23 KiB
VB.net
Raw Blame History

Imports System.IO
Imports System.Data.SqlClient
Imports CLIENTE.dmModulo
Imports CLIENTE.Registro 'controla password
Public Class Login
Inherits System.Windows.Forms.Form
Public Usuario As Boolean = True
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
'MsgBox("entro")
InitializeComponent()
'MsgBox("paso")
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents txtUsuario As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Public WithEvents lblIdPerfil As System.Windows.Forms.Label
Friend WithEvents lblNombreCompleto As System.Windows.Forms.Label
Friend WithEvents lblNombrePerfil As System.Windows.Forms.Label
Friend WithEvents lblAM As System.Windows.Forms.Label
Friend WithEvents lblAP As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents lblNombreUsuario As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Login))
Me.PictureBox2 = New System.Windows.Forms.PictureBox
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.txtUsuario = New System.Windows.Forms.TextBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.lblIdPerfil = New System.Windows.Forms.Label
Me.lblNombreCompleto = New System.Windows.Forms.Label
Me.lblNombrePerfil = New System.Windows.Forms.Label
Me.lblAM = New System.Windows.Forms.Label
Me.lblAP = New System.Windows.Forms.Label
Me.Panel1 = New System.Windows.Forms.Panel
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
Me.lblNombreUsuario = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(8, 6)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(38, 36)
Me.PictureBox2.TabIndex = 1
Me.PictureBox2.TabStop = False
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.Color.MidnightBlue
Me.btnAceptar.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAceptar.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.White
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(66, 90)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(74, 24)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.Color.MidnightBlue
Me.btnCancelar.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCancelar.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.White
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(147, 90)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(81, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
'
'txtUsuario
'
Me.txtUsuario.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtUsuario.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUsuario.Location = New System.Drawing.Point(110, 32)
Me.txtUsuario.MaxLength = 15
Me.txtUsuario.Name = "txtUsuario"
Me.txtUsuario.Size = New System.Drawing.Size(130, 23)
Me.txtUsuario.TabIndex = 0
Me.txtUsuario.Text = ""
'
'txtClave
'
Me.txtClave.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtClave.Location = New System.Drawing.Point(110, 56)
Me.txtClave.MaxLength = 15
Me.txtClave.Name = "txtClave"
Me.txtClave.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.txtClave.Size = New System.Drawing.Size(130, 23)
Me.txtClave.TabIndex = 1
Me.txtClave.Text = ""
'
'lblIdPerfil
'
Me.lblIdPerfil.Location = New System.Drawing.Point(112, 0)
Me.lblIdPerfil.Name = "lblIdPerfil"
Me.lblIdPerfil.Size = New System.Drawing.Size(40, 8)
Me.lblIdPerfil.TabIndex = 6
'
'lblNombreCompleto
'
Me.lblNombreCompleto.Location = New System.Drawing.Point(-24, 176)
Me.lblNombreCompleto.Name = "lblNombreCompleto"
Me.lblNombreCompleto.Size = New System.Drawing.Size(19, 23)
Me.lblNombreCompleto.TabIndex = 8
'
'lblNombrePerfil
'
Me.lblNombrePerfil.Location = New System.Drawing.Point(238, 0)
Me.lblNombrePerfil.Name = "lblNombrePerfil"
Me.lblNombrePerfil.Size = New System.Drawing.Size(36, 12)
Me.lblNombrePerfil.TabIndex = 9
'
'lblAM
'
Me.lblAM.Location = New System.Drawing.Point(32, 16)
Me.lblAM.Name = "lblAM"
Me.lblAM.Size = New System.Drawing.Size(8, 23)
Me.lblAM.TabIndex = 10
'
'lblAP
'
Me.lblAP.Location = New System.Drawing.Point(304, 8)
Me.lblAP.Name = "lblAP"
Me.lblAP.Size = New System.Drawing.Size(48, 23)
Me.lblAP.TabIndex = 11
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(202, Byte), CType(202, Byte), CType(183, Byte))
Me.Panel1.Controls.Add(Me.LinkLabel1)
Me.Panel1.Controls.Add(Me.lblAM)
Me.Panel1.Controls.Add(Me.txtUsuario)
Me.Panel1.Controls.Add(Me.btnAceptar)
Me.Panel1.Controls.Add(Me.lblNombrePerfil)
Me.Panel1.Controls.Add(Me.txtClave)
Me.Panel1.Controls.Add(Me.PictureBox2)
Me.Panel1.Controls.Add(Me.btnCancelar)
Me.Panel1.Controls.Add(Me.lblNombreUsuario)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Location = New System.Drawing.Point(8, 8)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(272, 152)
Me.Panel1.TabIndex = 12
'
'LinkLabel1
'
Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte))
Me.LinkLabel1.Location = New System.Drawing.Point(3, 135)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(141, 23)
Me.LinkLabel1.TabIndex = 14
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "Condor Business Solutions"
'
'lblNombreUsuario
'
Me.lblNombreUsuario.BackColor = System.Drawing.Color.FromArgb(CType(202, Byte), CType(202, Byte), CType(183, Byte))
Me.lblNombreUsuario.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNombreUsuario.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(51, Byte), CType(102, Byte))
Me.lblNombreUsuario.Location = New System.Drawing.Point(46, 34)
Me.lblNombreUsuario.Name = "lblNombreUsuario"
Me.lblNombreUsuario.Size = New System.Drawing.Size(72, 18)
Me.lblNombreUsuario.TabIndex = 11
Me.lblNombreUsuario.Text = "Usuario:"
Me.lblNombreUsuario.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(202, Byte), CType(202, Byte), CType(183, Byte))
Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(51, Byte), CType(102, Byte))
Me.Label2.Location = New System.Drawing.Point(42, 56)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 18)
Me.Label2.TabIndex = 13
Me.Label2.Text = "Password:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Login
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(51, Byte), CType(102, Byte))
Me.ClientSize = New System.Drawing.Size(290, 170)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.lblAP)
Me.Controls.Add(Me.lblNombreCompleto)
Me.Controls.Add(Me.lblIdPerfil)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Login"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "MINDS"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
'Declaracion de variables globales
Dim strConnection As String
'Para conectarme a la base de datos
Dim dap1 As SqlDataAdapter = New SqlDataAdapter()
Dim cnn1 As SqlConnection
Dim cmd1 As SqlCommand
Dim das1 As DataSet
Dim Cadena As String
Public Shared IdPerfil As String
Public Shared NombreUsuario As String
Public Shared NombreCompleto As String
Public Shared NombrePerfil As String
Dim contador As Integer
Dim clCmp As clsComplejo = New clsComplejo
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
'Me.Close()
Application.Exit()
End Sub
Private Sub ConectarBD()
'dmModulo.SqlConnection.ConnectionString = strConnection
cnn1 = New SqlConnection(dmModulo.strConnection)
Cadenas_Select()
Try
cnn1.Open()
'MsgBox("base abierta")
Llenar_Dataset()
Catch er As Exception
MessageBox.Show("Error en el metodo ConectarBD. " & er.Message)
Finally
cnn1.Close()
End Try
End Sub
Private Sub LeeRegEdit()
dmModulo.Conexion = False
strConnection = ""
dmModulo.strConnection = ""
dmModulo.CadenaConexion(GetSetting("MIndsAgro", "Conexion", "TipoServidorMD", "25"), _
GetSetting("MIndsAgro", "Conexion", "Servidor", "25"), _
GetSetting("MIndsAgro", "Conexion", "BaseDatos", "25"), _
GetSetting("MIndsAgro", "Conexion", "Usuario", "25"), _
GetSetting("MIndsAgro", "Conexion", "Password", "25"))
strConnection = dmModulo.strConnection
Try
dmModulo.SqlConnection.ConnectionString = strConnection
dmModulo.SqlConnection.Open() 'Abre la conexion
Conexion = True
Catch dataException As Exception
MessageBox.Show("No se ha podido conectar a la base de datos. Verifique con el administrador del sistema." + Chr(13) + _
"Detalles : " + Chr(13) + dataException.Message, "Mensaje de sistema", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Finally
'dmModulo.SqlConnection.Close() 'Cierra la conexion ',modificada
End Try
End Sub
Private Sub CambiaApariencia(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnAceptar.MouseMove, btnCancelar.MouseMove
Try
Dim Boton As Button
Boton = Sender
Boton.BackColor = System.Drawing.Color.Blue
Boton.Font = New System.Drawing.Font("Tahoma", 10.5!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Catch ex As Exception
End Try
End Sub
Private Sub RegresaApariencia(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.MouseLeave, btnCancelar.MouseLeave
Try
Dim Boton As Button
Boton = Sender
Boton.BackColor = System.Drawing.Color.MidnightBlue
Boton.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Catch ex As Exception
End Try
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim PasswordEncriptado As String
Dim CLassReg As New LeeEditorRegistro
Dim _FechaActual As String = Now 'MSGBOX = Registro.DesEncripta("246054246230070247035003031")
Dim Classcom As New clsComplejo
Dim Prueba As New Odbc.OdbcConnection
PasswordEncriptado = Registro.Encripta(txtClave.Text)
If Usuario = True Then
CLassReg.LEE(clsVaribles.Conexion.ConnectionString)
dmModulo.SqlConnection.ConnectionString = dmModulo.strConnection
'dmModulo.SqlConnection.ConnectionString = "DSN=MindsConeccion"
dmModulo.SqlConnection.Open()
'Prueba.ConnectionString = "DSN=MindsConeccion"
'Prueba.Open()
Conexion = True
End If
'si dmModulo.conexion = true significa que la base esta abierta
If dmModulo.Conexion = True Then
Dim frmSplash As splash = New splash
Dim Command As New Command
Try
Command.spsql = "spcbExisteUsuario '" & Trim(txtUsuario.Text) & "', '" & PasswordEncriptado & "'"
Command.Count(Command.spsql)
If Command.Datos > 0 Then
Usuario = True
Me.Visible = False
Me.Hide()
frmSplash.Show()
Application.DoEvents()
'**************
frmSplash.Close()
frmSplash.Dispose()
ConectarBD()
Enlazar()
'Verifico cuanto dias tiene el password
Dim fila As DataRow
Dim Fecha As String
Dim FechaOld As Date
Static Dim dias As Integer
Dim Result As DialogResult
fila = das1.Tables(0).Rows(0)
Fecha = fila("FCambioPassword")
FechaOld = CDate(Fecha)
dias = DateDiff(DateInterval.Day, FechaOld, Now) 'Obtiene el numero de dias
If dias >= 7 Then
Dim DiasRestantes As Integer = 15 - dias
If DiasRestantes <= 0 Then
MessageBox.Show("Es necesario que cambies tu password", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim frmCamPas As CambioPassword = New CambioPassword
frmCamPas.ShowDialog()
Else
Result = MessageBox.Show("Tu password Caducar<61> en " & DiasRestantes & " dias" & " <20>Deseas cambiarlo ahora?", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If Result = DialogResult.Yes Then
Dim frmCamPas As CambioPassword = New CambioPassword
frmCamPas.ShowDialog()
End If
End If
End If
' MsgBox(dias)
'Establesco el query para grabar la fecha del ultimo acceso
Dim CadSQL As String = ""
CadSQL = "spUltimoAcceso ' " & Classcom.ObtenFecha(_FechaActual, "yyyymmdd") & "', '" & Me.txtUsuario.Text & "', 'A'"
clCmp.sbGuardaModifica(CadSQL)
'***AUDITORIA
clsVaribles.varUsuario = clCmp.BuscaValores("idusuario", "usuario", "usuario = '" & My.User.Name & "'")
'AUDITORIA
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 1, 1, My.User.Name)
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 1, My.Computer.Name, "Minds Cliente", "Entrada Minds Cliente")
'FIN AUDITORIA
LlamaPrincipal()
'***************
Else
Usuario = False
contador = contador + 1 ' Se utiliza para indicar q el usuario solo puede hacer tres intentos de conexion
MessageBox.Show("No existe su cuenta de usuario en el sistema o no es un usuario activo.", "Mensaje del sistema", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
End If
If contador >= 3 Then
'Estableco el query para bloquear la cuenta
Dim SQL As String = ""
SQL = "spUltimoAcceso ' " & Classcom.ObtenFecha(_FechaActual, "yyyymmdd") & "', '" & Me.txtUsuario.Text & "', 'B'"
clCmp.sbGuardaModifica(SQL)
MsgBox("tu cuenta ha sido bloqueada consulta al administrador del sistema")
Application.Exit() 'cierra todo el sistema
End If
Catch a As Exception
MessageBox.Show(a.Message)
Finally
'dmModulo.SqlConnection.Close() 'Cierra la conexion ',modificada
End Try
End If
End Sub
Private Sub Enlazar()
'Enlazo los datos
lblIdPerfil.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.idPerfil"))
lblNombreUsuario.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.Usuario"))
lblNombrePerfil.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.NombrePerfil"))
lblNombreCompleto.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.Nombre"))
lblAP.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.APaterno"))
lblAM.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.AMaterno"))
'Asigancion de valores para compartir en toda la aplicacion+
IdPerfil = lblIdPerfil.Text
NombreUsuario = lblNombreUsuario.Text
NombreCompleto = lblNombreCompleto.Text & " "
NombreCompleto = NombreCompleto & lblAP.Text & " "
NombreCompleto = NombreCompleto & lblAM.Text
NombrePerfil = lblNombrePerfil.Text
End Sub
Private Sub txtUsuario_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUsuario.Enter
txtUsuario.SelectAll()
End Sub
Private Sub txtClave_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtClave.Enter
txtClave.SelectAll()
End Sub
Private Sub Cadenas_Select()
Cadena = "select * from UsuarioPefil WHERE Usuario = '"
Cadena = Cadena & txtUsuario.Text & "'"
cmd1 = New SqlCommand(Cadena, cnn1)
dap1.SelectCommand = cmd1
End Sub
Private Sub Llenar_Dataset()
'Lleno el dataset con la vista usurioPerfil
das1 = New DataSet
dap1.Fill(das1, "UsuarioPefil")
'MsgBox("llene dateset")
End Sub
Private Sub LlamaPrincipal()
Try
Dim frmPrincipal As mdiForm = New mdiForm
'frmPrincipal.entrar(txtUsuario.Text.Trim, txtClave.Text.Trim) 'MARCA ERROR ESTA LINEA
'frmPrincipal.IsMdiContainer = True
frmPrincipal.Show()
Catch er As Exception
MessageBox.Show(er.Message & " Error al cargar el formulario principal")
End Try
End Sub
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CancelButton = btnCancelar
Me.AcceptButton = btnAceptar
validar_textbox()
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
'llama a una funcion que me permite enlazar a una pagina
VisitLink()
End Sub
Sub VisitLink()
Try
'Llama el metodo Process.Start para abrir el navegador por defaul y abre la URL
System.Diagnostics.Process.Start("http://condorbs.com")
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub validar_textbox()
'Valida que la longuitud de la propiedad text de las cajas sea igual a 0
'para deshabilitar el boton de aceptar
If (txtUsuario.Text.Length = 0 Or txtClave.Text.Length = 0) Then
btnAceptar.Enabled = False
Else
'si la longuitud es mayor de 0 se habilita el boton de aceptar
If txtClave.Text.Length > 0 Then
btnAceptar.Enabled = True
End If
End If
End Sub
Private Sub TxtUsuario_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUsuario.TextChanged
'si la caja de texto (usuario) cambio en su propiedad text, se valida nuevamente
validar_textbox()
End Sub
Private Sub TxtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged
'si la caja de texto (contrase<73>a) cambio en su propiedad text, se valida nuevamente
validar_textbox()
End Sub
End Class