ayuda porfavor (algo de socket)

[visualfree]

Hbaer lo que quiero hacer es enviar un mensaje lo envio de esta forma:

Private Sub Command1_Click()
Dim enviar As String
enviar = mensaje
ws.SendData destino & mensaje
End Sub


El destino es otra caja de texto en donde envio un  numero. y la otra envio el mensaje


lo recibo de esta forma:

Dim datos As String
Dim tripas As String
ws.GetData datos
tripas = Split(datos, "destino")
MsgBox (tripas(0))
recibir.Text = recibir.Text + datos + vbCrLf
End Sub

quiero que el mensaje tripas(0) solo sea el numero que introdujo al enviarlo no el numero mnas mensaje por ejmplo:
1rtrtrgfg sino solo "1" nose si alguien me podra ayudar con esto bueno cuidense saludos

[CeLaYa]

recuerda que split te separa por palabras lo que debes hacer es meterle un espacio al mensaje


ws.SendData destino & " " &  mensaje

[visualfree]

Y asi funcionara ? bueno a probar

[visualfree]

ws.SendData destino & " " & enviar <--me arroja error =( en esa linea xD

[<--v1c1ous-->]

Envio:

ws.SendData "00" & Mensaje

Data Arrival:

Dim Data1 as string
ws.getdata data
Data1 = Right$(data, Len(data) - 2)
Select Case Left$(data, 2)
    Case "00"
    Case "01"
    Case "02"
End Select

[sircid]

mira podrias enviar junto al paquete la longitud de los numeros que hay delante del texto(en este caso la longitud del numero es 36):

ws.senddata destino & mensaje & "36"

al recibirlo con la funcion right cojes los 2 caracteres del final y eso seria la longitud de la variable destino.

ws.getdata datos
leng = right(datos, 2)
msgbox mid(datos, 1, leng)

y te devolverá los numeros solos si lo haces bien.

PD: hacer esto no es programacion... es darle al coco.

[NYlOn]

Pones un caracter entre Destino y Mensaje. Algo asi:

Código [Seleccionar] Expandir


'Lo envias asi
WS.SendData destino & "*" & mensaje

'Y lo recibes asi
Tripas = Split(Datos, "*")
'Tripas(0) es el destino y Tripas(1) es el mensaje



Saludos.-