Dim wc As New WebClient() Dim s As Stream = wc.OpenRead("http://expert.csdn.net/") Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default) GrabUrl = sr.ReadToEnd s.Close() wc.Dispose() 可以很方便地转换成C#版本
http://lucky_elove.www1.dotnetplayground.com/ShowDetail.aspx?id=C2BCFA0A-D4E5-4791-87F3-C0B2AA2B7B5BFunction GrabUrl() As String Dim wc As New WebClient() Dim s As Stream = wc.OpenRead("http://expert.csdn.net/") Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default) GrabUrl = sr.ReadToEnd s.Close() wc.Dispose()End Function
Dim s As Stream = wc.OpenRead("http://expert.csdn.net/")
Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default)
GrabUrl = sr.ReadToEnd
s.Close()
wc.Dispose()
可以很方便地转换成C#版本
Dim wc As New WebClient()
Dim s As Stream = wc.OpenRead("http://expert.csdn.net/")
Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default)
GrabUrl = sr.ReadToEnd
s.Close()
wc.Dispose()End Function