' Set the 'ContentType' property of the WebRequest.
myWebRequest.ContentType = "application/x-www-form-urlencoded"

' Set the 'ContentLength' property of the WebRequest.
myWebRequest.ContentLength = byteArray.Length
Dim newStream As Stream = myWebRequest.GetRequestStream()
newStream.Write(byteArray, 0, byteArray.Length)

' Close the Stream object.
newStream.Close()

' Assign the response object of 'WebRequest' to a 'WebResponse' variable.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()

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

Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
    
        Try
          Dim httpURL As New System.Uri("http://www.java2s.com/index.htm?key=value")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
    
          If httpReq.Connection <> Nothing Then
            Console.WriteLine("Connection: " & httpReq.Connection.ToString)
          End If
          If httpReq.ConnectionGroupName <> Nothing Then
            Console.WriteLine("ConnectionGroupName: " & httpReq.ConnectionGroupName.ToString)
          End If
          If httpReq.ContentLength <> -1 Then
            Console.WriteLine("ContentLength: " & httpReq.ContentLength.ToString)
          End If
          If httpReq.ContentType <> Nothing Then
            Console.WriteLine("ContentType: " & httpReq.ContentType.ToString)
          End If
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class