Vídeo Aula - Visual Basic /Visual Studio - Como criar login sem SQL ou Access

Link para download:
(Link Indisponível no momento)

Copie e cole, se você colo inteira e estiver tudo certo como no vídeo não a problema, se estiver numa linha só ou estiver tudo resto sem espaço e não igual ao vídeo tente arruma-lo:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim usr As String = TextBox1.Text Dim pass As String = TextBox2.Text If usr = "" Then MsgBox("Tem que escolher um username", MsgBoxStyle.Critical) Else If pass = "" Then MsgBox("tem que escolher uma password", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) Then MsgBox("O username Já existe", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login") = False Then MkDir("C:\login") End If MkDir("C:\login\" & usr) Dim escrever_pass As New System.IO.StreamWriter("C:\login\" & usr & "\pass.txt") escrever_pass.Write(pass) escrever_pass.Close() MsgBox("A sua conta foi criada!") End If End If End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim usr As String = TextBox1.Text Dim pass As String = TextBox2.Text If usr = "" Then MsgBox("Tem que escolher um username", MsgBoxStyle.Critical) Else If pass = "" Then MsgBox("tens que escolher uma password", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) = False Then MsgBox("O utilizador não existe", MsgBoxStyle.Critical) Else Dim baixar_pass As String = My.Computer.FileSystem.ReadAllText("C:\login\" & usr & "\pass.txt") If pass = baixar_pass Then MsgBox("Entrou com suceso") form2.show() Me.Close() Else MsgBox("a password esta incorrecta!", MsgBoxStyle.Critical) End If End If End If End If End Sub
End Class

Category:

Science & Technology

Tags:

• Vídeo Aulas
• Visual Basic
• Visual Studio
• SQL
• Access
• Login
• windows
• maker
• sem
• tutorial
• software
• technology
• system
• desktop
• computer

[0365926E]

coloca pra baixar caramba, copiar não da nem tentando ajusta, qual e a dificuldade de colocar o arquivo no 4shared ou megaupload hum?