Public Class Form1

 Dim HostsFile As String = System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\drivers\etc\hosts"

 Sub LoadFile(ByVal FileName As String)

 ListBox1.Items.Clear()



 Dim i As Integer = FreeFile()

 Dim s As String



 FileOpen(i, FileName, OpenMode.Input)

 Do Until EOF(i)

 Input(i, s)

 If InStr(s, "127.0.0.1 ") Then

 s = Split(s, " ")(1)

 If s <> "" Then ListBox1.Items.Add(Trim(s))

 End If

 Loop

 FileClose(i)

 End Sub



 Sub SaveFile(ByVal FileName As String)

 Dim i As Integer = FreeFile()

 Dim j As Integer

 Dim s As String



 For j = 0 To ListBox1.Items.Count - 1

 s = s & "127.0.0.1 " & ListBox1.Items(j).ToString & vbCrLf

 Next



 FileOpen(i, FileName, OpenMode.Output)

 PrintLine(i, s)

 FileClose(i)



 Shell("ipconfig /flushdns", AppWinStyle.Hide)

 End Sub



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

 LoadFile(HostsFile)

 End Sub



 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

 ListBox1.Items.Remove(ListBox1.SelectedItem)

 SaveFile(HostsFile)

 End Sub



 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click



 Dim s As String

 ListBox1.Items.Add(TextBox1.Text)



 SaveFile(HostsFile)

 End Sub



 Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click



 End Sub



 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged



 End Sub



 Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click



 End Sub



 Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

 System.Diagnostics.Process.Start("http://hunterx7.blogspot.com")

 End Sub



End Class