Conexion a Servicio Web SSL con visual basic 6.0

Después de tanto buscar y probar encontré la forma de consumir un servicio web https con visual Basic 6.0. el problema que se me presentaba era por la libreria que utilizaba, no soportaba el SSL del servicio web. Hasta que en un blog encontré el funcionamiento de la librería MSXML2.ServerXMLHTTP30.
En el proyecto se debe cargar la referencia Microsoft XML, V3.0 para que funcione correctamente.
Esta función recibe los parámetros para consumir el servicio web y retorna el resultado en un string.


Public Function Status(u As String, Action As String, Emisor As String, R As String, total As String, D As String) As String

   Const SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS As Long = 2
    Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
    Dim Response, sUrl, body As String
    sUrl = url & "/Service.svc" 'direccion completa del servicio
 
    body = 'datos a enviar

    Set cXMLHTTP1 = New MSXML2.ServerXMLHTTP30
    cXMLHTTP1.SetOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
    cXMLHTTP1.Open "POST", sUrl, False
    cXMLHTTP1.setRequestHeader "User-Agent", "Frontier/5.1.2 (WinNT)"
    cXMLHTTP1.setRequestHeader "host", "pruebaconsultaqr.cloudapp.net"
    cXMLHTTP1.setRequestHeader "SOAPAction", Action
    cXMLHTTP1.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    cXMLHTTP1.setRequestHeader "Accept", "text/xml"
    cXMLHTTP1.send body
    StatusCFDI = cXMLHTTP1.responseText
End Function

Espero que les Sirva.

G.L.C