Fix My Project...

Posts 1–15 of 27 · Page 1 of 2

Fix My Project...

Hi guys can you please help me on my project.
I am learning how to make login form with registe that will remember the pass and login but I have some problems.
I didn't put the code because I don't know which part has error!!!
If you please can download my project fix it and give it to me.

Thank You! @dnj$nda94manbdw

https://www.virustotal.com/en/file/5...is/1369597477/ⓘ
hELP!.rar - Jotti's malware scanⓘ

REGISTER CODE:

Code:

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\Accounts\") Then
        Else
            MkDir(Application.StartupPath & "\Accounts\")
            If My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\Accounts\" + TextBox1.Text) Then

                MsgBox("error - account already exist")
            Else
                MkDir(Application.StartupPath & "\Accounts\" + TextBox1.Text)
                MessageBox.Show("Your ACC has beed made")
                Dim a As New System****.StreamWriter(Application.StartupPath & "\Accounts\" + TextBox1.Text + "\Username.txt")
                a.WriteLine(TextBox1.Text)
                a.Close()

                Dim b As New System****.StreamWriter(Application.StartupPath & "\Accounts\" + TextBox2.Text + "\Password.txt")
                b.WriteLine(TextBox2.Text)
                b.Close()

            End If
        End If

Code:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim checkUsername As String
            Dim CheckPassword As String
            Dim a As New System****.StreamReader(Application.StartupPath & "\Accounts\" + TextBox1.Text + "\Username.txt")
            checkUsername = a.ReadLine()
            a.Close()
            Dim b As New System****.StreamReader(Application.StartupPath & "\Accounts\" + TextBox1.Text + "\Password.txt")
            CheckPassword = b.ReadLine()
            b.Close()
            If TextBox1.Text = checkUsername.ToString Then
                If TextBox2.Text = CheckPassword.ToString Then
                    MsgBox("welcome to the system - " + checkUsername.ToString)
                Else
                    MsgBox("error - password incorrect")
                End If
            Else
                MsgBox("error acccount dose not exist")
            End If

        Catch ex As Exception
            MsgBox("error - " + ex.Message)
        End Try
    End Sub

hELP!_mpgh.net.rar652 KB · 10 downloads Scanning…

Download & Thanks

Just paste the source here and i will try to correct it (Attachement has to be approved first and it takes ages, lol)

Add me on skype i will send you : MPGH.HAYEM
I don't think its the code I think i did something wrong on project!

Originally Posted by deinemudda012345

Just paste the source here and i will try to correct it (Attachement has to be approved first and it takes ages, lol)

---------- Post added at 03:39 PM ---------- Previous post was at 03:22 PM ----------

I added the code too.

Originally Posted by deinemudda012345

Just paste the source here and i will try to correct it (Attachement has to be approved first and it takes ages, lol)

Try putting a try statement in the register button.

Your registration code will never run if the folder Accounts is already there since you put all the code inside the else statement.

then help me and fix the project and give me pls

Originally Posted by atom0s

Your registration code will never run if the folder Accounts is already there since you put all the code inside the else statement.

If you can't see the problem and fix it yourself than perhaps you shouldn't be coding things yet. I'm not doing something for you. Take the time to read and understand what you are doing instead of just throwing things together, perhaps even copy/pasting stuff, and begging for someone to fix it for you.

Well first off, you need to post the errors or else we don't know what we're trying to fix.

Second, nobody will spoon-feed you in this section.

Well It doesn't have any errors!
It just dose not work I don't know why!

Originally Posted by Cryptonic

Well first off, you need to post the errors or else we don't know what we're trying to fix.

Second, nobody will spoon-feed you in this section.

Originally Posted by dnj$nda94manbdw

Well It doesn't have any errors!
It just dose not work I don't know why!

well if it doesn't have any errors what r we trying to help u fix??

Originally Posted by dnj$nda94manbdw

Well It doesn't have any errors!
It just dose not work I don't know why!

So the problem is in your code
One more time calling your self a coder and dont know the problem

---------- Post added at 08:17 AM ---------- Previous post was at 08:16 AM ----------

Then, you can leech another code it's not hard for kid like you (kid)

Originally Posted by atom0s

If you can't see the problem and fix it yourself than perhaps you shouldn't be coding things yet.

Indeed.

This is very simple to solve, if you got just a little imagination fo coding it should be easy for you too...

And calling your self a coder along time ?
You know your coder friend let him help you. Yes, i mean Legendary Ghost or what ever was his name.

Originally Posted by Nexero

One more time calling your self a coder and dont know the problem

Happens to me more than 20 times a day

--

Code:

If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\Accounts\") Then MkDir(Application.StartupPath & "\Accounts\") Else If My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\Accounts\" + TextBox1.Text) Then MsgBox("error - account already exist") Exit Sub 'or Return End If End If MkDir(Application.StartupPath & "\Accounts\" + TextBox1.Text) MessageBox.Show("Your ACC has beed made") Dim a As New System****.StreamWriter(Application.StartupPath & "\Accounts\" + TextBox1.Text + "\Username.txt") a.WriteLine(TextBox1.Text) a.Close() Dim b As New System****.StreamWriter(Application.StartupPath & "\Accounts\" + TextBox2.Text + "\Password.txt") b.WriteLine(TextBox2.Text) b.Close()

good luck with your c&p

Originally Posted by Biesi

Happens to me more than 20 times a day

--

Code:

If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\Accounts\") Then MkDir(Application.StartupPath & "\Accounts\") Else If My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\Accounts\" + TextBox1.Text) Then MsgBox("error - account already exist") Exit Sub 'or Return End If End If MkDir(Application.StartupPath & "\Accounts\" + TextBox1.Text) MessageBox.Show("Your ACC has beed made") Dim a As New System****.StreamWriter(Application.StartupPath & "\Accounts\" + TextBox1.Text + "\Username.txt") a.WriteLine(TextBox1.Text) a.Close() Dim b As New System****.StreamWriter(Application.StartupPath & "\Accounts\" + TextBox2.Text + "\Password.txt") b.WriteLine(TextBox2.Text) b.Close()

good luck with your c&p

I already said he just leecher ^^
I swear he only know coding "If" System no more
I guess he doesn't even know what does "Dim" means