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!!