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