Imports System
Imports System.Environment
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim systempath As String = Environment.GetFolderPath(Environment.SpecialFolder.System)

        Dim hosts As String = systempath & "\" & "drivers" & "\" & "etc" & "\\" & "hosts"

        Dim writer As New StreamWriter(hosts, True)

        writer.Write(Environment.NewLine)
        writer.Write(" ")
        writer.Write(Environment.NewLine)
        writer.Write("#Yeni Satırın Açıklaması")
        writer.Write(Environment.NewLine)
        writer.Write("94.101.84.82 www.baranseren.com")
        writer.Dispose()

        MsgBox("Host Dosyasına Eklendi.")

        End


    End Sub
End Class