关于一端用VS2005，C#，一端用VB6.0作的网络通信的问题！

Question

(同发本论坛C#版块和VB“网络编程”版块) 
关于一端用VS2005，C#，一端用VB6.0作的网络通信的问题！ 
最近和朋友在搞一个小程序，就是实现局域网两端通信。朋友做的那端是server端，采用的开发环境是VS2005，C#，具体实现方法我不懂，因为我对C#是外行，但是他给我提供了源代码，稍候发在下面；我这端做的是client端，开发环境是VB6.0，实现方法是采用winsock控件，协议采用的是TCP/IP协议！（后面也有我VB做的源代码！） 现在出现的一个问题是：我的client端能连接上他，但是在通讯的时候，他发给我的信息，在任何情况下，我收不到。我发给他信息，只能收到第一条，以后的就收不到了！也就是说，或者他的程序重启，再连接，我发给他的信息，他能收到；或者我的程序重启，再连接，再发信息给他，他能收到。每次都是重启后第一条信息可以收到，不重启的话，以后的信心都收不到！ 两端源代码在后面！ 各位大侠，怎么回事啊？怎么解决呢？是我的这端出了问题，还是他那端出了问题？ 
我自己又用VB做了server端的程序，然后又用我的这个client端的程序连接，一切都正常啊！！郁闷了！我不懂c#! 
麻烦各位大侠找下问题所在，虽然我不懂C#，但是我可以把大家的建议发给我朋友看！ 谢谢了，辛苦你们了，大热天的！  
 
 

Answer 1

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
以下是server端的C#的代码（朋友发给我的）： 
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
using System; 
using System.Drawing; 
using System.Collections; 
using System.ComponentModel; 
using System.Windows.Forms; 
using System.Data; 
using System.Threading; 
using System.Net.Sockets; 
using System.IO; 
namespace Network 
{ 
/// <summary> 
/// Form1 的摘要说明。 
/// </summary> 
public class Form1 : System.Windows.Forms.Form 
{ 
private System.Windows.Forms.Label label1; 
private System.Windows.Forms.TextBox textBox1; 
private System.Windows.Forms.Label label2; 
private System.Windows.Forms.TextBox textBox2; 
private System.Windows.Forms.Button button1; 
private System.Windows.Forms.Label label3; 
private System.Windows.Forms.RichTextBox richTextBox1; 
private System.Windows.Forms.Label label4; 
private System.Windows.Forms.RichTextBox richTextBox2; 
    
//声明监听线程对象 
private Thread MyListenThread; 
//声明网络监听对象 
private TcpListener MyTcpListener; 
private System.Windows.Forms.RichTextBox richTextBox3; 
private System.Windows.Forms.Label label5; 
/// <summary> 
/// 必需的设计器变量。 
/// </summary> 
private System.ComponentModel.Container components = null; public Form1() 
{ 
// 
// Windows 窗体设计器支持所必需的 
// 
InitializeComponent(); // 
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码 
// 
} /// <summary> 
/// 清理所有正在使用的资源。 
/// </summary> 
protected override void Dispose( bool disposing ) 
{ 
if( disposing ) 
{ 
if (components != null) 
{ 
components.Dispose(); 
} 
} 
base.Dispose( disposing ); 
} #region Windows 窗体设计器生成的代码 
/// <summary> 
/// 设计器支持所需的方法 - 不要使用代码编辑器修改 
/// 此方法的内容。 
/// </summary>

Answer 2

private void InitializeComponent() 
{ 
this.label1 = new System.Windows.Forms.Label(); 
this.textBox1 = new System.Windows.Forms.TextBox(); 
this.label2 = new System.Windows.Forms.Label(); 
this.textBox2 = new System.Windows.Forms.TextBox(); 
this.button1 = new System.Windows.Forms.Button(); 
this.label3 = new System.Windows.Forms.Label(); 
this.richTextBox1 = new System.Windows.Forms.RichTextBox(); 
this.label4 = new System.Windows.Forms.Label(); 
this.richTextBox2 = new System.Windows.Forms.RichTextBox(); 
this.richTextBox3 = new System.Windows.Forms.RichTextBox(); 
this.label5 = new System.Windows.Forms.Label(); 
this.SuspendLayout(); 
// 
// label1 
// 
this.label1.Location = new System.Drawing.Point(8, 16); 
this.label1.Name = "label1"; 
this.label1.Size = new System.Drawing.Size(104, 16); 
this.label1.TabIndex = 0; 
this.label1.Text = "接收主机IP地址："; 
// 
// textBox1 
// 
this.textBox1.Location = new System.Drawing.Point(112, 8); 
this.textBox1.Name = "textBox1"; 
this.textBox1.Size = new System.Drawing.Size(96, 21); 
this.textBox1.TabIndex = 1; 
this.textBox1.Text = ""; 
// 
// label2 
// 
this.label2.Location = new System.Drawing.Point(216, 16); 
this.label2.Name = "label2"; 
this.label2.Size = new System.Drawing.Size(48, 16); 
this.label2.TabIndex = 2; 
this.label2.Text = "姓名："; 
// 
// textBox2//写姓名的文本框 
// 
this.textBox2.BackColor = System.Drawing.SystemColors.ActiveCaptionText; 
this.textBox2.Location = new System.Drawing.Point(264, 8); 
this.textBox2.Name = "textBox2"; 
this.textBox2.Size = new System.Drawing.Size(88, 21); 
this.textBox2.TabIndex = 3; 
this.textBox2.Text = ""; 
// 
// button1 
// 
this.button1.Location = new System.Drawing.Point(272, 32); 
this.button1.Name = "button1"; 
this.button1.TabIndex = 4; 
this.button1.Text = "发送"; 
this.button1.Click += new System.EventHandler(this.button1_Click); 
// 
// label3 
// 
this.label3.Location = new System.Drawing.Point(8, 40); 
this.label3.Name = "label3"; 
this.label3.Size = new System.Drawing.Size(128, 16); 
this.label3.TabIndex = 5; 
this.label3.Text = "将要发送的内容："; 
// 
// richTextBox1将要发送的内容的文本 
// 
this.richTextBox1.Location = new System.Drawing.Point(8, 56); 
this.richTextBox1.Name = "richTextBox1"; 
this.richTextBox1.Size = new System.Drawing.Size(344, 56); 
this.richTextBox1.TabIndex = 6; 
this.richTextBox1.Text = ""; 
// 
// label4 
// 
this.label4.Location = new System.Drawing.Point(176, 120); 
this.label4.Name = "label4"; 
this.label4.Size = new System.Drawing.Size(104, 16); 
this.label4.TabIndex = 7; 
this.label4.Text = "已经收到的内容："; 
// 
            // richTextBox2已经收到的内容的文本 
// 
this.richTextBox2.Location = new System.Drawing.Point(176, 136); 
this.richTextBox2.Name = "richTextBox2"; 
this.richTextBox2.Size = new System.Drawing.Size(176, 136); 
this.richTextBox2.TabIndex = 8; 
this.richTextBox2.Text = ""; 
// 
            // richTextBox3已经发送的内容的文本 
// 
this.richTextBox3.Location = new System.Drawing.Point(8, 136); 
this.richTextBox3.Name = "richTextBox3"; 
this.richTextBox3.Size = new System.Drawing.Size(160, 136); 
this.richTextBox3.TabIndex = 10; 
this.richTextBox3.Text = ""; 
// 
// label5 
// 
this.label5.Location = new System.Drawing.Point(8, 120); 
this.label5.Name = "label5"; 
this.label5.Size = new System.Drawing.Size(112, 16); 
this.label5.TabIndex = 9; 
this.label5.Text = "已经发送的内容："; 
// 
// Form1 
// 
this.AutoScaleBaseSize = new System.Drawing.Size(6, 14); 
this.ClientSize = new System.Drawing.Size(360, 278); 
this.Controls.Add(this.richTextBox3); 
this.Controls.Add(this.label5); 
this.Controls.Add(this.richTextBox2); 
this.Controls.Add(this.label4); 
this.Controls.Add(this.richTextBox1); 
this.Controls.Add(this.label3); 
this.Controls.Add(this.button1); 
this.Controls.Add(this.textBox2); 
this.Controls.Add(this.label2); 
this.Controls.Add(this.textBox1); 
this.Controls.Add(this.label1); 
this.MaximizeBox = false; 
this.Name = "Form1"; 
this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen; 
this.Text = "演示点对点的聊天"; 
this.Load += new System.EventHandler(this.Form1_Load); 
this.Closed += new System.EventHandler(this.Form1_Closed); 
this.ResumeLayout(false); } 
#endregion /// <summary> 
/// 应用程序的主入口点。 
/// </summary> 
[STAThread] 
static void Main() 
{ 
Application.Run(new Form1()); 
} 
private void StartListen() 
{ 
MyTcpListener=new TcpListener(888); 
//开始监听 
MyTcpListener.Start();              
while(true) 
{//获取TcpClient 
TcpClient MyTcpClient=MyTcpListener.AcceptTcpClient(); 
NetworkStream MyStream=MyTcpClient.GetStream(); 
byte[] MyBytes = new byte[1024]; 
int MyBytesRead=MyStream.Read(MyBytes,0,MyBytes.Length); 
string MyMessage=System.Text.Encoding.Default.GetString                                                  (MyBytes,0,MyBytesRead); 
this.richTextBox2.Text+=MyMessage; 
} 
} 
private void button1_Click(object sender, System.EventArgs e) 
{//发送聊天内容 
if                    (this.textBox1.Text.Length <1 ¦ ¦this.textBox2.Text.Length <1 ¦ ¦this.richTextBox1.Text.Length <1) 
return; 
try 
{ 
string MyMessage= this.textBox2.Text+":"+this.richTextBox1.Text+"\n"; 
//根据目标计算机地址建立连接 
TcpClient MyTcpClient = new TcpClient(this.textBox1.Text, 888); 
//获得用于网络访问的数据流 
NetworkStream MyTcpStream =MyTcpClient.GetStream(); 
StreamWriter MyStream = new StreamWriter(MyTcpStream); 
//将字符串写入流 
MyStream.Write(MyMessage); 
//将缓冲数据写入基础流 
MyStream.Flush(); 
//关闭网络流 
MyStream.Close(); 
MyTcpClient.Close(); 
this.richTextBox3.AppendText(this.richTextBox1.Text+"\n"); 
this.richTextBox1.Clear(); 
} 
catch(Exception Err) 
{ 
  MessageBox.Show(Err.Message,"信息提                                            示",MessageBoxButtons.OK,MessageBoxIcon.Information); 
} 
} 
private void Form1_Load(object sender, System.EventArgs e) 
{//开始监听 
//创建监听线程 
this.MyListenThread= new Thread(new ThreadStart(StartListen)); 
//启动线程 
this.MyListenThread.Start(); 
} private void Form1_Closed(object sender, System.EventArgs e) 
{//关闭SOCKET 
try 
{ 
if (this.MyTcpListener!=null) 
{//关闭监听器 
this.MyTcpListener.Stop(); 
} 
if (this.MyListenThread!=null) 
{ //如果线程还处于运行状态就关闭它 
if (this.MyListenThread.ThreadState==ThreadState.Running) 
{ 
this.MyListenThread.Abort(); 
} 
} 
} 
catch(Exception Err) 
{ 
  MessageBox.Show(Err.Message,"信息提示",MessageBoxButtons.OK,MessageBoxIcon.Information); 
} 
} 
} 
}

Answer 3

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
以下是我的client端的VB的程序： 
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
Private Sub ClientSock_DataArrival(ByVal bytesTotal As Long)  '收到对方发过来的数据时，触发该事件 
  Dim strData As String 
  
  ClientSock.GetData strData 
  Text3.Text = strData    '显示收到的数据strData到以text上 End Sub 
Private Sub ConnetCmd_Click()  '连接到服务端 
  
  ClientSock.Connect Text1.Text, CLng(Text2.Text)   
End Sub 
Private Sub SendCmd_Click()    '发送消息到服务端，具体信息是：oh my god！ 
  Dim str As String 
  If ClientSock.State <> sckConnected Then  '如果没有连接上，就不发送 
    MsgBox "未连接，不能发送信息！" 
    Exit Sub 
  End If 
  ClientSock.SendData "oh my god!" 
End Sub 
Private Sub Timer1_Timer()    'Timer控件，随时显示连接状态 
  
  Select Case ClientSock.State 
  
    Case 6 
        Label5.Caption = "正在连接...." 
    Case 7 
        Label5.Caption = "连接成功！" 
        ConnetCmd.Enabled = False 
        Label5.ForeColor = &HFF00& 
    Case 9 
        Label5.Caption = "连接错误，请检查后重新连接！" 
        ClientSock.Close 
        ConnetCmd.Enabled = True 
    Case Else 
        Label5.Caption = "发生错误，请检查后重新连接！" 
        ClientSock.Close 
        ConnetCmd.Enabled = True 
  End Select 
  
End Sub