CBTE obtenerprecio

Dim md As New WSAFIPFE.misdatos

Dim bresultado As Boolean

If md.iniciar("no es necesario clave API", "no es necesario archivo licencia") Then

md.crptProveedor = "BINANCE"

md.crptOperacion = "OBTENERPRECIO"

md.crptCodigo = "BTC"

md.crptreferenciacripto = "USDT"

REM el precio estará expresado en tether stablecoin equivalente a dolar

md.ArchivoXMLRecibido = "d:\BINANCE.txt"

bresultado = md.crptMetodo()

If md.UltimoMensajeError = "" Then

MsgBox("precioBTC " + md.crptResuestaValor)

Else

MsgBox("error: " + md.UltimoMensajeError)

End If

Else

MsgBox("fallo inicia:"+fe.ultimomensajeerror)

End If