50 lines
1.2 KiB
VB.net
50 lines
1.2 KiB
VB.net
Imports System.Net
|
|
Imports System.IO
|
|
Imports System.Collections.Generic
|
|
Imports Newtonsoft.Json
|
|
|
|
|
|
Public Class Form1
|
|
|
|
Dim tblData As New DataTable
|
|
|
|
Private Sub btnGetCoinData_Click(sender As Object, e As EventArgs) Handles btnGetCoinData.Click
|
|
|
|
tblData.Columns.Add("tStamp")
|
|
tblData.Columns.Add("priceEUR")
|
|
|
|
Dim drowCoindata As DataRow = tblData.NewRow
|
|
Dim sRead As StreamReader
|
|
sRead = New StreamReader("coindata.json")
|
|
|
|
|
|
Dim rawresp As String
|
|
rawresp = sRead.ReadToEnd()
|
|
Dim jo = Newtonsoft.Json.Linq.JArray.Parse(rawresp)
|
|
Dim lastelement As Int32 = jo.Count - 1
|
|
|
|
For i As Int32 = 0 To 3 'lastelement
|
|
|
|
tblData.Rows.Add(jo(i)("tstamp"), jo(i)("bitpandaDOGE"))
|
|
|
|
Next
|
|
|
|
|
|
|
|
|
|
'Dim wReq As HttpWebRequest = DirectCast(WebRequest.Create(tbCoinDataURL.Text), HttpWebRequest)
|
|
'Dim px As IWebProxy = WebRequest.GetSystemWebProxy()
|
|
|
|
'wReq.Proxy = px
|
|
'wReq.Proxy.Credentials = CredentialCache.DefaultNetworkCredentials
|
|
'wReq.Credentials = CredentialCache.DefaultNetworkCredentials
|
|
|
|
'Dim resp As HttpWebResponse = wReq.GetResponse
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
End Class
|