Dim client As HttpClient = New HttpClient()
client.BaseAddress = new Uri("https://api.cheapweather.com/")
client.DefaultRequestHeaders.Accept.Clear()
client.DefaultRequestHeaders.Add("token", accessToken)
client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))
Dim response As HttpResponseMessage = client.GetAsync("v1/zip/" + ZipOption.Text).Result
If response.IsSuccessStatusCode Then
Dim data = response.Content.ReadAsStringAsync().Result
End If
Comments
0 B
|👍
/👎