Public Function NavigateTo(uriString As String) As Response Dim resp As New Response Dim request As HttpWebRequest = CType(WebRequest.Create(uriString), HttpWebRequest) Dim startTime, endTime As Date request.MaximumAutomaticRedirections = 4 request.MaximumResponseHeadersLength = 4 request.Credentials = CredentialCache.DefaultCredentials startTime = Date.Now() Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) endTime = Date.Now() Dim receiveStream As Stream = response.GetResponseStream() Dim readStream As New StreamReader(receiveStream, Encoding.UTF8) resp.StrResponse = readStream.ReadToEnd() resp.ResponseCode = Integer.Parse(response.StatusCode).ToString() resp.Size = response.ContentLength.ToString() resp.Time = endTime.Subtract(startTime).TotalMilliseconds.ToString() response.Close() readStream.Close() Return resp End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)