大家帮忙看看这段程序有什么问题?
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
dim buf() as Byte
dim counts as Integer
counts = stm.Read(buf,0,stm.Length )
'上面这句报错
return system.Text.Encoding.Default.GetString(buf,0,counts)
End Function