VB.Net/Network Remote/Web Page

Read Amazon web page

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.IO Imports System.Net Public Class MainClass

   Public Shared Sub Main()
       Try
         Dim theURL As New Uri("http://www.amazon.ru/exec/obidos/ASIN/1893115992")
         Dim theRequest As WebRequest
         theRequest = WebRequest.Create(theURL)
         Dim theResponse As WebResponse
         theResponse = theRequest.GetResponse
         Dim aReader As New StreamReader(theResponse.GetResponseStream())
         Dim theData As String
         theData = aReader.ReadToEnd
   
         Console.WriteLine("Getting Amazon rank for ISBN # 1893115992")
   
         Console.WriteLine(theData)
   
       Catch E As Exception
         Console.WriteLine(E.StackTrace)
       End Try
   End Sub

End Class

 </source>

Read web page tools

<source lang="vbnet"> " Cryptography/GetWeb.vb Imports System Imports System.IO Imports System.Net Imports System.Text Public Class GetWeb

   Dim MaxContentLength As Integer = 16384 " 16k
   Public Shared Sub Main(ByVal CmdArgs() As String)
       If CmdArgs.Length <> 1 Then
           Console.WriteLine("usage: GetWeb url")
           Console.WriteLine("example: GetWeb https://www.vbex.ru")
           End
       End If
       Dim ms As String = ""
       Try
           Dim req As WebRequest = WebRequest.Create(CmdArgs(0))
           Dim result As WebResponse = req.GetResponse()
           Dim ReceiveStream As Stream = result.GetResponseStream()
           Dim enc As Encoding = System.Text.Encoding.GetEncoding("utf-8")
           Dim sr As StreamReader = New StreamReader(ReceiveStream, enc)
           ms = sr.ReadToEnd()
       Catch x As Exception
           Console.WriteLine(x.StackTrace)
           Console.WriteLine("Bad URL: {0}", CmdArgs(0))
       End Try
       Console.WriteLine(ms)
   End Sub

End Class

 </source>

Snatch HTML

<source lang="vbnet"> Public Class MainClass

   Public Shared Sub Main
       System.Console.WriteLine(GetPageHTML("http://www.google.ru"))
   End Sub
   Public Shared Function GetPageHTML(ByVal URL As String) As String
       Dim objWC As New System.Net.WebClient()
       Return New System.Text.UTF8Encoding().GetString(objWC.DownloadData(URL))
   End Function

End Class

 </source>

Snatch HTML with Timeout

<source lang="vbnet"> Public Class MainClass

   Public Shared Sub Main()
       System.Console.WriteLine(GetPageHTML("http://www.google.ru", 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

 </source>