Mensajes

muchas gracias por sus respuestas me ayudaron al 100 ahora uso los sockets de .net por fin despues de años no usare mas la libreria winsock.ocx 

alguien me podria decir como hacer una conexion http/1.1 en vb.net?

cuando aprendi a programar en vb6 usaba el winsock.ocx pero cuando pase a .net segui usando el winsock.ocx por que no he encontrado una libreria que haga lo mismo esta es la funcion que uso

Código (vbnet) [Seleccionar] Expandir

   Private Sub AxWinsock4_ConnectEvent(sender As Object, e As EventArgs) Handles AxWinsock4.ConnectEvent
       Dim Cadstr As String
       Cadstr = "variable=valor&variable2=valor"
       
       AxWinsock4.SendData("POST /pagina.php HTTP/1.1" & vbCrLf & _
           "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*" & vbCrLf & _
           "Accept-Encoding: gzip, deflate" & vbCrLf & _
           "Accept-Charset: utf-8" & vbCrLf & _
           "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)" & vbCrLf & _
           "Host: " & AxWinsock4.RemoteHost & ":" & AxWinsock4.RemotePort & vbCrLf & _
           "Content-Length: " & Len(Cadstr) & vbCrLf & _
           "Connection: Keep-Alive" & vbCrLf & _
           "Cache-Control: no-cache" & vbCrLf & vbCrLf & _
           Cadstr & vbCrLf)
   End Sub



y con esto proceso los datos recibidos

Código (vbnet) [Seleccionar] Expandir


   Private Sub AxWinsock4_DataArrival(sender As Object, e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock4.DataArrival
       Dim Datos As String = 100000
       On Error Resume Next

       AxWinsock4.GetData(Datos)

       If InStr(Datos, "404 Not Found") <> 0 Then

           Me.Close()
       End If
   End Sub


he encontrado ejemplos de como hacer algo asi masomenos pero usan directamente servidores ip y relmente no me sirve por que lo que quiero es que conecte a una pagina como si estubiera usando el explorador y poder procesar el codigo como lo hace el codigo que puse.

alguien me podria decir como hacer una lista de usuarios en linea?

los usuarios no se logean sino que el usuario es el valor que se le de a la variable supongamos "pagina.php?user=dedos"

lo quiero para un programa y el programa lo que va a hacer es que enviara peticiones http/1.1 supongamos a "pagina.php?user=dedos" cada determinado tiempo para que demuestre que sigue en linea

espero alguien me pueda ayudar gracias.

ok lo voy a intentar muchas gracias por la ayuda 

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?

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

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

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.

en sitio esta echo en php pero he intentado meterle codigo php como include pero el sitio no interpreta ese codigo pero si interpreta el html y otros lenguajes que no son tan avanzados que podria hacer en este caso? cuales codigos son buenos como para hackearlos? gracias

lo que pasa es que a la hora de extraer el texto con GetData cada determinado parrafo me sale texto que no se encuentra en la pagina original a la que hice conexion por ejemplo son mensajes de 3 letras como 3d2 o asi va cambiando cada determinado parrafo como puedo evitar que salga estos mensajes que solo hechan a perder el codigo html que obtengo? hem lo estoy programando en vb6 gracias.