你可能是一个高手，你能不能教教我啊！本人会感谢你的！！！

　          Winsock编程框架
     在TCP应用中，为了建立一个网络连接实例（Instance）的服务器端，只需设置本地服

务端口号，然后服务器调用方法Listen进入阻塞状态，等待来自客户的连接请求。与此对

应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称（IP地址或网络代号），

还应设置服务器所监听的相应服务的端口号（RemotePort），如FTP服务在21号端口，HTTP

在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请

求时，事件ConnectionRequest将被触发。如服务器愿意提供服务，则可调用Accept方法

接受连接。


　　一旦连接建立，两端均可使用SendData或GetData进行数据的发送或接收。事件

DataArrival将在另一端数据准备就绪时被触发。


　　UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传

输。因此，一个UDP应用可以同时担任服务器或客户的角色。


　　以下程序代码为Visual Basic Windows Sockets编程的基本框架。


　　 注释：服务器方


　　 Private Sub Command1.Click()


　　 注释：设置本地服务端口号


　　 Winsock1.localport=2048


　　


注释：服务器进入监听状态


　　 Winsock1.listen


　　 End Sub




　　Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)


　　注释：收到客户连接请求


　　注释：检查Socket状态


　　If Winsock1.State <> sckClosed Then Winsock1.Close


　　注释：接受客户请求


　　Winsock1.Accept requestID


　　End Sub


　　


　　 Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)


　　 注释：对方数据已准备好


　　 注释：可用GetData()/SendData()接收/发送数据


　　 注释：处理客户数据


　　 ……


　　 End Sub


　　


　　 Private Sub Form_Unload(Cancel As Integer)


　　 Winsock1.Close


　　 End Sub


　　


　　 注释：客户方


　　 Private Sub Command1.Click()


　　 注释：设置服务器网络名


　　 Winsock1.RemoteHost=“193.168.1.40”


　　


注释：设置服务器相应服务端口号


Winsock1.RemotePort=2048


　　


　　注释：向服务器发出连接请求


　　Winsock1.Connect


　　End Sub


　　


　　Private Sub Winsock1_Connect()


　　注释：服务器响应连接


　　注释：可以进行GetData()/SendData()进行数据传输


　　……


　　End Sub


　　


　　Private Sub Form1.Unload()


　　 Winsock1.Close


　　End Sub


　　


　　该段程序演示了用Visual Basic建立TCP连接的基本过程。因本文重在讲解Sockets

编程，故文中未涉及VB自己封装的故障处理函数Winsock1.Erroe(),读者可自行编制。以

上程序段可作为一般TCP应用的基本框架加以扩展使用。

头昏

高手