Firmar con vb6

[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)