以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何根据网址获取所有Html代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68817)
--  作者：atmetmicoo
--  发布时间：2015/5/25 17:39:00
--  如何根据网址获取所有Html代码
各位老师好，

请教：如何根据一个网址，获取所有的Html内容，谢谢。
--  作者：大红袍
--  发布时间：2015/5/25 18:03:00
--  

Dim url As String = "http://foxtable.com"
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
    stm.Dispose()
    Output.Show(str)
catch ex As exception
    msgbox(ex.Message)
End try
--  作者：sloyy
--  发布时间：2015/5/25 20:31:00
--  
这个要收藏一下,说不定什么时候就用得上.
--  作者：atmetmicoo
--  发布时间：2015/5/26 16:39:00
--  
谢谢大红袍