Mega Code Archive

 

Categories / VB.Net / Network Remote

 

Snatch HTML with Timeout

Public Class MainClass     Public Shared Sub Main()         System.Console.WriteLine(GetPageHTML("http://www.google.com", 100))     End Sub     Public Shared Function GetPageHTML(ByVal URL As String, Optional ByVal TimeoutSeconds As Integer = 10) As String         Dim objRequest As Net.WebRequest         Dim objResponse As Net.WebResponse         Dim objStreamReceive As System.IO.Stream         Dim objEncoding As System.Text.Encoding         Dim objStreamRead As System.IO.StreamReader         Try             objRequest = Net.WebRequest.Create(URL)             objRequest.Timeout = TimeoutSeconds * 1000             objResponse = objRequest.GetResponse             objStreamReceive = objResponse.GetResponseStream             objEncoding = System.Text.Encoding.GetEncoding("utf-8")             objStreamRead = New System.IO.StreamReader(objStreamReceive, objEncoding)             GetPageHTML = objStreamRead.ReadToEnd()             If Not objResponse Is Nothing Then                 objResponse.Close()             End If         Catch             Return ""         End Try     End Function End Class