主题：请教如何获取网页内容

Dim url As String = "http://222.241.172.223:8008/test"  '请按实际升级的路径填写

try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000 '一秒
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    Dim stm As System.IO.Stream = rsps.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd
    msgbox(str)
    rsps.Close
catch ex As Exception
    msgbox(ex.message)
End try

Dim url As String = "http://222.241.172.223:8008/test"  '请按实际升级的路径填写

try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000 '一秒
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    Dim stm As System.IO.Stream = rsps.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd

    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=\<BODY\>+.+;+).+(?=\</BODY?\>+)")
    For i As Integer = 0 To mc.count - 1
        msgbox(mc(i).Value)
    Next
    rsps.Close
catch ex As Exception
    msgbox(ex.message)
End try