用vb编winsock传数据的程序,只能发送不能接受
A跟B建立连接以后,我发一个标识符,B应该会返回一串字符。我用网络调试助手测试的时候都是正常的,但是用我编的vb程序调试的时候B确实返回了数据,但是A却接收不到,请问这是...
A跟B建立连接以后,我发一个标识符,B应该会返回一串字符。我用网络调试助手测试的时候都是正常的,但是用我编的vb程序调试的时候B确实返回了数据,但是A却接收不到,请问这是问什么?
A那边的vb程序如下:
Private Sub Command1_Click() '建立连接
Winsock1.Connect "169.254.4.10", 5025
End Sub
Private Sub Command2_Click() '发送数据
Winsock1.SendData Text1
End Sub
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Winsock1.State
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接收数据
Label2.Caption = 123 '判断有没有接收到数据
Dim strdata As String
Winsock1.GetData strdata
Text2 = strdata
End Sub 展开
A那边的vb程序如下:
Private Sub Command1_Click() '建立连接
Winsock1.Connect "169.254.4.10", 5025
End Sub
Private Sub Command2_Click() '发送数据
Winsock1.SendData Text1
End Sub
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Winsock1.State
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接收数据
Label2.Caption = 123 '判断有没有接收到数据
Dim strdata As String
Winsock1.GetData strdata
Text2 = strdata
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询