Foro de elhacker.net

Buenas. Soy nuevo por acá, y estoy intentando hacer un sistema que me saque precios y porcentajes ya que trabajo con minería.

Básicamente necesito saber si hay alguna forma de obtener el precio del Bitcoin (no importa si no es en tiempo real, puede ser cada 5 minutos, etc) y que esa información se muestre dentro de un TextBox. Puedo introducir ese valor manualmente y el programa funciona perfectamente porque ya tengo todo lo demás listo, pero me gustaría saber si se puede automatizar de alguna manera.

Muchas gracias :D

Tal vez el sigueinte codigo te ayude.

Dim request As HttpWebRequest
Dim response As HttpWebResponse = Nothing
Dim reader As StreamReader
 
' Set the URL of the API endpoint
Dim url As String = "https://api.coindesk.com/v1/bpi/currentprice.json"
 
Try
    ' Create a new HTTP to=python
request = HttpWebRequest.Create(url)
 
' Send the request and get the response
response = request.GetResponse()
 
' Read the response and store it in a string
Dim data As String = response.GetResponseStream()
Dim content As String = reader.ReadToEnd()
 
' Close the response
response.Close()
 
' Parse the JSON response to get the current Bitcoin price
Dim jObject As JObject = JObject.Parse(content)
Dim price As Double = jObject("bpi")("USD")("rate_float")
 
' Update the text box with the current Bitcoin price
TextBox1.Text = price
 
Catch ex As Exception
    ' Show an error message if the request failed
    MessageBox.Show("Error: " & ex.Message)
End Try
 

Saludos!

Muchas gracias por responder!

Lamentablemente no logro hacerlo funcionar :(

Me da el siguiente error:

"Dim data As String = response.GetResponseStream()" El valor de tipo Stream no se puede convertir en String.

"Dim jObject As JObject = jObject.Parse(content)" No está definido el tipo JObject. La variable jObject se usa antes de que se le haya asignado un valor.