Recordar los datos de usuario y la clave de inicio de sesión de forma práctica en vb.Net

A veces nos encaprichamos buscando una solución eficaz y fidedigna a nuestra aplicación para establecerle atributos funcionales que se nos escapa la idea de una solución más bien práctica y simple. Por ejemplo una de estas seria el tratar de atribuir a nuestro formulario de inicio de sesión la propiedad de recordar nuestros datos si así lo deseamos.

Había indagado varios artículos en las cuales por obra y gracia de san google me topaba con tipos pidiendo e impartiendo que trabajeis con las coockies, si, ese archivito en formato texto que es indispensable para aquellos que no tienen el mas mínimo tiempo de volver a ingresar sus datos de usuario para ingresar a su web favorita. Pues bien, de seguro habrá si como no código en vb.Net que os permitais estois atributos, pero es demasiado tedioso el estar referenciando librerias y escribiendo código que quizas nunca entendereis, por eso yo oz digo: no te compliques la vida y desarrolla tu propia coockie con el siguiente ejemplo en vb.Net:

Private Sub Btn_Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click

Const RutaCockie As String = "C:\cockie.txt"

If ChkRecordar.Checked = True Then ' activamos el check si deseamos guardar los datos en el archivo de texo

Dim sw As New System.IO.StreamWriter(RutaCockie)

sw.WriteLine(Txt_NomUsu.Text)

sw.WriteLine(Txt_ClaUsu.Text) ' bueno supongo que ya habreis codificado la clave o de lo contrario cualquier gato curioso podria indagar la cockie y mirar lo absurdo de tu clave: porsiempretuyo123

sw.Close()

Else

If IO.File.Exists(RutaCockie) Then

My.Computer.FileSystem.DeleteFile(RutaCockie) ' yo recomiendo eliminar el archivo si antes habeis guardado y ahora oz arrepentir, para ello primero comprobareis si el archivo existeis

End If

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Const RutaCockie As String = "C:\cockie.txt" ' puede ser otra ruta, la que deseais maldicion, total los derechos de libre expresion te guarecen

If IO.File.Exists(RutaCockie) Then ' si existe el archivo, significa que guardastes los datos en la coockie y leeras por cada linea el texto los datos

ChkRecordar.Checked = True

Dim sr As New System.IO.StreamReader(RutaCockie, True)

Txt_NomUsu.Text = sr.ReadLine ' lee la primera linea donde estaria el nombre de usuario ya que en ese orden lo deberiamos haber guardado

Txt_ClaUsu.Text = sr.ReadLine ' leea la segunda linea

sr.Close()

End If

End Sub

Post relacionados :