quote:


Private Sub Form_Load()

Winsock1.LocalPort = 2000

Winsock1.Listen '监听端口

End Sub

Private Sub Winsock1_Close()

Winsock1.Listen '监听端口

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then

Winsock1.Close

Winsock1.Accept requestID '接受连接请求

End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim recbyte() As Byte

ReDim recbyte(bytesTotal)

Winsock1.GetData recbyte '接收数据

Winsock1.SendData recbyte '把接收到的数据再发送出去

End Sub

---