在VB中如何使用 Winsock 控件

'然后调用 Listen 方法。

tcpServer.LocalPort = 1001

tcpServer.Listen

End Sub

'检查控件的 State 属性是否为关闭的。

'如果不是，

'在接受新的连接之前先关闭此连接。

If tcpServer.State <> sckClosed Then _

tcpServer.Close

'接受具有 requestID 参数的'连接。

tcpServer.Accept requestID

End Sub

Private Sub txtSend_Change()

'名为 txtSend 的 TextBox 控件中

'包含了要发送的数据。当用户往文本框中

'键入数据时，使用 SendData 方法