Dim ourUri As New Uri(url)
' Creates an HttpWebRequest with the specified URL. 
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(ourUri), HttpWebRequest)
myHttpWebRequest.ProtocolVersion = HttpVersion.Version10
' Sends the request and waits for the response.
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
'The ProtocolVersion property is used to ensure that only Http/1.0 responses are accepted. 
If myHttpWebResponse.ProtocolVersion Is HttpVersion.Version10 Then
    Console.WriteLine(ControlChars.NewLine + "The server responded with a version other than Http/1.0")
Else
    If myHttpWebResponse.StatusCode = HttpStatusCode.OK Then
        Console.WriteLine(ControlChars.NewLine + "Request sent using version HTTP/1.0. Successfully received response with version Http/1.0 ")
    End If
End If
' Releases the resources of the response.
myHttpWebResponse.Close()

' 导入命名空间
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