Visual Basic.NET - Consulta por control webbrowser1

   
Vista:

Consulta por control webbrowser1

Publicado por Medyu (1 intervención) el 24/06/2010 23:02:40
Consulta.
tengo una programa que se conecta a una pagina web y al mandarle parametros con el metodo "post" me devuelve, al rato de procesar, un archivo csv el cual me aparece el cuadro de dialogo "Guardar Como" de internet explorer.. con eso lo puedo guardar donde yo quiera... pero mi consulta es... ¿como lo puedo hacer para que no me pregunte si lo quiero descargar? y que me lo descarge automaticamente en una carpeta "x" ????

este es parte de mi codigo.. y funciona bien, excepto porque tengo que estar dandole al boton guardar y escogiendo la carpeta donde tengo que guardar el archivo:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'======================================================================
CON ESTO ME LOGEO Y ENTRO A LA PAGINA
WebBrowser1.Hide()
WebBrowser1.Navigate("https://www.xxxxxx.xxxxxx/access/login.do")
Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
Loop
WebBrowser1.Document.Forms(0).Document.GetElementById("logid").InnerText = "xxxxxxxxxxxx"
WebBrowser1.Document.Forms(0).Document.GetElementById("password").InnerText = "xxxxxxxxxxx"
WebBrowser1.Document.GetElementById("userform").InvokeMember("submit")
Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Interactive
Application.DoEvents()
Loop


'======================================================================
CON ESTO NAVEGO A LA PARTE DE LA WEB DONDE ESTÁ LA INFORMACION QUE NECESITO
WebBrowser1.Navigate("https://www.https://www.xxxxxx.xxxxxx/inventory.do")
Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
Loop


'======================================================================
AQUI LE MANDO A LA WEB LOS DATOS QUE NECESITO QUE ME BUSQUE Y AUTOMATICAMENTE ME RESPONDE CON EL DIALOGO DE GUARDAR
ARCHIVO COMO.. Y AHI LO GUARDO... PERO QUIERO QUE NO ME MUESTRE ESTE DIALOGO Y QUE SE GUARDE AUTOMATICAMENTE EN UNA CARPETA X
WebBrowser1.Document.GetElementById("xxxxxxxx").SetAttribute("value", "xxxxx")
WebBrowser1.Document.GetElementById("xxxxxxxx").SetAttribute("value", "fxxxxx")
WebBrowser1.Document.GetElementById("xxxxxxxx").SetAttribute("value", "xxxxx")
WebBrowser1.Document.GetElementById("xxxxxxxx").InvokeMember("submit")
Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Interactive
Application.DoEvents()
Loop
End Sub


e buscado por todos lados y nada.. no encuentro lo que necesito.. ¿alguien me podrá ayudar?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder