Extraccion de archivos en WEB mediante VBS
Publicado por mike (1 intervención) el 19/06/2014 22:36:32
Hola Hola...
Espero me puedan apoyar a resolver este problema, soy principiante para vbs... Les explico
La forma manual.. Acceso a la pagina mediante un USER y PWD, posteriormente selecciono el archivo a descargar, ahora lo que requiero es que mediante un script de VB pueda hacer esa instruccion y solo me descargue el archivo en un ruta que yo le asigne.
lo que he logrado es acceder a la pagina y posteriormente meto la ruta en donde esta el archivo solo me marca error 500 sin poder descargar el archivo y la idea es no entrar a la pagina sino descargar el archivo solamente.
Function Main
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = False
IE.Navigate "miURL?j_username=Mi_usuario&j_password=Mi_PWD."
Call Extrae_Arc
End Function
Function Extrae_Arc
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = True
IE.Navigate "URL en donde se aloja el archivo"
end function
espero me puedan ayudar. De antemano se los agradezco
Espero me puedan apoyar a resolver este problema, soy principiante para vbs... Les explico
La forma manual.. Acceso a la pagina mediante un USER y PWD, posteriormente selecciono el archivo a descargar, ahora lo que requiero es que mediante un script de VB pueda hacer esa instruccion y solo me descargue el archivo en un ruta que yo le asigne.
lo que he logrado es acceder a la pagina y posteriormente meto la ruta en donde esta el archivo solo me marca error 500 sin poder descargar el archivo y la idea es no entrar a la pagina sino descargar el archivo solamente.
Function Main
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = False
IE.Navigate "miURL?j_username=Mi_usuario&j_password=Mi_PWD."
Call Extrae_Arc
End Function
Function Extrae_Arc
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = True
IE.Navigate "URL en donde se aloja el archivo"
end function
espero me puedan ayudar. De antemano se los agradezco
Valora esta pregunta
0