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

Cybernavigator

[Vb.net 2k5] Remember me [Resolvido]

10 mensagens neste tópico

Ok, tenho uma aplicação que pede login e password, e queria que a aplicação se lembra-se desse login e dessa pass  :hmm:

Como faço? Tentei mandar o user e a pass pra um ficheiro de texto, e cada vez k a aplicação corre ele vai lá buscar...

Mas sem sucesso, porque não escreve nd no texto, não percebo porque...  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

para escreveres no texto podes fazer simplesmente assim:

       Dim swriter As New StreamWriter("C:\alunos.txt", FileMode.Create)
        swriter.Write(txtNome.Text)
        swriter.Close()

por exemplo :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

            Dim swriter As New System.IO.StreamWriter("C:\alunos.txt", FileMode.Create)

Aparece-me file mode is not declared :S

resolvido

Fiz import System.IO :)

*editado*

HEHEHE, dá cagada... Não dá pra escrever por cima do que lá está? É k assim ele grava o ficheiro e da próxima vez k abre, caso o user meta outro username ele acrescenta ao k lá está...

*editado*

Corrijo, após o ficheiro ser criado o vb nunca o altera desse modo. Não dá pa limpar o text file?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nunca o altera desse modo como? como queres limpar o textfile? com um botao?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eskece, consegui desta forma:

Quando carrega no butão login ele confirma se o status do check é = true:

        If rememb.Checked = True Then
            If File.Exists(FILE_NAME) = True Then 'Se o ficheiro existir ele elimina-o (de forma a criar um novo)
                File.Delete(FILE_NAME)
            End If
            Dim swriter As New StreamWriter(FILE_NAME, FileMode.Create) 'Criar o ficheiro
            swriter.WriteLine(txtuser.Text)
            swriter.WriteLine(txtpass.Text)
            swriter.Close()
        End If

Depois no inicio da form:

        If File.Exists(FILE_NAME) = True Then
            Dim objReader As New StreamReader(FILE_NAME)
            txtuser.Text = objReader.ReadLine()
            txtpass.Text = objReader.ReadLine()
            objReader.Close()
        End If

deixo aki para o caso de mais alguém rpecisar... Cumpz :)

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Claro man, vcs aki ajudam bués :) Ty

*editado*

Olha, já agora, sabes-me dizer qual é o comando k representa o enter?

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