Hola buenos días, tengo una aplicación en vb6, con la cual tengo realizadas conexiones a webservices

con el comando curl

Para el caso de verifactu ya he conectado dejo el comando que utilizo:

c:\verifactu\curl --cert-type P12 --cert c:\verifactu\certificado\floren.p12:Agm44382473v*_1 --header "Content-Type: text/xml;charset=UTF-8" --header "SOAPAction: SuministroLRFacturasEmitidas" --data @entrada.xml -v https://prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP --output salida.xml -v

Esto es un problema para el control de los certificado y crear los .pem me gustaria conectar directamente con SendRequestHTTPXML("http://localhost:8080", MyWS, testService, "&sParam1=first parameter&sParam2=second parameter value")

agradecería si alguien puede ayudarme o indicarme como hacerlo

Muchísimas gracias.

Hola.

Nosotros usamos https://github.com/VBA-tools/VBA-Web

Tienes varios ejemplos de cómo utilizarlo.

Saludos

Hola,

has avanzado algo con el envío de las facturas en modo VERIFACTU?, yo estoy atrapado en el envio, no consigo que me lea la huella del certificado, uso esta función de VB:


Private Function PostSoapConCert0( _
    ByVal xmlEnvelope As String, _
    ByVal url As String, _
    ByVal soapAction As String, _
    ByVal certRef As String) As String

    On Error GoTo EH

    Dim req As Object ' WinHttp.WinHttpRequest.5.1
    Set req = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    'Fuerza el uso de TLS 1.2 si no estuviera activado
    req.Option(9) = "0x00000800"
    req.setTimeouts 10000, 10000, 30000, 30000
    req.Open "POST", url, False
    
    
    ' Seleccionad el certificado del almacen CURRENT USER (mTLS)
    ' Formato: CURRENT_USER\MY\THUMBPRINT  o  LOCAL_MACHINE\MY\THUMBPRINT
    If Len(certRef) > 0 Then
        req.SetClientCertificate certRef
    End If
    
    req.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    If Len(soapAction) > 0 Then
        req.setRequestHeader "SOAPAction", """" & soapAction & """"
    End If
        
    req.Send xmlEnvelope

    Dim st As Long
    st = req.Status
    If st < 200 Or st >= 300 Then
        Err.Raise vbObjectError + 13001, , _
            "HTTP " & st & " - " & req.statusText & vbCrLf & req.responseText
    End If

    PostSoapConCert = req.responseText
    Exit Function
EH:
    Err.Raise Err.Number, "PostSoapConCert", Err.description
End Function