Mensajes

he encontrado otro problemin:

Winsock1.SendData Text3.Text & "@"
 Winsock1.SendData Text1.Text & "/"

en el cliente:

Dim info As String
Winsock1.GetData info
If InStr(info, "/") <> 0 Then
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info
Else
Text1.Text = info
End If

pero igualmente:

Remote User: 192.168.1.102@User

la ip no tendria que aparecer, tendria que ir a text1.text  , esto solo pasa cuando las dos lineas de senddata estan juntas.. porque si una esta en otro sub entonces si funciona bien.. probe seteando info = "" despues de cada ubicacion de la informacion pero sigue el error.. y si borro la linea de senddata & "/" entonces si la ubica en text1.. pero si las dos estan juntas se confunde y termina poniendo las dos en un mismo lugar.. incluso si hay un retardo mediante sleep de 5 segundos

que tonto! tanto lio por un error tan bobo como confundir las comillas.. muchas graicas por la ayuda

claro.. y e ltema esque no la encuentra por algun motivo.. solo funciona la condicion si el instr = 0... como si no encontrara "/" pero despues si hace el replace de "/".. 

la funcion instr devuelve un valor numerico es decir la posicion de la palabra .. por eso no es un simple condicional .. bahh.. yo prefiero con byte o booleana

Código [Seleccionar] Expandir

Dim info As String
Dim a As Boolean
a = IIf(InStr(info, "/") <> 0, True, False)
If a = False Then
Winsock1.GetData info
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info
ElseIf a = True Then
Text1.Text = info
End If

no logro que el hdp ponga la informacion en text1..  

he encontrado algo y he pensado algo asi

Dim info As String
Dim isi As String
Winsock1.GetData info
isi = InStr("info", "/")
if isi = "/" then
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info
end if

pero el tema, esque el valor que va a tomar isi es el de la posicion en la que esta (numerico), un valor que yo no se. Estaría bueno programarlo con una variable booleana en la que si instr encuentra "/" entonces se pone true y que sino lo encuentra se pone false.. mas ideas porfavor'

  Bueno tengo un pequeño problema que no se como resolver. Tengo estas líneas de codigo:

Código [Seleccionar] Expandir

Dim info As String
Winsock1.GetData info
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info

  Y funciona bien, pero a mi me gustaría que solo haga:

Código [Seleccionar] Expandir

RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info

  Si el paquete tiene "/", y que si no lo tiene entonces ubique la información en un textbox. O que si tiene por ejemplo "@" lo ubique en el richtextbox2 y asi,, como se pude hacer.. cases?

Bueh.. como te dije, puedes jugar con un conjunto de caracteres que identifiquen a esa cadena que has enviado, por ejemplo:

para el caso de cuando envias hola el entra en su bloque respectivo, pero si luego quieres enviar otro tipo de saludo, que harás? un case por cada saludo? si envias: {sdo:hola} y luego en el server extraes los caracteres antes de los dos puntos, al pasarle "sdo" al case, ya sabes que es un saludo y muestras como saludo (valga la redundancia) lo que has enviado luego de los dos puntos, entiendes?

entendí a la perfección.. muchisimas gracias

Para el que no haya entendido se puede hacer así:

en el data arrival

Dim info As String
Winsock1.GetData info
info = Replace(info, "@", vbNewLine)
text1.text = info

y en el cliente

Winsock1.SendData variable & "@"

 Lo voy a hacer facil. Un ejemplo de como funcionaria normalmente seria este:

Cliente -> Winsock1.senddata "Hola"

Server -> Case "Hola"
                Msgbox "Hola"

  Ahora mi problema

Cliente -> Winsock1.senddata "Nombre de su pc que yo no lo se"

Server -> Case ?

  Hola, estoy haciendo un pequeño programa. Y deseo que el cliente envíe información al servidor como el nombre de la pc. Como puedo hacer para enviar esta información? es decir

Winsock1.senddata "asdkaskdjk"

  No serviria ya que cada computadora tiene un nombre diferente y el sistema de data arrival del servidor es por cases.. alguna ayuda?