Visual Basic - Descarga Automatica de Archivo por internet

Buenos dias, tengo una inquietud

La empresa donde trabajo tiene archivos guardados en su servidor de internet, los usuarios clientes de la empresa pueden descargar estos archivos entrando a la pagina web e ingresando
su contraseña y password, posteriormente aparecen los links a la lista de archivos q se le esta permitiendo descargar, al hacer click sobre uno de ellos aparece un formulario de Descarga comun. cuando descargas archivos de internet, el cual contiene la advertencia y los botones de abrir, guardar, cancelar y mas informacion,..para posteriormente poner guardar,decirle donde descargar y listo...

Todo ok hasta ahora..pero como todos sabemos hay q hacerle la vida mas facil a los usuarios q se hacen un mundo para algo tan sencillo..

Lo q deseo hacer es una aplicacion de VBasic 6 q automaticamente se conecte a esa pagina y descarge el archivo de forma transparente sin ingresar a la pagina web, user y psw, y archivos a descargar porque todo eso ya esta especificado en el codigo del programa y q con 1 solo click descarge los archivos sin q te salga el form de descarga con la advertencia por q ya tengo definida la ruta de descarga dentro del mismo programa.

aLguien podria ayudarme con algun codigo de ejemplo q haga todo o parte de lo q aqui les pido,o si existe alguna otra manera,..
gracias

Puedes hacer dos cosas, si tienes la dirección del archivo y quieres evitar el formulario de ingreso puedes utilizar la función URLDownloadToFile:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

En http://lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=154014&n2=2&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0 hay un ejemplo.

Si tienes que validar el usuario puedes utilizar XMLHTTP y recibir el archivo:

Dim xmlhttp As MSXML2.ServerXMLHTTP40

Set xmlhttp = New MSXML2.ServerXMLHTTP40

xmlhttp.open "POST", "http://www.miservidor.com/mipagina.html", False

xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xmlhttp.send "usuario=nombre&password=clave"