Adobe Registration Patch - vb.net Code Bank

                Public Class MainForm
    Dim file As System.IO.File
    Dim reader As System.IO.StreamReader
    Dim writer As System.IO.StreamWriter
    Dim strLine As String
    Dim found As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        reader = IO.File.OpenText("C:\WINDOWS\System32\drivers\etc\hosts")
        While reader.Peek <> -1
            strLine = reader.ReadLine
            If strLine.Contains("127.0.0.1 activate.adobe.com") Then
                found = True
                MessageBox.Show("The hosts file has already been patched.", "Patch Complete", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If
        End While
        reader.Close()
        If found = False Then
            writer = IO.File.AppendText("C:\WINDOWS\System32\drivers\etc\hosts")
            writer.WriteLine("127.0.0.1 activate.adobe.com")
            writer.Close()
            MessageBox.Show("The hosts patch is complete.", "Patch Complete", MessageBoxButtons.OK, MessageBoxIcon.None)
        End If
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class