How to Make Website Blocker In VB.NET

Add 1 Button And 1 Text Box

Button 1 = Block

Full Code :

Imports System.IO

Public Class Form1

    Dim path As String

    Dim sw As StreamWriter

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        path = "C:\Windows\System32\drivers\etc\hosts"

        sw = New StreamWriter(path, True)

        Dim sitetoblock As String = (Environment.NewLine & "127.0.0.1 " & TextBox1.Text)

        sw.Write(sitetoblock)

        sw.Close()

        MessageBox.Show("Website Blocked")

    End Sub

End Class