C#基于tcp的聊天程序 源代码

自制的局域网基于tcp的聊天程序，包括server、client两端，给的是源代码，希望给刚刚学的孩子们一定参考，别像我们做的时候，调半天都调不出来。

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

namespace _10903090235_ZX_client
{
    public partial class Form1 : Form
    {

        public bool appRun = true;
        private myClient mcl;
        //private UdpClient udpc = null;

        public Form1（）
        {
            InitializeComponent（）;
        }

        public void AddMessage（object sender AddMessageEventArgs e）
        {
            Control.CheckForIllegalCrossThreadCalls = false;
            rtebRecive.Text += e.mess;
            toolStripStatusLabel1.Text = “聊天中...“;
            //rtebRecive.Select（rtebRecive.TextLength - e.mess.Length + 1 e.mess.Length）;
            //rtebRecive.SelectionColor = Color.Red;//着色
        }


        private void 启动服务器QToolStripMenuItem_Click（object sender EventArgs e）
        {
            if （tebIP.Text == ““）
            {
                MessageBox.Show（“请输入目标主机“）;
            }
            else if （mcl == null）
            {
                mcl = new myClient（tebIP.Text.ToString（））;
                mcl.start（）;
                mcl.OnAddMessage += new EventHandler（this.AddMessage）;
            }
        }

        private void 关闭服务器ToolStripMenuItem_Click（object sender EventArgs e）
        {
            try
            {
                mcl.stop（）;
                mcl = null;
                toolStripStatusLabel1.Text = “已断开连接“;
            }
            catch （NullReferenceException） { ;}
        }

        private void 退出XToolStripMenuItem_Click（object sender EventArgs e）
        {
            if （mcl != null）
            {
                mcl.stop（）;
            }
            mcl = null;
            Close（）;
        }

        private void btnSend_Click（object sender EventArgs e）
        {
            if （mcl != null）
            {
                if （rtebSend.Text == ““）
                {
                    MessageBox.Show（“不能发送空内容“）;
                }
                else
                {
                    mcl.sender（rtebSend.Text.ToString（））;
                    rtebSend.Clear（）;
                }
            }
        }

        private void button1_Click（object sender EventArgs e）
        {
            if （mcl != null）
            {
                mcl.stop（）;
            }
            mcl = null;
            Close（）;
        }

        private void Form1_FormClosing（object sender FormClosingEventArgs e）
        {
            if （mcl != null）
            {
                mcl.stop（）;
            }
            mcl = null;
        }

        private void button2_Click（object sender EventArgs e）
        {
            SaveFileDialog sf = new SaveFileDialog（）;
            sf.Filter = “txt文件|*.txt|所有文

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-05-01 23:03  局域网聊天\
     目录           0  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\
     目录           0  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\
     文件         953  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client.sln
     文件       16896  2012-05-01 23:09  局域网聊天\10903090235_ZX_client\10903090235_ZX_client.suo
     文件        3828  2012-05-01 21:39  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\10903090235_ZX_client.csproj
     目录           0  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\bin\
     目录           0  2012-05-01 22:38  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\bin\Debug\
     文件       16384  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\bin\Debug\10903090235_ZX_client.exe
     文件       36352  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\bin\Debug\10903090235_ZX_client.pdb
     文件       14328  2012-05-01 23:09  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\bin\Debug\10903090235_ZX_client.vshost.exe
     文件         490  2009-06-11 05:14  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\bin\Debug\10903090235_ZX_client.vshost.exe.manifest
     文件        4137  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Form1.cs
     文件       12685  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Form1.Designer.cs
     文件        6409  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Form1.resx
     文件        4891  2012-05-01 22:44  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\myClient.cs
     目录           0  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\
     目录           0  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\
     文件        1546  2012-05-01 23:09  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\10903090235_ZX_client.csproj.FileListAbsolute.txt
     文件         847  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\10903090235_ZX_client.csproj.GenerateResource.Cache
     文件       16384  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\10903090235_ZX_client.exe
     文件       36352  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\10903090235_ZX_client.pdb
     目录           0  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\TempPE\
     文件         180  2012-05-01 22:54  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\_10903090235_ZX_client.Form1.resources
     文件         180  2012-05-01 21:39  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\obj\Debug\_10903090235_ZX_client.Properties.Resources.resources
     文件         503  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Program.cs
     目录           0  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Properties\
     文件        1374  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Properties\AssemblyInfo.cs
     文件        2894  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Properties\Resources.Designer.cs
     文件        5612  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Properties\Resources.resx
     文件        1107  2012-05-01 21:30  局域网聊天\10903090235_ZX_client\10903090235_ZX_client\Properties\Settings.Designer.cs
............此处省略32个文件信息