Hola,
Tengo que hacer una aplicación que se conecte a una URL y pueda acceder a los ficheros que alli se encuentran. Para acceder a la URL me tengo que identificar con usuario y password.
He estado investigando y he encontrado dos formas de hacerlo usando el componente winsock o usando el componente de Internet transfer. He estado mirando diferentes manuales y las cosas que ponen son todas parecidas asi que muy lejos de la solución no debo de andar....pero no consigo conectarme y no se si es porque tengo que configurar algo en mi equipo o porque estoy haciendo algo mal....
La cosa es que si yo me conecto desde internet a ese sitio, me pide el usuario y contraseña y puedo entrar correctamente pero si lo hago desde VB no me puedo conectar....
Os envio el codigo para saber que es lo que estoy haciendo mal.....
Haciendolo con windsock:
Botón que me inicia la conexion:
Private Sub cmdIniciarConexion_Click()
Winsock1.Close
Winsock1.RemoteHost = txtRemoteHost.Text
Winsock1.RemotePort = CInt(txtRemotePort.Text)
Winsock1.Connect
End Sub
Botón que me envia la petición: (de momento solo quiero coger información del servidor........)
Private Sub cmdPeticion_Click()
Dim sTexto As String
sTexto = "GET / HTTP/1.1"
Winsock1.SendData sTexto & Chr(10)
End Sub
La cosa esta que voy mirando el winsockstate y siempre tiene valor 1, entonces nunca llego a estar conectada no?
Si alguien me puediese ayudar.....
