' 导入命名空间
Imports System.Net
Imports System.Text
Imports System.IO


    Public Class Test

        ' Specify the URL to receive the request.
        Public Shared Sub Main(ByVal args() As String)
        Dim request As HttpWebRequest = CType(WebRequest.Create(args(0)), HttpWebRequest)


        ' Set some reasonable limits on resources used by this request
        request.MaximumAutomaticRedirections = 4
        request.MaximumResponseHeadersLength = 4

        ' Set credentials to use for this request.
        request.Credentials = CredentialCache.DefaultCredentials

        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

        Console.WriteLine("Content length is {0}", response.ContentLength)
        Console.WriteLine("Content type is {0}", response.ContentType)

        ' Get the stream associated with the response.
        Dim receiveStream As Stream = response.GetResponseStream()

        ' Pipes the stream to a higher level stream reader with the required encoding format. 
        Dim readStream As New StreamReader(receiveStream, Encoding.UTF8)

        Console.WriteLine("Response stream received.")
        Console.WriteLine(readStream.ReadToEnd())
        response.Close()
        readStream.Close()
    End Sub
End Class
'
'The output from this example will vary depending on the value passed into Main 
'but will be similar to the following:
'
'Content length is 1542
'Content type is text/html; charset=utf-8
'Response stream received.
'...
'
'

' 导入命名空间
Imports System.Net
Imports System.Net.Sockets

Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
    
        Try
          Dim httpURL As New System.Uri("http://www.java2s.com")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
          httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    
          Console.WriteLine("CharacterSet: " & httpResp.CharacterSet.ToString)
          Console.WriteLine("ContentEncoding: " & httpResp.ContentEncoding.ToString)
          Console.WriteLine("ContentLength: " & httpResp.ContentLength.ToString)
          Console.WriteLine("ContentType: " & httpResp.ContentType.ToString)
          Console.WriteLine("LastModified: " & httpResp.LastModified.ToString)
          Console.WriteLine("Method: " & httpResp.Method.ToString)
          Console.WriteLine("ProtocolVersion: " & httpResp.ProtocolVersion.ToString)
          Console.WriteLine("ResponseUri: " & httpResp.ResponseUri.ToString)
          Console.WriteLine("Server: " & httpResp.Server.ToString)
          Console.WriteLine("StatusCode: " & httpResp.StatusCode.ToString)
          Console.WriteLine("StatusDescription: " & httpResp.StatusDescription.ToString)
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class