|
Kdysi jsem něco podobného dělal a celkem jednoduchá metoda pro stažení stránky vypadala asi takhle:
Public Function nactiStranku(ByVal url As String) As String
' úprava adresy
If url.Substring(0, 7) <> "http://" Then
url = url.Insert(0, "http://")
End If
'vytvoření požadavku na stránku
Dim req As Net.HttpWebRequest = CType(Net.WebRequest.Create(url), Net.HttpWebRequest)
' stažení stránky
Dim resp As Net.HttpWebResponse
Try
resp = req.GetResponse()
Catch ex As Net.WebException
Return ex.Message
End Try
'převod stránky ze streamu do řetězce
Dim reader As New IO.StreamReader(resp.GetResponseStream())
nactiStranku = reader.ReadToEnd()
reader.Close()
End Function
Pokud funkci zavoláte s platnou URL adresou, pak Vám vrátí řetězec s obsahem celé stránky. No a dále již záleží pouze na tom, co konkrétně hledáte (já hledal nějaké měnící se hodnoty v jinak stejné stránce, tak jsem si nalezl na stránce vždy výskyt nějakého pevného řetězce, který mé hodnotě předcházel, no a pak jsem si přečetl to, co následovalo) Vše jsem dělal pomocí funkcí pro práci s řetězci, dnes bych to asi mnohem elegantněji řešil regulárními výrazy - viz článek T. Jechy.
|