Título: ayuda porfavor (algo de socket) Publicado por: visualfree en 10 Octubre 2006, 22:14 pm 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 Título: Re: ayuda porfavor (algo de socket) Publicado por: CeLaYa en 10 Octubre 2006, 23:44 pm recuerda que split te separa por palabras lo que debes hacer es meterle un espacio al mensaje
ws.SendData destino & " " & mensaje Título: Re: ayuda porfavor (algo de socket) Publicado por: visualfree en 10 Octubre 2006, 23:50 pm Y asi funcionara ? bueno a probar
Título: Re: ayuda porfavor (algo de socket) Publicado por: visualfree en 10 Octubre 2006, 23:55 pm ws.SendData destino & " " & enviar <--me arroja error =( en esa linea xD
Título: Re: ayuda porfavor (algo de socket) Publicado por: <--v1c1ous--> en 11 Octubre 2006, 04:49 am Envio:
Citar ws.SendData "00" & Mensaje Data Arrival: Citar 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 Título: Re: ayuda porfavor (algo de socket) Publicado por: sircid en 11 Octubre 2006, 19:00 pm 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. Título: Re: ayuda porfavor (algo de socket) Publicado por: NYlOn en 12 Octubre 2006, 00:50 am Pones un caracter entre Destino y Mensaje. Algo asi:
Código: 'Lo envias asi Saludos.- |