Public Function WinsockGet(pSock As Winsock, ByVal Data As String)
If pSock.State = sckConnected Then
pSock.GetData Data
DoEvents
WinsockGet = True
Dim Data
Dim strA 'As String
Dim strB As String
Dim lngX As Long
strA = Data
Do While parar = 0
If status = "Host" Then
strB = "changeteam"
lngX = InStr(strA, strB)
If Not lngX = "0" Then
Dim changeteamvalor
If Check1.Value = "1" Then
changeteamvalor = "1"
Else
changeteamvalor = "0"
End If
changeteamvalor = "changeT " & changeteamvalor
pSock.SendData (changeteamvalor)
Data = Mid$(strA, 1, lngX - 1) & Mid$(strA, lngX + 10, lngX)
Else
parar = 1
End If
End If
Loop
parar = 0
Else
WinsockGet = False
End If
End Function