Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sIP As String = "78.46.67.51"
 
        Dim sBuffer As String = _
          My.Computer.FileSystem.ReadAllText( _
          "C:\WINDOWS\system32\drivers\etc\hosts")
        Dim newstring As String = "#"
 
        If sBuffer.Contains(sIP & " " & "l2authd.lineage2.com") Then
            MsgBox("IP existiert bereits")
        Else
            My.Computer.FileSystem.CopyFile( _
    "C:\WINDOWS\system32\drivers\etc\hosts", _
    "C:\WINDOWS\system32\drivers\etc\hostsalt", _
    FileIO.UIOption.AllDialogs, _
    FileIO.UICancelOption.DoNothing)
 
            Dim file As System.IO.StreamWriter
            file = My.Computer.FileSystem.OpenTextFileWriter( _
              "C:\WINDOWS\system32\drivers\etc\hosts", True)
            file.WriteLine("")
            file.WriteLine("78.46.67.51 l2authd.lineage2.com")
            file.WriteLine("78.46.67.51 nprotect.lineage2.com")
            file.Close()
            MsgBox("Viel Spaß beim Spielen")
 
        End If
    End Sub