Dim URL As String URL = txtBookingURL.Text & "/api/values" Dim objWebRequest As Net.HttpWebRequest Dim objWebResponse As Net.HttpWebResponse Dim srReader As IO.StreamReader Dim strHTML As String objWebRequest = CType(Net.WebRequest.Create(URL), Net.HttpWebRequest) objWebRequest.Method = "GET" objWebRequest.ContentType = "application/json" objWebRequest.Credentials = CredentialCache.DefaultCredentials objWebRequest.Accept = "application/json" Dim response As HttpWebResponse Try response = objWebRequest.GetResponse() ' gives exception on this line objWebResponse = CType(response, Net.HttpWebResponse) srReader = New IO.StreamReader(objWebResponse.GetResponseStream) strHTML = srReader.ReadToEnd objWebResponse.Close() objWebRequest.Abort() txtReceived.Text = strHTML Catch ex As Exception txtReceived.Text = ex.Message End Try
["value1","value2"]
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)