Imports System.Net
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim connection As New MySqlConnection("datasource=87.229.71.141;port=3306;username=root;password=skeet;database=nl")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            My.Computer.Network.Ping("nightlights.ml")
        Catch
            '    MessageBox.Show("Error: Unable to connect to servers", "Error")
            MsgBox("Error: Unable to connect to webservers.", vbExclamation, "Error occured.")
            Application.Exit()
        End Try
        TextBox4.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory
    End Sub
    '    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim command As New MySqlCommand("INSERT INTO `nl_register`( `r_username`, `r_pw`, `r_hwid`, `r_done`) VALUES (@uname,@upass,@uhwid,@udone)", connection)

        command.Parameters.Add("@uname", MySqlDbType.VarChar).Value = TextBox1.Text
        command.Parameters.Add("@upass", MySqlDbType.VarChar).Value = TextBox2.Text
        command.Parameters.Add("@uhwid", MySqlDbType.VarChar).Value = TextBox3.Text
        command.Parameters.Add("@udone", MySqlDbType.Int16).Value = "0"

        connection.Open()

        If command.ExecuteNonQuery() = 1 Then

            MessageBox.Show("you registered your trial now. please, wait.", "successful")

        Else

            MessageBox.Show("something bad occured", "error")
        End If
        Try

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Class