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