关于一端用VS2005C#，一端用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

Answer 4

是他的server 端监听有问题。
他不断的建立新的接收连接（如果有新的连接请求），每次建立连接后，只接收一次数据

Answer 5

但是她用的开发环境是c#啊，我只是用VB做server端在自己做测试！！！！
另外再请教下：用C#做网络通信，是不是必须两端都要建server，这样通信才会正常！
现在的情况是：我同事用C#做server，我用VB做client，我发消息给她，经过调试，已经正常了！但是她发给我的信息，我没法收到。那是不是我这边还要用VB建个server，她再来连接我，然后用这个连接她来发消息给我，就会正常啊？？？我用VB做测试的时候，只需要一端建立server，一端建立client，然后连接上，然后互发信息，一切都没有问题！另外，我原来稍微看了一点delphi的书，看到网络通信时，里面好像说的是，通信两端都必须同时建立server、client，这样互相通信才会正常。
（用的winsock，协议为TCP/IP）
所以我想问问，在用C#做网络通信的时候，是不是也必须双方都建立server和client，这样才会相互通信正常啊？？？

Answer 6

不需要两端建server, 只需一个，建立连接后，就像建立了一个海底隧道，像双向通车一样可以双向通信。
他水平不到家，不会发信息，所以你收不到。不信的话，你让他发给自己，看他能收到不？