Si te krijojm nje program - Printable Version

Code:
Close Button-- : 


Me.Close()


Create Button --  : 


Dim usr As String = TextBox1.Text
        Dim pass As String = TextBox2.Text
        If usr = "" Then
            MsgBox("You must choose a username", MsgBoxStyle.Critical)
        Else
            If pass = "" Then
                MsgBox("You must choose a password", MsgBoxStyle.Critical)
            Else
                If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) Then
                    MsgBox("The username already exists", 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("Your account has been created!")
                End If
            End If
        End If

Login Button -- :


        Dim usr As String = TextBox1.Text
        Dim pass As String = TextBox2.Text
        If usr = "" Then
            MsgBox("You must choose a username", MsgBoxStyle.Critical)
        Else
            If pass = "" Then
                MsgBox("You must choose a password", MsgBoxStyle.Critical)
            Else
                If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) = False Then
                    MsgBox("The username doesn't exist", MsgBoxStyle.Critical)
                Else
                    Dim baixar_pass As String = My.Computer.FileSystem.ReadAllText("C:\login\" & usr & "\pass.txt")
                    If pass = baixar_pass Then
                        MsgBox("You're logged in")
                    Else : MsgBox("The password is incorrect!", MsgBoxStyle.Critical)
                    End If
                End If
            End If
        End If