Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Threading
Imports System.Net
Imports System.Net.Sockets
Imports System.IO

Namespace ChatServer
	Public Partial Class Form1
		Inherits Form
		Private Delegate Sub UpdateStatusCallback(strMessage As String)
		Public Sub New()
			InitializeComponent()
			AddHandler Me.FormClosing, New FormClosingEventHandler(AddressOf Form1_FormClosing)
		End Sub
		Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
			Environment.[Exit](0)
		End Sub
		Private Sub btnListen_Click(sender As Object, e As EventArgs)
			Try
				Dim ipAddr As IPAddress = IPAddress.Parse(txtIp.Text)
				Dim mainServer As New ChatServer(ipAddr)
				AddHandler ChatServer.StatusChanged, New StatusChangedEventHandler(AddressOf mainServer_StatusChanged)
				mainServer.StartListening()
				btnListen.Enabled = False
				txtIp.Enabled = False
				Name1.Start()
				txtLog.AppendText("Servies Started Successfully" & vbCr & vbLf)
			Catch ex As Exception
				txtLog.AppendText(ex.Message & vbCr & vbLf)
			End Try
		End Sub
		Public Sub mainServer_StatusChanged(sender As Object, e As StatusChangedEventArgs)
			Me.Invoke(New UpdateStatusCallback(AddressOf Me.UpdateStatus), New Object() {e.EventMessage})
		End Sub
		Private Sub UpdateStatus(strMessage As String)
			txtLog.AppendText(strMessage & vbCr & vbLf)
		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)

		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)
			ChatServer.SendAdminMessage(textBox1.Text)
			textBox1.Clear()
			textBox1.Text = "Message here"
		End Sub

		Private Sub button2_Click(sender As Object, e As EventArgs)

		End Sub

		Private Sub button3_Click(sender As Object, e As EventArgs)
			AdminTools.muteUser(textBox3.Text, "Server")
			textBox3.Clear()
			textBox3.Text = "Nick here"
		End Sub

		Private Sub button4_Click(sender As Object, e As EventArgs)
			AdminTools.unMuteUser(textBox4.Text, "Server")
			textBox4.Clear()
			textBox4.Text = "Nick here"
		End Sub

		Private Sub button5_Click(sender As Object, e As EventArgs)

		End Sub

		Private Sub button6_Click(sender As Object, e As EventArgs)
			AdminTools.mimicUser(textBox6.Text, textBox7.Text)
			textBox6.Clear()
			textBox7.Clear()
			textBox6.Text = "Nick"
			textBox7.Text = "Message"
		End Sub

		Private Sub button7_Click(sender As Object, e As EventArgs)
		End Sub

		Private Sub Name1_Tick(sender As Object, e As EventArgs)
			Me.Text = "Running..."
			Name2.Start()
			Name1.[Stop]()
		End Sub

		Private Sub Name2_Tick(sender As Object, e As EventArgs)
			Me.Text = "Services Hosted By: " & txtIp.Text
			Name3.Start()
			Name2.[Stop]()
		End Sub

		Private Sub Name3_Tick(sender As Object, e As EventArgs)
			Me.Text = "Running..." & txtIp.Text
			Name1.Start()
			Name3.[Stop]()
		End Sub

		Private Sub button2_Click_1(sender As Object, e As EventArgs)
			Try
                '	New UserPartInfo(textBox2.Text, textBox5.Text, UserFullInfo.Permission.Staff)
				MessageBox.Show("Created! (STAFF)")
				textBox2.Clear()
				textBox5.Clear()
			Catch
				MessageBox.Show("Error making user")
			End Try
		End Sub

		Private Sub button5_Click_1(sender As Object, e As EventArgs)
			Try
				New UserPartInfo(textBox9.Text, textBox8.Text, UserFullInfo.Permission.VIP)
				MessageBox.Show("Created! (VIP)")
				textBox9.Clear()
				textBox8.Clear()
			Catch
				MessageBox.Show("Error making user")
			End Try
		End Sub

		Private Sub button7_Click_1(sender As Object, e As EventArgs)
			Try
                ' UserPartInfo(textBox11.Text, textBox10.Text, UserFullInfo.Permission.Admin)
				MessageBox.Show("Created! (ADMIN)")
				textBox11.Clear()
				textBox10.Clear()
			Catch
				MessageBox.Show("Error making user")
			End Try
		End Sub

		Private Sub button9_Click(sender As Object, e As EventArgs)
			Try
				New UserPartInfo(textBox15.Text, textBox14.Text, UserFullInfo.Permission.Pest)
				MessageBox.Show("Created! (PEST)")
				textBox15.Clear()
				textBox14.Clear()
			Catch
				MessageBox.Show("Error making user")
			End Try
		End Sub

		Private Sub button10_Click(sender As Object, e As EventArgs)
			Try
				New UserPartInfo(textBox17.Text, textBox16.Text, UserFullInfo.Permission.Troll)
				MessageBox.Show("Created! (TROLL)")
				textBox16.Clear()
				textBox17.Clear()
			Catch
				MessageBox.Show("Error making user")
			End Try
		End Sub

		Private Sub button8_Click(sender As Object, e As EventArgs)

		End Sub

		Private Sub button8_Click_1(sender As Object, e As EventArgs)
			AdminTools.disconnectUser(textBox12.Text, "YOU HAVE BEEN DELETED")
			Dim user = InlineAssignHelper(UserPartInfo.GetUserIfExists(textBox13.Text).Permissions, UserFullInfo.Permission.Deleted)
			AdminTools.msgAllOnlineStaff("User: " & textBox13.Text & " has been erased")


		End Sub
		Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
			target = value
			Return value
		End Function

	End Class
End Namespace