Sub KoronaCode
Try
Dim Korona As HttpJob
Korona.Initialize("GetAddress",Me)
Korona.Download("https://coronavirus-19-api.herokuapp.com/countries/" & Ulke_Textbox.Text)
wait for (Korona) JobDone(Korona As HttpJob)
If Korona.Success Then
ProgressDialogHide
Dim parser As JSONParser
parser.Initialize(Korona.GetString)
Dim sec As Map = parser.NextObject
Dim VakaSayisi As Int = sec.Get("cases")
Dim BugunVaka As Int = sec.Get("todayCases")
Dim VefatSayisi As Int = sec.Get("deaths")
Dim BugunVefat As Int = sec.Get("todayDeaths")
Dim Aktif As Int = sec.Get("active")
Dim Kritik As Int = sec.Get("critical")
Dim TestSayisi As Int = sec.Get("totalTests")
VakaSayisi_Label.Text=VakaSayisi
BugunkuVaka_Label.Text=BugunVaka
VefatSayisi_Label.Text=VefatSayisi
BugunkuVefat_Label.Text=BugunVefat
Aktif_Label.Text=Aktif
KritikSayi_Label.Text=Kritik
TestSayisi_Label.Text=TestSayisi
End If
Korona.Release
Catch
MsgboxAsync("Lütfen Ülke Giriniz !","Hata !")
End Try
End Sub