[Lord.Baltimore]

Hi !

I'm going to share a code made by me for get the official price of Bitcoin
from blockchain.info !

I call :

LBL_Stats_Price a label in my form !

The code :

Code

Public Class Form1
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
LBL_Stats_Price.Text = "Price of Bitcoin ( from blockchain.info ) : $" & (GetPrice()) & " USD"
      End Sub

      Function GetPrice() As String
        Dim request As New WebClient
        Return request.DownloadString("https://blockchain.info/fr/q/24hrprice")
      End Function
End Class

That's all !
Bye ! :)

[Odus]

Declare the web client outwith the function so you don't initialize each time the method is called.

Code

Private Function getPrice() As String
    Return String.Format("Price of 1 Bitcoin: ${0} USD", wc.DownloadString("https://blockchain.info/fr/q/24hrprice"))
End Function

[DevNet]

This is no better than "no JSON", if anything I'd say it's worse..

[Lord.Baltimore]

This is no better than "no JSON", if anything I'd say it's worse..

I searched a method for get the price without JSON !
But it's easy with JSON :)