本文整理汇总了VB.NET中System.Net.WebResponse.GetResponseStream方法的典型用法代码示例。如果您正苦于以下问题：VB.NET WebResponse.GetResponseStream方法的具体用法？VB.NET WebResponse.GetResponseStream怎么用？VB.NET WebResponse.GetResponseStream使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Net.WebResponse的用法示例。
在下文中一共展示了WebResponse.GetResponseStream方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: read
' Create a 'WebRequest' object with the specified url
Dim myWebRequest As WebRequest = WebRequest.Create("www.contoso.com")
' Send the 'WebRequest' and wait for response.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
' Call method 'GetResponseStream' to obtain stream associated with the response object
Dim ReceiveStream As Stream = myWebResponse.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
' Pipe the stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(ReceiveStream, encode)
Console.WriteLine(ControlChars.Cr + "Response stream received")
Dim read(256) As [Char]
' Read 256 charcters at a time .
Dim count As Integer = readStream.Read(read, 0, 256)
Console.WriteLine("HTML..." + ControlChars.Lf + ControlChars.Cr)
While count > 0
' Dump the 256 characters on a string and display the string onto the console.
Dim str As New [String](read, 0, count)
Console.Write(str)
count = readStream.Read(read, 0, 256)
End While
Console.WriteLine("")
' Release the resources of stream object.
readStream.Close()
' Release the resources of response object.
myWebResponse.Close()示例2: WebResponse.GetResponseStream()
' Cryptography/GetWeb.vb
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Public Class GetWeb
Dim MaxContentLength As Integer = 16384 ' 16k
Public Shared Sub Main(ByVal CmdArgs() As String)
If CmdArgs.Length <> 1 Then
Console.WriteLine("usage: GetWeb url")
Console.WriteLine("example: GetWeb https://www.java2s.com")
End
End If
Dim ms As String = ""
Try
Dim req As WebRequest = WebRequest.Create(CmdArgs(0))
Dim result As WebResponse = req.GetResponse()
Dim ReceiveStream As Stream = result.GetResponseStream()
Dim enc As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, enc)
ms = sr.ReadToEnd()
Catch x As Exception
Console.WriteLine(x.StackTrace)
Console.WriteLine("Bad URL: {0}", CmdArgs(0))
End Try
Console.WriteLine(ms)
End Sub
End Class