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>