Imports MySql.Data.MySqlClient
Public Class RegSys
    Private _connection As MySqlConnection = New MySqlConnection
    Private _adapter As New MySqlDataAdapter
    Private _query As String
    Private _command As New MySqlCommand
    Private _user As String
    Private _password(2) As String
    Public _continue As Boolean = False

    Public Function SetConnectionData(ByVal ip As String, ByVal username As String, ByVal pw As String, ByVal database As String)
        _connection.ConnectionString = "server=" & ip & ";" _
        & "user id=" & username & ";" _
        & "password=" & pw & ";" _
        & "database=" & database
    End Function

    Public Function InitializeLogin(ByVal usernametextbox As TextBox, ByVal pwtextbox As TextBox)
        _user = MD5StringHash(usernametextbox.Text)
        _password(0) = MD5StringHash(pwtextbox.Text)
        Try
            _connection.Open()    ' Try to connect
        Catch myerror As MySqlException
            MsgBox("No Connection to the Database!", MsgBoxStyle.Critical, "Fatal Error!")  ' If the person fails to connect
        End Try
        _query = "SELECT * FROM users WHERE username ='" + Replace(_user, " ", "") + "' AND password='" & Replace(_password(0), " ", "") & "'"
        _command.Connection = _connection
        _command.CommandText = _query

        _adapter.SelectCommand = _command
        Dim _myData As MySqlDataReader
        _myData = _command.ExecuteReader()    ' Start of the query
        If _myData.HasRows Then  ' If the query contains rows ( the password and username were right )
            MsgBox("Logon sucessful!")
            _connection.Close()
            _continue = True
            TehBot.Show()

        Else    ' If username / password are wrong
            MsgBox("Error! Wrong username/password!")
            _continue = False
        End If
    End Function

    Public Function InitializeRegister(ByVal usernametextbox As TextBox, ByVal pw1textbox As TextBox, ByVal pw2textbox As TextBox)
        _user = MD5StringHash(usernametextbox.Text)
        _password(0) = MD5StringHash(pw1textbox.Text)
        _password(1) = MD5StringHash(pw2textbox.Text)
        If _password(0) = _password(1) Then  ' If the textboxes passwords are the same
            Try
                _connection.Open()    ' Open the connection
            Catch myerror As MySqlException
                MsgBox("No connection to the database!", MsgBoxStyle.Critical, "Fatal Error!")
            End Try

            Dim myAdapter As New MySqlDataAdapter
            Dim SQLAbfrage As String = "SELECT * FROM users WHERE username='" + _user + "'" ' Query if the user already exists
            Dim _tmp_myCommand As New MySqlCommand
            _tmp_myCommand.Connection = _connection
            _tmp_myCommand.CommandText = SQLAbfrage

            myAdapter.SelectCommand = _tmp_myCommand
            Dim myData As MySqlDataReader
            myData = _tmp_myCommand.ExecuteReader()  ' Start query

            If myData.HasRows = 0 Then    ' If the username already exists it won't begin with the registration
                _connection.Close()
                _connection.Open()
                Dim registerfinal As New MySqlDataAdapter
                _tmp_myCommand.CommandText = "INSERT INTO users(username, password)" _
              & "VALUES('" & _user & "','" & _password(0) & "')"
                _tmp_myCommand.ExecuteNonQuery()    ' Start SQL query and insert
                MsgBox("The account with the name: " & usernametextbox.Text & " was created sucessfully!", MsgBoxStyle.Information, "Yep =)")
                _connection.Close()
            Else
                MsgBox("This username does already exist", MsgBoxStyle.Information, "Sorry")
            End If
        Else
            MsgBox("The passwords did not match!", MsgBoxStyle.Critical, "Error!")
        End If
    End Function

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myRegSys As New RegSys
        myRegSys.SetConnectionData("sql.host.com", "username", "password", "database")
        myRegSys.InitializeRegister(TextBox1, TextBox2, TextBox3)
    End Sub
End Class