杭州交通信息网小班太空泥作品图片:winsock问题 “连接由远程端重新设置”
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 18:04:51
Private Sub Command2_Click()
Winsock1.SendData Text1.Text
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Winsock1_Connect()
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Text2.Text = strData
End Sub
以上是一个 简单的双机通信代码，发送数据时提示“连接由远程端重新设置”
请问这是 什么问题？端口和IP都没有错
我用的市UTP协议……
另外问下如何判断2个软件是否在同时工作？
Winsock1.SendData Text1.Text
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Winsock1_Connect()
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Text2.Text = strData
End Sub
以上是一个 简单的双机通信代码，发送数据时提示“连接由远程端重新设置”
请问这是 什么问题？端口和IP都没有错
我用的市UTP协议……
另外问下如何判断2个软件是否在同时工作？
你的winsock怎么没有连接这一步就收发信息了？
首先要连接到对方：
winsock1.Connect RemoteHost,RemotePort