https://ftl.fasttrack.net/v1/status
<script> var URL = "https://ftl.fasttrack.net/v1/status"; try { fetch(URL) .then((response) => response.json()) .then((data) => dosuccess(data)); } catch (ex) { alert(ex.message); } function dosuccess(data) { var txt = JSON.stringify(data, null, 2); $("#jsonresponse").html(txt); } function err(xhr, status, errorThrown) { alert(status + " - " + xhr.statusText); } </script> <div id="jsonresponse"></div>
Imports System.IO Imports System.Net Imports System.Runtime.Serialization.Json ... Public Function getDataStatus() As clssdatastatus Dim x As New clssdatastatus x = makecalljson("https://ftl.fasttrack.net/v1/status", x) Return x End Function Private Function makecalljson(ByRef rqst_str As String, ByRef _type As Object) As Object Dim request As HttpWebRequest = CType(WebRequest.Create(rqst_str), HttpWebRequest) Dim response As HttpWebResponse response = request.GetResponse() Dim receiveStream As Stream = response.GetResponseStream() Dim dcs As New DataContractJsonSerializer(_type.GetType) Dim obj As Object = dcs.ReadObject(receiveStream) receiveStream.Close() Return obj End Function