Public Shared Function ExpandEnvironmentVariables ( _
    name As String _
) As String

Dim name As String
Dim returnValue As String
 
returnValue = Environment.ExpandEnvironmentVariables(name)

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( _
          "%windir%\system32\drivers\etc\hosts")
 
        If sBuffer.Contains(sIP & " " & "l2authd.lineage2.com") Then
            MsgBox("Eintrag schon vorhanden")
        Else
            My.Computer.FileSystem.CopyFile( _
    "%windir%\system32\drivers\etc\hosts", _
    "%windir%\system32\drivers\etc\hostsalt", _
    FileIO.UIOption.AllDialogs, _
    FileIO.UICancelOption.DoNothing)
 
            My.Computer.FileSystem.DeleteFile( _
              "%windir%\system32\drivers\etc\hosts")
 
            Dim file As System.IO.FileStream
            file = System.IO.File.Create("%windir%\system32\drivers\etc\hosts")
 
 
            With My.Computer.FileSystem.OpenTextFileWriter( _
            "%windir%\system32\drivers\etc\hosts", False)
                .WriteLine("### Chebre Hosts - File ###")
                .WriteLine("### Chebre L2 RP Freeshard ###")
                .WriteLine("127.0.0.1 localhost")
                .WriteLine("78.46.67.51 l2authd.lineage2.com")
                .WriteLine("78.46.67.51 nprotect.lineage2.com")
                .WriteLine("216.107.250.194 update.nProtect.com")
                .WriteLine("216.107.250.194 update.nProtect.net")
                .WriteLine("## Rechange setzt die Hosts ##")
                .WriteLine("## wieder auf eure Alte um ##")
                .Close()
            End With
 
            Process.Start("cmd.exe", "/C ipconfig/flushdns")
 
            If PingHostOrIP("l2authd.lineage2.com") Then
                Label1.Text = "Verbindung erfolgreich"
            Else
                Label1.Text = "Fehler bei der Verbindung"
            End If
 
        End If
    End Sub
    Public Shared Function PingHostOrIP(ByVal HostOrIP As String) As Boolean
        Try
            Return My.Computer.Network.Ping("78.46.67.51")
        Catch
        End Try
    End Function