设计Chat程序
1、以TCP设计Chat程序
Step 1：找出Domain name及IP address
在“我的电脑”中选择“控制面板”。Double click“网络”选项，选择“标识”，您将会发觉您的计算机名称、工作组名等信息。将它记录起来，我们稍后会用到。
2、Step 2：设计TCP Server程序
在File选项中选New Project建立一个新的工程，在屏幕上会看到许多选项，如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveXControl等，选Standard.EXE。
接着在Project下选择Property属性选项，在General选项下将ProjectName改为TCP-Server，并将Form名称及Caption更改为Server。在屏幕的Form上加入一个WinSock control，取名为Tcps；加入两个TextBox control(Outtext、Intext)，并在两个TextBox前加入两个label，分别将caption改为Outtext、Intext。
3、〈TextBox〉
Name
Outtext(输出文件)
Intext(输入文件)
〈Label〉
Caption
Outtext(输出文件)
Intext(输入文件)
4、在Form_Load()中加入以下程序代码，这个动作是设置好我们Local的传输端口，并到接收的状态：
Tcps.protocol=0-scktcp protocol
Tcps.LocalPort = 1002
Tcps.Listen
5、双击Tcps，在Tcps_ConnectionRequest(ByVal requestID As Long)中加入以下程序代码，这表示winsock接受了连接请求：
Tcps.Accept requestID
双击Outtext到Outtext_change()，加入以下程序代码，当Outtext内容改变后，文件就会自动送出：
6、Tcps.SendData Outtext.text
在Tcps_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox中。
Dim S As StrIng
Tcps.GetData S
InText.Text = S
这样我们就完成了Server端的设计。
7、tep 3：设计TCP Client程序
在File选项中选择New Project建立一个新的工程，在屏幕上看到许多选项，如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等。选Standard.EXE。接着在 Project下，选择Property属性选项，在General选项下，将Project Name改为TCP-Client，并将FORM名称及Caption更改为Client。
在屏幕的Form上加入一个WinSock control，取名为 Tcpc，将protocol property设置成 0-scktcp protocol，加入两个TextBox control(Outtext、Intext)，并在两个TextBox前加入两个Label，分别将其Caption改为Outtext、Intext。接着放入一个Button(button1)并将Caption 改为Connect。
(TextBox)
Name
Outtext(输出文件)
Intext(输入文件)
(Label)
Caption
Outtext(输出文件)
Intext(输入文件)
〈Button〉
Name Caption
Button1(执行建立session命令) Connect
在Form_Load()中加入以下程序代码，这个动作是设置好我们Remote所要连接的传输端口及其网络名称。我们要连接的计算机网络名称为DAVID：
Tcpc.RemoteHost ="David"
Tcpc.RemotePort=1002
双击Outtext到Outtext_change()加入以下程序代码，当Outtext内容改变后，文件会自动送出：
Tcpc.SendData Outtext.text
在Tcpc_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox 中。
Dim S As StrIng
Tcpc.GetData S
InText.Text = S
这样就完成了Client端的设计。
