CRIANDO LOGIN

USUARIO.EXCLUIDOS 01/05/2005 00:19:53
#81190
galera, seguinte, eu preciso criar um sistema de login e tals.... soh q as informacoes precisam estar num arquivo txt...

ex.: o usario abriu o programa, aparece a tela de login e tals, o usuario coloca sua senha e user.... blz, entrou, dai outro usuario vem e abre o programa, dai o usuario e senha sao diferentes do 1o.... essas 2 informacoes tem q estar no msm txt.... como q eu faco isso??

vlws
USUARIO.EXCLUIDOS 01/05/2005 01:04:18
#81196
Bom... para vc salvar as informacoes em arquivos .txt vc usa o seguinte

'Abre um arquivo texto (caso já nao exista, é criado um)
Open "C:\MeuArquivo.txt" for output as #1 'Output é usado para escrever dados no arquivo
'Para escrever no arquivo
Print #1, "Aqui eu escrevo o meu texto"
'para fechar o arquivo
Close #2
USUARIO.EXCLUIDOS 01/05/2005 01:05:38
#81197
Putz...
'Para fechar o arquivo é o seguinte, se vc abriu como #1 tem fechar igual (#1) e não como eu fiz, foi um erro de digitação

Espero ter ajudado...
USUARIO.EXCLUIDOS 01/05/2005 01:47:14
#81200
blz, + como q eu faco p/ os 2 logins e as 2 senhas fiquem no msm txt.... p/ qnd o usuario clicar num botao, ele verifique se eh valido ou nao???
USUARIO.EXCLUIDOS 01/05/2005 13:56:02
#81222
alguem?
USUARIO.EXCLUIDOS 01/05/2005 14:11:50
#81223
Em vez de usar:
Open "C:\MeuArquivo.txt" for output as #1

...use...
Open "C:\MeuArquivo.txt" for append as #1


...assim, de cada vez que o arquivo é aberto, ele adiciona o texto.
USUARIO.EXCLUIDOS 01/05/2005 15:06:40
#81226 Resposta escolhida
Aff, a pergunta já é toskamente fácil, e o pessoal não dá resposta que condiga com nada o.O

Private Function IsCorrect(Byval sInUser as String,ByVal sInPw as String) as Boolean
Dim FF as Long
Dim sLine as String

FF= FreeFile

Open Arquivo For Input as #FF
Do While Not Eof(FF)
    Line Input #FF, sLine
    If sInUser = Split(sLine,",")(0) and sInPw = Split(sLine,",")(1) Then
        IsCorrect = True
        Exit Function
   End if
Loop
IsCorrect= False
Close #FF
USUARIO.EXCLUIDOS 01/05/2005 15:14:41
#81227
Ah, fiz isso agora, nem testei. Coloca dentro do programa a função e passa como parametros o nome do usuário fornecido pelo usuário e a senha. Dai ele abre o arquivo e verifica se existe esse registro lá dentro. O registro estará no arquivo assim:

NomeUsuário,Password
NomeUsuário2,Passowrd2
.
.
.
NomeUsuárioN,PasswordN

Se quiser criptografar dps, é com você.
USUARIO.EXCLUIDOS 01/05/2005 20:12:23
#81239
no caso eu colocaria sInUser = Text1.Text e o sInPw = Text2.Text???

no mais, valeu pela ajuda...
USUARIO.EXCLUIDOS 01/05/2005 21:08:30
#81242
Aff, não, você colocaria

If IsCorrect(Text1.Text, Text2.Text) Then
WEBMASTER 01/05/2005 22:13:44
#81245
Beleza, mas não ficaria um pouco inseguro utilizar logins e senhas em um txt???
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar