Hi Friends, My Two Computer is Connected With Peer to Peer netwok . when it come to the Data_Arrival Event.ws(Index).GetData strData it says Wrong protocol or Connection state for the requested transaction or request .
![Name: DataArrival_Issue.jpg
Views: 2
Size: 67.5 KB]()
Code:
Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Static strBuffer As String
Dim strData As String
Dim strMsg As String
Dim binComplete As Boolean
Dim intPos As Integer
ws(Index).GetData strData
strBuffer = strBuffer & strData
Do
intPos = InStr(strBuffer, ETX)
If intPos > 0 Then
strMsg = Mid$(strBuffer, 1, intPos - 1)
txtReceived.Text = txtReceived.Text & strMsg
If intPos < Len(strBuffer) Then
strBuffer = Mid$(strBuffer, intPos + 1)
Else
strBuffer = vbNullString
binComplete = True
End If
Else
binComplete = True
End If
Loop Until binComplete
End Sub