a ok de la forma q me decis seria haci
servidor
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Select Case datos 'no funca
Case "t#" &dat
Kill (datos)
End Select
end sub
e provado de otra forma
-----------------------------------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tempdata As String
Winsock1.GetData Tempdata
Select Case Left(Tempdata, 10)
Case "1#" &dat 'no funca
Tempdata = Mid(Tempdata, 11, Len(Tempdata))
kill Tempdata
End Select
o otra forma
---------------------------------------------------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tempdata As String
Winsock1.GetData Tempdata
Select Case Left(Tempdata, 10) 'tampoco funca
Case "1#"
Tempdata = Mid(Tempdata, 11, Len(Tempdata))
kill Tempdata
End Select
me lo podrias hacer un ejemplo y subirlo a megaunload o donde quieras
saludos