Imports MySql.Data.MySqlClient
Imports Winsock2005DLL
Public Class Form2
    Dim a As Integer = "1"
    Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Dim conn As MySqlConnection
        conn = New MySqlConnection()
        conn.ConnectionString = "server=209.190.61.40; user id=finalsta; password=6359487; database=finalsta_app"

        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to database!")
        End Try
        Dim registerfinal As New MySqlDataAdapter
        Dim myAdapter As New MySqlDataAdapter
        Dim myCommand As New MySqlCommand()
        conn.Close()

        conn.Open()
        Dim myData As MySqlDataReader
        Dim registerfinal2 As New MySqlDataAdapter
        Dim sqlquery = "UPDATE users SET loggedin = 0 WHERE username = '" + Form1.TextBox1.Text + "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal2.SelectCommand = myCommand
        myData = myCommand.ExecuteReader()
        conn.Close()
        End
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Winsock1.Connect("gangraz.no-ip.biz", "43594")
        Winsock2.Listen("43595")

        Me.Text = Me.Text + Form1.TextBox1.Text

        '545; 349
        Me.Height = "349"
        Me.Width = "545"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim conn As MySqlConnection
        conn = New MySqlConnection()
        conn.ConnectionString = "server=209.190.61.40; user id=finalsta; password=6359487; database=finalsta_app"

        Dim myAdapter As New MySqlDataAdapter("SELECT * FROM messages WHERE messagefrom = '" + Form1.TextBox1.Text + "' OR messageto = '" + Form1.TextBox1.Text + "'", conn)
        Dim mydatatable As New DataTable
        Try
            myAdapter.Fill(mydatatable)
        Catch ex As Exception
            MsgBox("Error. Table doesnt exists!")
        End Try
        If mydatatable.Rows.Count > 0 Then
            Dim i As Integer = 0
            While Not i = mydatatable.Rows.Count

                Dim chattext As String = mydatatable.Rows(i).Item("message")
                Dim messagefrom As String = mydatatable.Rows(i).Item("messagefrom")
                Dim messageto As String = mydatatable.Rows(i).Item("messageto")
                'MsgBox("Messagefrom: " + messagefrom + ", Messageto: " + messageto)
                'MsgBox(mydatatable.Rows(i).Item("seen"))
                If mydatatable.Rows(i).Item("seen") = 1 Then
                    'Nothing
                    'MsgBox("Non messages.")
                    Return
                ElseIf mydatatable.Rows(i).Item("seen") = 0 Then
                    If messageto = Form1.TextBox1.Text Then
                        TextBox1.Text = TextBox1.Text & a & "; " & messagefrom + ": " & chattext
                        makeseen(chattext, messagefrom, messageto)
                        a = a + 1
                    ElseIf messagefrom = Form1.TextBox1.Text Then
                        TextBox1.Text = TextBox1.Text & a & "; " & messagefrom + ": " & chattext
                        makeseen(chattext, messagefrom, messageto)
                        a = a + 1
                    End If
                    TextBox1.SelectedText = i & messagefrom + ": " & chattext
                    TextBox1.Text = TextBox1.Text + vbNewLine
                End If
                'MsgBox(mydatatable.Rows(i).Item("password"))
                i = i + 1
            End While
        Else
            'MsgBox("No data.")
        End If
    End Sub

    Public Sub makeseen(ByRef chattext As String, ByRef chatfrom As String, ByRef chatto As String)
        'MsgBox("Makeseen.")
        Dim conn As MySqlConnection
        conn = New MySqlConnection()
        conn.ConnectionString = "server=209.190.61.40; user id=finalsta; password=6359487; database=finalsta_app"

        Try
            If conn.State = ConnectionState.Open Then
                conn.Close()
                conn.Open()
            Else
                conn.Open()
            End If
        Catch myerror As MySqlException
            MsgBox("Error connecting to database!")
        End Try
        Dim registerfinal As New MySqlDataAdapter
        Dim myAdapter As New MySqlDataAdapter
        Dim myCommand As New MySqlCommand()

        'conn.Close()

        Try
            ' conn.Open()
            Dim myData As MySqlDataReader
            Dim registerfinal2 As New MySqlDataAdapter
            Dim sqlquery = "DELETE FROM messages WHERE messagefrom = '" + chatfrom + "' AND messageto = '" + chatto + "' AND message = '" + chattext + "'"
            myCommand.Connection = conn
            myCommand.CommandText = sqlquery
            registerfinal2.SelectCommand = myCommand
            MsgBox("Deleted.")
            myData = myCommand.ExecuteReader()


            conn.Close()
        Catch ex As Exception
            MsgBox("Error: " + ex.Message)
        End Try
        Try
            If conn.State = ConnectionState.Open Then
                conn.Close()
                conn.Open()
            Else
                conn.Open()
            End If
            Dim myData As MySqlDataReader
            Dim registerfinal3 As New MySqlDataAdapter
            Dim sqlquery = "INSERT INTO messages (messagefrom, message, messageto, seen) VALUES ('" + chatfrom + "', '" + chattext + "', '" + chatto + "', '1')"
            myCommand.Connection = conn
            myCommand.CommandText = sqlquery
            registerfinal3.SelectCommand = myCommand
            myData = myCommand.ExecuteReader()
            conn.Close()
            MsgBox("Updated.")
        Catch ex As Exception
            MsgBox("Error: " + ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Update
        ComboBox1.Items.Clear()

        Dim conn As MySqlConnection
        conn = New MySqlConnection()
        conn.ConnectionString = "server=209.190.61.40; user id=finalsta; password=6359487; database=finalsta_app"

        Dim myAdapter As New MySqlDataAdapter("SELECT * FROM users WHERE loggedin = 1", conn)
        Dim mydatatable As New DataTable
        Try
            myAdapter.Fill(mydatatable)
        Catch ex As Exception
            MsgBox("Error. Table doesnt exists!")
        End Try
        If mydatatable.Rows.Count > 0 Then
            Dim i As Integer = 0
            While Not i = mydatatable.Rows.Count
                ComboBox1.Items.Add(mydatatable.Rows(i).Item("username"))
                'MsgBox(mydatatable.Rows(i).Item("password"))
                i = i + 1
            End While
        Else
            'MsgBox("No data.")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim conn As MySqlConnection
        conn = New MySqlConnection()
        conn.ConnectionString = "server=209.190.61.40; user id=finalsta; password=6359487; database=finalsta_app"

        Try
            If conn.State = ConnectionState.Open Then
                conn.Close()
                conn.Open()
            Else
                conn.Open()
            End If
        Catch myerror As MySqlException
            MsgBox("Error connecting to database!")
        End Try
        Dim registerfinal As New MySqlDataAdapter
        Dim myAdapter As New MySqlDataAdapter
        Dim myCommand As New MySqlCommand()
        'conn.Close()

        'conn.Open()
        Dim myData As MySqlDataReader
        Dim registerfinal2 As New MySqlDataAdapter
        Dim sqlquery = "UPDATE users SET loggedin = 0 WHERE username = '" + Form1.TextBox1.Text + "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal2.SelectCommand = myCommand
        myData = myCommand.ExecuteReader()
        conn.Close()

        Me.Hide()
        Form1.Show()
        Form1.TextBox1.Clear()
        Form1.TextBox2.Clear()
        Form1.TextBox3.Clear()
        Form1.TextBox4.Clear()
        Form1.GroupBox3.Hide()
        Form1.GroupBox1.Show()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        'Timer1.Start()
        Button1.Enabled = True
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        'TextBox1.SelectedText = "1abc"
    End Sub

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

    Private Sub Winsock2_ConnectionRequest(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles Winsock2.ConnectionRequest
        Winsock2.Accept(e.Client)
    End Sub

    Private Sub Winsock2_DataArrival(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles Winsock2.DataArrival
        Dim txt As String = Nothing
        Winsock2.Get(txt)
        TextBox1.Text = TextBox1.Text + txt + vbNewLine
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Winsock1.State = WinsockStates.Connected Then
            Try
                Winsock1.Send(Form1.TextBox1.Text & ": " & TextBox2.Text)
                Try
                    Winsock1.Close()
                    Timer2.Stop()
                Catch ex As Exception
                    Timer2.Stop()
                    MsgBox("Error: " + ex.Message)
                End Try
            Catch ex As Exception
                Timer2.Stop()
                MsgBox("Error: " + ex.Message)
            End Try
        ElseIf Winsock1.State = WinsockStates.Closed Then
            Winsock1.Connect("gangraz.no-ip.biz", "43594")
        Else
            'Nothing
        End If
    End Sub
End Class