你可以使用streamreader!看看这个例子:
Dim inStream As StreamReader
Dim webRequest As WebRequest
Dim webresponse As WebResponse
webRequest = webRequest.Create("YOUR URL TO THE PAGE GOES HERE")
webresponse = webRequest.GetResponse()
inStream = New StreamReader(webresponse.GetResponseStream())
Dim sourcecode As String = inStream.ReadToEnd()
Dim x1 As Integer = sourcecode.IndexOf("<td>Nr. of toner changed:") + 25 '25 is the number of characters in the string to search
Dim x2 As Integer = sourcecode.IndexOf("times </td>") 'what comes right after your search string. has to be unique in the page
dim nuberofchanges as integer = sourcecode.Substring(x1, x2 - x1)
希望这有助于! :)