VB.NET can't connect to a HTTPS Web Server

Question

4.00/5 (2 votes)

See more:

I have a code for downloading a file from a HTTPS Web Server:

Dim URI As String = "https://secure.ddcos.com/MOVEitISAPI/MOVEitISAPI.310/action=hu_downld!parm=e930810185440778334!NoAttach=1/98677_5050854223051_942963.jpg"
        Dim oRequest As System.Net.HttpWebRequest = CType(HttpWebRequest.Create(URI), HttpWebRequest)
        oRequest.Credentials = New System.Net.NetworkCredential("username", "password")
        Using oResponse As System.Net.WebResponse = CType(oRequest.GetResponse, System.Net.WebResponse)
            Console.WriteLine("{0}", oResponse.Headers)
            Using responseStream As IO.Stream = oResponse.GetResponseStream
                Using fs As New IO.FileStream("D:\98677_5050854223051_942963.jpg", FileMode.Create, FileAccess.Write)
                    Dim buffer(2047) As Byte
                    Dim read As Integer
                    Do
                        read = responseStream.Read(buffer, 0, buffer.Length)
                        fs.Write(buffer, 0, read)
                    Loop Until read = 0
                    responseStream.Close()
                    fs.Flush()
                    fs.Close()
                End Using
                responseStream.Close()
            End Using
            oResponse.Close()
        End Using
        MsgBox("done")
    End Sub
End Class

Output of the Console.WriteLine("{0}", oResponse.Headers)

X-siLock-ErrorCode: 100
X-siLock-ErrorDescription: ISAPI can't open parameter file
Connection: close
Content-Length: 0
Date: Thu, 09 Jun 2011 14:42:43 GMT
Server: Microsoft-IIS/7.0
X-Powered-By: ASP.NET

I try it to other Web Server that doesn't require any username and password and everything is working alright.
In above code I also try ClientCertificate code:

Dim appPath As String = System.Reflection.Assembly.GetExecutingAssembly. _
        GetModules()(0).FullyQualifiedName()
Dim appDIR As String = System.IO.Path.GetDirectoryName(appPath)
Dim certificate As X509Certificate = X509Certificate.CreateFromCertFile(appDIR & "\Certificates\Base-64 X.509.cer")
oRequest.ClientCertificates.Add(certificate)

I get a certificate by following this: http://support.microsoft.com/kb/895971[^]
I import the certificate to my Application Folder(where the EXE is found)

Also I use the POST method, before I download a file I send the username and password first, then I use GET method.

but same result happened
Don't know why i can't connect to that Web Server.
Any any suggestion is appreciated.

Thanks. . .

Posted 9-Jun-11 4:57am

hansoctantan

Updated 12-Jun-11 20:28pm

v4

Add a Solution

Comments

Sergey Alexandrovich Kryukov 9-Jun-11 11:32am

Can you get this JPG file using a Web browser? Can you get any other file from any other site using your code? Just asking...
--SA

hansoctantan 10-Jun-11 2:03am

yes, when I logged in I can download the image. Same happen when no user is logged in, I can view the image but when I save the image 0 byte is downloaded.

Dave Kreskowiak 13-Jun-11 9:35am

Don't post the same question multiple times, especially just 3 hours apart. I deleted your other post on this because this one provided more useful information to diagnose the problem.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

hitesh_tech · Answer 1 · 2011-06-10T00:20:00

Use CertificatePolicyHandler code as mentioned below

1) copy the CustomCertificatePolicyHandler class in your code

2) modify your code as shown below

XML

Dim oRequest As System.Net.HttpWebRequest = CType(HttpWebRequest.Create(URI), HttpWebRequest)

Dim objCertificatePolicy As New CustomCertificatePolicyHandler
ServicePointManager.CertificatePolicy = objCertificatePolicy

oRequest.Credentials = New System.Net.NetworkCredential("username", "password")

'''CustomCertificatePolicyHandler''''class''start''''

    ''' <summary>
    ''' The code allows the client application to accept every certificate that the server provides.
    ''' and then accepts every request under SSL.
    ''' Refered From http://support.microsoft.com/kb/823177
    ''' </summary>
    ''' <remarks></remarks>
    Public Class CustomCertificatePolicyHandler
        Implements ICertificatePolicy

        Private _ServerCertificateValidationCallback As System.Net.Security.RemoteCertificateValidationCallback

    #Region "Properties"
        ''' <summary>
        ''' The code allows the client application to accept every certificate that the server provides.
        ''' and then accepts every request under SSL.
        ''' Refered From http://support.microsoft.com/kb/823177
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overridable ReadOnly Property ServerCertificateValidationCallback() As System.Net.Security.RemoteCertificateValidationCallback
            Get
            Return _ServerCertificateValidationCallback
            End Get
        End Property
    #End Region

    #Region "Methods"
        ''' <summary>
        ''' Check Validation Result and allows the client application to accept every certificate that the server provides
        ''' </summary>
        ''' <param name="srvPoint"></param>
        ''' <param name="cert"></param>
        ''' <param name="request"></param>
        ''' <param name="certificateProblem"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function CheckValidationResult(ByVal srvPoint As ServicePoint, _
                  ByVal cert As X509Certificate, ByVal request As WebRequest, _
                  ByVal certificateProblem As Integer) _
              As Boolean Implements ICertificatePolicy.CheckValidationResult
            'Return True to allow the certificate to be accepted.
            Return True
        End Function

    #End Region

    #Region "Procedures"
        ''' <summary>
        ''' Constructor
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub New()
            MyBase.new()
        End Sub

    #End Region
    End Class
'''CustomCertificatePolicyHandler''''class''End''''