Imprimir página | Cerrar ventana

conectar webservice

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86988
Fecha de impresión: 26/Marzo/2026 a las 13:27


Tema: conectar webservice
Publicado por: florenagm
Asunto: conectar webservice
Fecha de publicación: 03/Octubre/2024 a las 10:42
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.




Respuestas:
Publicado por: lupecinda
Fecha de publicación: 11/Octubre/2024 a las 14:04
Hola.
Nosotros usamos https://github.com/VBA-tools/VBA-Web
Tienes varios ejemplos de cómo utilizarlo.
Saludos



-------------
Lupita


Publicado por: VMT
Fecha de publicación: 18/Noviembre/2025 a las 11:44
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



Imprimir página | Cerrar ventana