Visual Basic.NET - Leer web aspx con vb.net 2010

Leer web aspx con vb.net 2010

Publicado por ManuGarcia (1 intervención) el 10/09/2014 20:04:50

Hola

Estoy haciendo una aplicación en vb.net 2010 para sacar y trabajar sobre los datos que se pueden ver en:

http://www.bolsamadrid.es/esp/aspx/Mercados/Precios.aspx?mercado=MC

Cuando leo los datos con

dim vbleURL as string = "http://www.bolsamadrid.es/esp/aspx/Mercados/Precios.aspx?mercado=MC"
dim request as webrequest = webrequest.create(vbleURL)
dim response as webresponse = request.getresponse()
dim reader as new streamreader (response.getresponsestream())
dim res as string = reader.readtoend()

que encontré por ahí, pues me devuelve lo que se puede ver en el enlace; son una parte de los datos del mercado contínuo español. Para verlos todos hay un botón "Completo" en la parte baja de la página que direcciona a <<javascript:__doPostBack('ctl00$Contenido$Todos','')>>

Pero no sé como seguir y conseguir sacar todos los datos y en el fuente de la página subsiguiente ("Completo"), no encuentro nada que me oriente.

Agradeceré toda ayuda y comentario.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 51

Val: 50

Leer web aspx con vb.net 2010

Publicado por Hugo (92 intervenciones) el 17/09/2014 18:00:43

Lo que haría es enviar el código fuente a un .txt para después buscar los datos que me interesan

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        'visualiza el contenido de la página como html

        Me.TextBox2.Text = visualizahtml(Me.TextBox1.Text)

        '----------------------------------------------------------

        'visualiza el contenido de la página

        AddHandler WebBrowser1.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted

        WebBrowser1.Navigate(New Uri(Me.TextBox1.Text))

    End Sub

    'visualiza el contenido de la página

    Private Sub WebBrowser_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

Try

            Dim document As System.Windows.Forms.HtmlDocument = WebBrowser1.Document

        Catch ex As Exception

            MessageBox.Show(MessageBoxIcon.Error)

End

        End Try

    End Sub

    'visualiza el contenido de la página como html

    Private Function visualizahtml(ByVal Address As String) As String

        Dim rt As String = ""

        Dim wrequest As WebRequest

        Dim wresponse As WebResponse

        Dim SR As StreamReader

        wrequest = WebRequest.Create(Address)

        wresponse = wrequest.GetResponse

        SR = New StreamReader(wresponse.GetResponseStream)

        rt = SR.ReadToEnd

        SR.Close()

        Return rt

    End Function

Saludos

visita:
www.fellebook.com

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar