HTTPS Request

HEj,

Jeg har lavet en function i VB.NET, som udfører en HTTP request. Jeg vil gerne ændre det så at det vil kunne lave HTTPS requests. Her er koden:

Public Function Do_Socket_Request(ByVal Str_Host As String, ByVal Port As Integer, ByVal Str_RequestData As String) As String
      Dim Str_Request As String
        Dim Bytes_Recv(204800) As Byte
        Dim bytes As Int32
        Dim Host_IP As IPAddress = Dns.Resolve(Str_Host).AddressList(0)
        Dim IPEPhost As New IPEndPoint(Host_IP, Port)
        Dim Socket_MySocket As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

        Try
            Socket_MySocket.Connect(IPEPhost)
            If Not Socket_MySocket.Connected Then
                Do_Socket_Request = "Unable to connect to host"
                Return Do_Socket_Request
            End If

            Str_Request = Str_RequestData

            Socket_MySocket.Send(ASCII.GetBytes(Str_Request))
            Do_Socket_Request = ASCII.GetString(Bytes_Recv, 0, Socket_MySocket.Receive(Bytes_Recv, Bytes_Recv.Length, 0))
            bytes = Socket_MySocket.Receive(Bytes_Recv, Bytes_Recv.Length, 0)
            While bytes > 0
                bytes = Socket_MySocket.Receive(Bytes_Recv, Bytes_Recv.Length, 0)
                Do_Socket_Request = Do_Socket_Request + ASCII.GetString(Bytes_Recv, 0, bytes)
            End While
        Catch
            MsgBox(Err.Description)
            Exit Function
        Finally
            Socket_MySocket.Close()
        End Try

        Return Do_Socket_Request
End Function

Mange tak for hjælpen!

Hilsen,
Sarid