抓取叶面的函数,有个问题

bluemouse 2002-09-08 04:12:48
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,我不熟,哪位有更好的解决办法?谢了 :)
...全文
46 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bluemouse 2002-09-23
up
  • 打赏
  • 举报
回复
bluemouse 2002-09-09
up up
  • 打赏
  • 举报
回复
lizhenlz 2002-09-09
up
  • 打赏
  • 举报
回复
bluemouse 2002-09-09
真的没有人懂吗?
  • 打赏
  • 举报
回复
bluemouse 2002-09-08
up
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
申请成为版主
帖子事件
创建了帖子
2002-09-08 04:12
社区公告
暂无公告