Firmar con vb6

[Logan05]

Hola compañeros

¿alguien está utilizando el activeX de Chilkat en vb6?

¿podíais darme alguna indicación de como lo estáis usando para firmar los SOAP? (algún trozo de código sería de mucha ayuda)

Estoy probando con la versión 10.1.2, cargo el certificado desde un .p12 o .pfx, pero no consigo usarlo para firmar el XML

Muchas gracias por vuestra ayuda!!!

[Logan05]

Hola de nuevo compañeros,

después de leer muchos hilos parece que lo he conseguido, así que pongo el código por si a alguien más le es de utilidad, aunque no hay control de errores ni nada.

Private Sub CmdEnvioXML_Click()
 Dim url As String
  url = "https://prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP"
 Dim socket As New ChilkatSocket
  success = socket.SetSslClientCertPfx("certificado.pfx", "Clave")
  success = socket.Connect(url, 443, True, 5000)
 Dim rest As New ChilkatRest
  success = rest.UseConnection(socket, True)
 Dim dat As String
 Dim stringBuilder As New ChilkatStringBuilder
  success = stringBuilder.LoadFile("Factura_de_Prueba.xml", "utf-8")
  dat = stringBuilder.GetAsString()
  success = rest.SendReqStringBody("POST", url, dat)
  success = rest.ReadResponseHeader()
  Text1.Text = "success: " & success & vbCrLf & vbCrLf & vbCrLf
  Text1.Text = Text1.Text & "ReadRespBodyString: " & rest.ReadRespBodyString & vbCrLf & vbCrLf & vbCrLf
End Sub

Un saludo!!

[Neftali [Germán.Estévez]]

Empezado por Logan05

después de leer muchos hilos parece que lo he conseguido, así que pongo el código por si a alguien más le es de utilidad, aunque no hay control de errores ni nada.
Un saludo!!

Gracias.
Actualizo el mensaje #2 con la recopilacion de códigos, con este en VB6.

[batuzail]

Hola,
Yo hago el envío así:

Dim Respuesta As New ChilkatHttpResponse
Dim http As New ChilkatHttp
Dim success As Long, strErr As String
   http.ClearHeaders
    http.setRequestHeader "Content-Type", "text/xml"
    success = http.SetSslClientCertPfx(GetRutaCertificado, GetPasswordCertificado)
    
    If (success = False) Then
        strErr = http.LastErrorText
    End If
    
    Set Respuesta = http.PText("POST", url, xml.GetXml, "utf-8", "application/xml; charset=utf-8", 0, 0)