Tengo una duda con DataArrival del Winsock

snakeboy8 · 14 Enero 2012, 22:14 PM

estoy programando un cliente de chat pero a la hora de conectar y recibir los mensajes en el DataArrival solo me sale el ultimo mensaje enviado yo uso esto

If InStr(Ra, "<div class=" & Chr(34) & "color" & Chr(34) & ">") <> 0 Then
TmIni = InStr(Ra, "<div class=" & Chr(34) & "color" & Chr(34) & ">") + 19
TmFin = InStr(TmIni, Ra, " ") - TmIni
Mensajes = Mid(Ra, TmIni, TmFin)

Call DHTMLEdit1.DOM.parentWindow.execScript("document.writeln('" & Limpiar(Decode_UTF8(Mensajes)) & " " & "');", "javascript"): Call DHTMLEdit1.DOM.parentWindow.Scroll(0, 1000000)
end if

esto es obvio que solo me va a mostrar un solo mensaje pero como hago para que me muestre los otros? ya intente con 'for i = 1 to 10' pero me sale el mismo mensaje lo que no se es como hacer para que se siga y que recoja el siguiente mensaje y no me salga el mismo gracias.

Yoghurt · 15 Enero 2012, 21:57 PM

como llegan los datos al Cliente? me refiero al contenido de DataArrival. Al parecer llega en forma de html, ilustranos para así ayudarte a obtener los datos.

snakeboy8 · 29 Enero 2012, 06:01 AM

el codigo vb que pongo me funciona bien para el primero y ultimo mensaje enviado

snakeboy8 · 29 Enero 2012, 06:07 AM

Cita de: AbrahamAraon en 15 Enero 2012, 21:57 PM
como llegan los datos al Cliente? me refiero al contenido de DataArrival. Al parecer llega en forma de html, ilustranos para así ayudarte a obtener los datos.

me llega en formato html el codigo es este

<div class="color"><a href="http://waplog.com/profile/mini/ztev05?returnlink=chat%2Fchannel%2FMusic%20V">ztev05</a> (5 min(e)s hace) : 19 ii tu? shirley </div><div class="color"><a href="http://waplog.com/profile/mini/fraan9?returnlink=chat%2Fchannel%2FMusic%20V">fraan9</a> (5 min(e)s hace) : y si no quiero q me vay a ser </div><div class="color"><a href="http://waplog.com/profile/mini/lhetii?returnlink=chat%2Fchannel%2FMusic%20V">lhetii</a> (5 min(e)s hace) : Uh jua me jui a la balada :b </div><div class="color"><a href="http://waplog.com/profile/mini/suicida?returnlink=chat%2Fchannel%2FMusic%20V">suicida</a> (4 min(e)s hace) : Algyen me urge balla a mobies me quiero siber kasar algyen k sea testygo o padre urgente porfavor </div><div class="color"><a href="http://waplog.com/profile/mini/shirleyvacaroca?returnlink=chat%2Fchannel%2FMusic%20V">shirleyvacaroca</a> (4 min(e)s hace) : 18 Voy a kumplir ztv05 </div><div class="color"><a href="http://waplog.com/profile/mini/ztev05?returnlink=chat%2Fchannel%2FMusic%20V">ztev05</a> (4 min(e)s hace) : lhetti he xateado cntigo? </div><div class="color"><a href="http://waplog.com/profile/mini/suicida?returnlink=chat%2Fchannel%2FMusic%20V">suicida</a> (3 min(e)s hace) : Kien sea porfas me urge alla estoy ballan porfas k kiera ser el padre y testygo estoy en moviesko </div><div class="color"><a href="http://waplog.com/profile/mini/shirleyvacaroca?returnlink=chat%2Fchannel%2FMusic%20V">shirleyvacaroca</a> (3 min(e)s hace) : Puej si te tüviera enfrente te partiria la kara hijo d tapu fraan9 </div><div class="color"><a href="http://waplog.com/profile/mini/Enrique01?returnlink=chat%2Fchannel%2FMusic%20V">Enrique01</a> (2 min(e)s hace) : Mmm hola preciosas </div><div class="color"><a href="http://waplog.com/profile/mini/fraan9?returnlink=chat%2Fchannel%2FMusic%20V">fraan9</a> (2 min(e)s hace) : pues si no lo sabias mate a una niña x pegarme </div>
</div>

yo quiero mostrar los 10 mensajes pero solo me muestra uno o aveces 2 cada que hago la conexion con el winsock si me puedes ayudar te lo agradeceria

DarkMatrix · 29 Enero 2012, 18:09 PM

Mira yo haria lo siguiente, he podido ver que cada linea de chat se separa con un , entonces sabiendo esto primero reemplazo los con saltos de linea y luego limpio todo el codigo html. Con eso ya tienes todas las lineas del chat.

Aqui tienes una funcion que hizo Psyke para limpiar el html: http://foro.elhacker.net/programacion_visual_basic/srcfuncion_cleanhtmlcode_by_psyke1-t295866.0.html

snakeboy8 · 30 Enero 2012, 01:31 AM

ha gracias de echo con el codigo vb que pongo mas arriba puedo obtener los 10 mensajes de un jalon pero yo lo que queria hacer es obtener uno por uno de echo se que eso es posible por que lo he visto en el codigo de otros clientes de chat pero la verdad lo hacen de una forma muy complicada y no lo logro entender muy bien entonces dime si obtengo los 10 mensajes y los separo con un salto de linea podre obtener mensaje por mensaje modificando el codigo vb6?

DarkMatrix · 30 Enero 2012, 03:39 AM

Si, si podras.

snakeboy8 · 30 Enero 2012, 05:32 AM

ok lo voy a intentar muchas gracias por la ayuda