VB.Net by API/System.Net/WebResponse

WebResponse.ContentType

  
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

WebResponse.GetResponseStream()

  

" 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