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 :
