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

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