Pra qe vaya al text1 del server:
Código:
Private Sub command1_click
ws.SendData "txt1" & Text1.Text
End Sub
ws.SendData "txt1" & Text1.Text
End Sub
y para qe vaya al dos pues
Código:
Private Sub command2_click
ws.SendData "txt2" & Text1.Text
End Sub
ws.SendData "txt2" & Text1.Text
End Sub
Y al llegar datos al server mirar lo qe pasa:
Código:
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left (datos, 4) = "txt1" Then
Text1.Text = datos
End If
If Left (datos, 4) = "txt2" Then
Text2.Text = datos
End If
End Sub
Dim datos As String
ws.GetData datos
If Left (datos, 4) = "txt1" Then
Text1.Text = datos
End If
If Left (datos, 4) = "txt2" Then
Text2.Text = datos
End If
End Sub
Per lo qe yo qiero es recortarle la palabra txt1 o txt2 al ser recibido es decir si tu mandas por ejemplo la palabra "Snort", llega "txt1Snort" o "txt2Snort", evidentemente, pues lo qe yo qiero es qe solo llegue "Snort" sin la 'cabecera'
Saludosss