Conectar a Web

[BenRu]

Bueno, estoy realizando un proyecto y tengo una duda.

Necesito hacer una conexion a una pagina web.
No hace falta que la web se carge en el form.

He usado winsock, haciendo algo asi:

Código (vb) [Seleccionar] Expandir

ws.connect "www.web.com", 80

Pero nada de nada.
He puesto un contador en la web en cuestion...y empiezo a hacer conexiones y el contador no aumenta.

Quiero hacerlo sin usar dependencias ni nada por el estilo.


Un saludo

[Sancho.Mazorka]

Necesitas:
1 Boton (Name = cmdConectar)
1 Winsock (Name = Sock)
3 Huevos (es broma xD)

Código (vb) [Seleccionar] Expandir

Private Sub cmdConectar()
Sock.Close
Sock.Connect "www.google.com.ar", 80

While Not Sock.State = 7
    DoEvents
Wend

Sock.SendData "GET / HTTP/1.0" & vbCrLf & "Host: www.google.com.ar" & vbCrLf & vbCrLf
End Sub

Despues el DataArrival es normal, pero si es mucho codigo, el servidor envia por partes! 

Yo estoy haciendo un programa para obtener datos de web, y hacer verificaciones, tambien tiene autentificacion Base64 

Sancho.Mazorka   

[BenRu]

No me rula 

Necesitas:
1 Boton (Name = cmdConectar)
1 Winsock (Name = Sock)
3 Huevos (es broma xD)

Tan torpe no soy xD


De todas maneras, esto: Private Sub cmdConectar() deberia tener el evento click.

Un saludo

[Sancho.Mazorka]

Tenes razon me comi, el _Click, lo que pasa es que copie el contenido y escribi el nombre del procedimiento a mano y me olvide  Si queres, me agregas y te paso el proyecto, o sino avisame y posteo aca el programa subido a algun sitio, o sino no se, decidi vos.




Sancho.Mazorka   

[BenRu]

Mad me ha hechado un cable y ya lo tengo 

Lo dejo aqui:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Winsock1.Connect "www.usuarios.lycos.es", 80
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "GET /web/contador.php HTTP/1.1" & vbCrLf
Winsock1.SendData "Host: www.usuarios.lycos.es" & vbCrLf
End Sub


Me pondre a buscar el cSocketMaster para quitar el ocx del winsock 

[~~]

Mirate esto:
http://www.fpress.com/revista/Num0701/art.htm

Me pondre a buscar el cSocketMaster para quitar el ocx del winsock 

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=52072&lngWId=1