抓取叶面的函数,有个问题
public function GetWeb(strUrl as String) as String
dim WebReq as System.Net.HttpWebRequest = system.Net.HttpWebRequest.Create(strUrl)
dim WebRes as System.Net.HttpWebResponse = webreq.GetResponse
dim stm as System.IO.Stream
stm=WebRes.GetResponseStream
dim buf(WebRes.ContentLength ) as Byte
dim counts as Integer =stm.Read(buf,0,WebRes.ContentLength)
stm.Close
webres.Close
return system.Text.Encoding.Default.GetString(buf)
End Function
目前存在的问题是,只要叶面大一些,就取不全,对于Stream,我不熟,哪位有更好的解决办法?谢了 :)