用vb 获取 端口8000 的数据 放到 text 里

来源：百度知道 编辑：UC知道 时间：2024/06/12 10:23:58
也就是 监听 端口8000 接收 数据,把得到的数据发在 text 里
请高手赐代码

添加一个text控件,一个winsock .复制下面的代码..(这个是TCP协议的)

Private Sub Form_Load()
With Winsock1
.Protocol = sckTCPProtocol
.LocalPort = 8000
.Listen
End With
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Text1.Text = s
End Sub