using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.IO;
using System.Net.Sockets;
using System.Threading;
using System.Net;
using System.Text;

namespace test_socket
{
	/// <summary>
	/// Form1 的摘要說明。
	/// </summary>
	public class Form1 : System.Windows.Forms.Form
	{
		private System.Windows.Forms.ListBox lbClients;
		private TcpListener listener;
		private int listenport = 5555;
		private Socket clientsocket;
		private Thread clientservice;
		private Thread th;
		ArrayList clients = new ArrayList();
		/// <summary>
		/// 必需的設計器變量。
		/// </summary>
		private System.ComponentModel.Container components = null;

		public Form1()
		{
			//
			// Windows 窗體設計器支持所必需的
			//
			InitializeComponent();
			th = new Thread(new ThreadStart(StartListening));//新建一個用于監聽的線程
　　　      th.Start();//打開新線程
			//
			// TODO: 在 InitializeComponent 調用后添加任何構造函數代碼
			//
		}

		/// <summary>
		/// 清理所有正在使用的資源。
		/// </summary>
		protected override void Dispose( bool disposing )
		{
			if( disposing )
			{
				if (components != null) 
				{
					components.Dispose();
				}
			}
			base.Dispose( disposing );
		}

		#region Windows 窗體設計器生成的代碼
		/// <summary>
		/// 設計器支持所需的方法 - 不要使用代碼編輯器修改
		/// 此方法的內容。
		/// </summary>
		private void InitializeComponent()
		{
			this.lbClients = new System.Windows.Forms.ListBox();
			this.SuspendLayout();
			// 
			// lbClients
			// 
			this.lbClients.ItemHeight = 12;
			this.lbClients.Location = new System.Drawing.Point(8, 8);
			this.lbClients.Name = "lbClients";
			this.lbClients.Size = new System.Drawing.Size(480, 364);
			this.lbClients.TabIndex = 0;
			// 
			// Form1
			// 
			this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
			this.ClientSize = new System.Drawing.Size(496, 389);
			this.Controls.Add(this.lbClients);
			this.Name = "Form1";
			this.Text = "Form1";
			this.ResumeLayout(false);

		}
		#endregion

		/// <summary>
		/// 應用程序的主入口點。
		/// </summary>
		[STAThread]
		static void Main() 
		{
			Application.Run(new Form1());
		}
		
		private void StartListening() 
		{ 
　          listener = new TcpListener(listenport); 
　          listener.Start(); 
　          while (true) 
　          { 
　　        Socket s = listener.AcceptSocket(); 
　　　      clientsocket = s; 
　　　      clientservice = new Thread(new ThreadStart(ServiceClient)); 
　　　      clientservice.Start(); 
		   }
		}  
		private void ServiceClient() 
		{ 
			Socket client = clientsocket; 
			bool keepalive = true; 


			while (keepalive) 
			{ 
				Byte[] buffer = new Byte[2048]; 
				client.Receive(buffer); 
				string clientcommand = System.Text.Encoding.Default.GetString(buffer); 


				string[] tokens = clientcommand.Split(new Char[]{'|'}); 


				if (tokens[0] == "CONN") 
				{  
					for(int n=0; n<clients.Count;n++)
					{ 
						Client cl = (Client)clients[n]; 
						SendToClient(cl, "JOIN|" + tokens[1]); 
					} 
					EndPoint ep = client.RemoteEndPoint; 
					Client c = new Client(tokens[1], ep, clientservice, client); 
					clients.Add(c); 
					string message = "LIST|" + GetChatterList() +"\r\n"; 
					SendToClient(c, message); 
					lbClients.Items.Add(c);
				} 
				if (tokens[0] == "CHAT") 
				{ 
					for(int n=0; n<clients.Count;n++)
					{ 
						Client cl = (Client)clients[n]; 
						SendToClient(cl, clientcommand); 
					} 
				} 
				if (tokens[0] == "PRIV") 
				{ 
					string destclient = tokens[3]; 
					for(int n=0; n<clients.Count;n++)
					{ 
						Client cl = (Client)clients[n]; 
						if(cl.Name.CompareTo(tokens[3]) == 0) 
							SendToClient(cl, clientcommand); 
						if(cl.Name.CompareTo(tokens[1]) == 0) 
							SendToClient(cl, clientcommand); 
					} 
				} 
				if (tokens[0] == "GONE") 
				{ 
					int remove = 0; 
					bool found = false; 
					int c = clients.Count; 
					for(int n=0; n<clients.Count;n++)
					{ 
						Client cl = (Client)clients[n]; 
						SendToClient(cl, clientcommand); 
						if(cl.Name.CompareTo(tokens[1]) == 0) 
						{ 
							remove = n; 
							found = true; 
							lbClients.Items.Remove(cl); 
						} 
					} 
					if(found) 
					clients.RemoveAt(remove); 
					client.Close(); 
					keepalive = false; 
				} 
			} 
		}  
		private void SendToClient(Client client,string str)
		{
			byte[] msg = Encoding.Default.GetBytes(str);
            client.Sock.Send(msg);
		}
		private string GetChatterList()
		{
			string u_name = "";
			for(int n=0; n<clients.Count;n++)
			{ 
				
				Client cl = (Client)clients[n]; 
				u_name=u_name+cl.Name.ToString()+"|";
			} 
			return u_name;
		}
	}
	public class Client 
	{ 
		private Thread clthread; 
		private EndPoint endpoint; 
		private string name; 
		private Socket sock; 

		public Client(string _name, EndPoint _endpoint, Thread _thread, Socket _sock) 
		{ 
			// TODO: 在此處添加構造函數邏輯 
			clthread = _thread; 
			endpoint = _endpoint; 
			name = _name; 
			sock = _sock; 
		} 

		public override string ToString() 
		{ 
			return endpoint.ToString()+ " : " + name; 
		} 

		public Thread CLThread 
		{ 
			get{return clthread;} 
			set{clthread = value;} 
		} 

		public EndPoint Host 
		{ 
			get{return endpoint;} 
			set{endpoint = value;} 
		} 

		public string Name 
		{ 
			get{return name;} 
			set{name = value;} 
		} 

		public Socket Sock 
		{ 
			get{return sock;} 
			set{sock = value;} 
		} 
	} 
}