VB.Net by API/System.Net/WebResponse

WebResponse.ContentType

<source lang="vbnet"> Imports System.IO Imports System.Net Imports System.Text public class MainClass

  Shared Sub Main()
       Dim uri As New Uri("http://www.vbex.ru/index.htm")
       Dim request As WebRequest = WebRequest.Create(uri)
       Dim response As WebResponse = request.GetResponse()
       Console.WriteLine("Request type: " & request.GetType().ToString() )
       Console.WriteLine("Response type: " & response.GetType().ToString() )
       Console.WriteLine("Content length: " & response.ContentLength & " bytes" )
       Console.WriteLine("Content type: " & response.ContentType )
  End Sub

End Class

 </source>

WebResponse.GetResponseStream()

<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>