Ir para conteúdo
Fórum Script Brasil
  • 0

validação de senha via txt


skylopirata

Pergunta

Bom galera, alguém sabe algum modo ou link ou algo para me ajudar , fiz um campo de senha e criei com textbox e caracter com senha. até ai beleza... como eu faço para o meu campo com senha buscar em um .txt em minha maquina ex: (c:\windows\password.txt) para validação :unsure:

Valeu pessoal!

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

Bem amigo, funcional certinho o que eu queria.

Só tenho mais 1 duvidas.

Como faço para deletar o conteudo do do arquivo password.txt ? via vb.

Agradeço de qualquer modo.

Link para o comentário
Compartilhar em outros sites

  • 0

você quer dexar o arquivo em branco??

se for, em vez de Open For Input, abra pra Output (pra escrever dentro em vez de ler).

ai so de fazer isso acho q ele já sobrepoe o arquivo por um novo em branco, então você nem precisaria escrever nd, pode so abrir e fechar direto.

ou se não der, então tenta escrever um texto em branco e já era:

Print #f, ""
mas se quiser apagar (deletar) o arquivo, use a funcao Kill. exemplo:
Kill "c:\windows\password.txt"

Link para o comentário
Compartilhar em outros sites

  • 0

Kuroi o programa esta redondinho, a unica coisa que esta me atrapalhando é que.

Por incrivel que pareça. quando eu executo este codigo, no meu arquivo .txt que eu criei aparece. duas linhas.

uma com o codigo, e uma linha extra em baixo.. em branco...

Preciso que somente fique a linha numero 1 sem a linha extra em baixo.. :(

Dim fnum As Integer

Dim txt As String

fnum = FreeFile

Open "C:\key.txt" For Output As fnum ' cria o txt

txt = "teste123" 'manda o texto para o txt, variavel

Print #fnum, txt ' pega a variavel e manda para o txt

Close fnum

aparece assim no .txt

exemplo===================

teste123

|

e aquela barinha piscando em baixo... :( do teste123

Preciso que fique assim

exemplo===================

teste123

sabe como eu posso apagar essa linha extra via codigo eu fazer o codigo sem esta linha em baixo.?

Link para o comentário
Compartilhar em outros sites

  • 0

Você está abrindo o arquivo com algum editor de texto ?

Pode ser o próprio editor que gera a linha automaticamente...

Tente remover a linha manualmente e depois abra o arquivo com o mesmo editor de texto

Verifique, então, se a linha foi gerada novamente !

O código está certo...

Mas se não conseguir resolver mesmo assim tente fazer o seguinte:

Dim f As Long, senha As String

f = FreeFile
Open "c:\windows\password.txt" For Input As f
senha = Input$(LOF(f), f)
senha = replace(senha, vbcrlf, "")
Close f

Link para o comentário
Compartilhar em outros sites

  • 0

amigos, aproveitando a oportunidade. e sem querer ser chato!

A ULTIMA DIVIDA. PROMETO AGORA, hehehheheh...

Pessoal até aqui tudo certinho,

Private Sub Command1_Click()

Dim F As Long, senha As String

F = FreeFile

On Error Resume Next 'escapa da mensagem de erro

Open "C:\serial.txt" For Input As F 'abre o arquivo texto

Do While Not EOF(F)

Line Input #F, Linha

codigo = Mid(Linha, 1) 'aqui ele a primeira linha certinho! mais não consigo fazer ele ler linha avulsas. ex: ler apenas a linha 2 ou 5 ou 12.. ele lê somente a primeira..

Lab.Caption = codigo

Close F

Close #F

Exit Sub

Loop

Close #F

Exit Sub

trata_erro:

MsgBox Err.Description

End Sub

Muito Obrigado a todos..

Link para o comentário
Compartilhar em outros sites

  • 0

mas porque você ta pondo o close f e o exit sub dentro do loop?? e porque 3 close f??

mas o q você tem q fazer é um contador. comeca ele com 1 e le uma linha e depois soma mais 1. quando ele voltar no loop vai tentar ler a proxima linha.

e ai você sabe qual linha é pelo contador. então assim q chegar na linha q você quer, depois do line input ponha um exit do.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...