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, "</span><br />") - TmIni
Mensajes = Mid(Ra, TmIni, TmFin)
Call DHTMLEdit1.DOM.parentWindow.execScript("document.writeln('" & Limpiar(Decode_UTF8(Mensajes)) & "</font></span><br>" & "');", "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.
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.
el codigo vb que pongo me funciona bien para el primero y ultimo mensaje enviado
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"><b><a href="http://waplog.com/profile/mini/ztev05?returnlink=chat%2Fchannel%2FMusic%20V">ztev05</a></b><span class="time"> <b>(5 min(e)s hace)</b></span><b> :</b> <span style='color:red'>19 ii tu? shirley</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/fraan9?returnlink=chat%2Fchannel%2FMusic%20V">fraan9</a></b><span class="time"> <b>(5 min(e)s hace)</b></span><b> :</b> <span style='color:black'>y si no quiero q me vay a ser</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/lhetii?returnlink=chat%2Fchannel%2FMusic%20V">lhetii</a></b><span class="time"> <b>(5 min(e)s hace)</b></span><b> :</b> <span style='color:green'>Uh jua me jui a la balada :b</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/suicida?returnlink=chat%2Fchannel%2FMusic%20V">suicida</a></b><span class="time"> <b>(4 min(e)s hace)</b></span><b> :</b> <span style='color:black'>Algyen me urge balla a mobies me quiero siber kasar algyen k sea testygo o padre urgente porfavor</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/shirleyvacaroca?returnlink=chat%2Fchannel%2FMusic%20V">shirleyvacaroca</a></b><span class="time"> <b>(4 min(e)s hace)</b></span><b> :</b> <span style='color:fuchsia'>18 Voy a kumplir ztv05</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/ztev05?returnlink=chat%2Fchannel%2FMusic%20V">ztev05</a></b><span class="time"> <b>(4 min(e)s hace)</b></span><b> :</b> <span style='color:red'>lhetti he xateado cntigo?</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/suicida?returnlink=chat%2Fchannel%2FMusic%20V">suicida</a></b><span class="time"> <b>(3 min(e)s hace)</b></span><b> :</b> <span style='color:black'>Kien sea porfas me urge alla estoy ballan porfas k kiera ser el padre y testygo estoy en moviesko</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/shirleyvacaroca?returnlink=chat%2Fchannel%2FMusic%20V">shirleyvacaroca</a></b><span class="time"> <b>(3 min(e)s hace)</b></span><b> :</b> <span style='color:fuchsia'>Puej si te tüviera enfrente te partiria la kara hijo d tapu fraan9</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/Enrique01?returnlink=chat%2Fchannel%2FMusic%20V">Enrique01</a></b><span class="time"> <b>(2 min(e)s hace)</b></span><b> :</b> <span style='color:blue'>Mmm hola preciosas</span><br /></div><div class="color"><b><a href="http://waplog.com/profile/mini/fraan9?returnlink=chat%2Fchannel%2FMusic%20V">fraan9</a></b><span class="time"> <b>(2 min(e)s hace)</b></span><b> :</b> <span style='color:black'>pues si no lo sabias mate a una niña x pegarme</span><br /></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
Mira yo haria lo siguiente, he podido ver que cada linea de chat se separa con un <br />, entonces sabiendo esto primero reemplazo los <br /> 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
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?
Si, si podras.
ok lo voy a intentar muchas gracias por la ayuda >:D