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

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hugo

Leer web aspx con vb.net 2010

Publicado por Hugo (72 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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
filtro

visita:
www.fellebook.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar