L2J L2 J Patcher

[B1ggBoss]

Its a little tool that will allow player to patch his hosts to play your server, full reinstall them if he alredy edited them, download a new one from a specific ftp directory (if your ip changes), launch the game, back up his old hosts and restore them. Is writted on Visual Basic, so you will need to download it. The image style is mine. I dont upload it cuz is a waste of time, create your own style is matter of minutes. I upload the script

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Finalize()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button1, "Click Here to patch you host")
        Dim Texto As String
 
        Texto = "127.0.0.1  l2auth.lineage2.com" & vbNewLine & _
             "127.0.0.1 l2testauth.lineage2.com" & vbNewLine & _
             "216.107.250.194 nprotect.lineage2.com" & vbNewLine & _
             "216.107.250.194 update.nProtect.com" & vbNewLine & _
             "216.107.250.194 update.nProtect.net" & vbNewLine
 
        My.Computer.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\HOSTS", Texto, True)
        MsgBox("Hosts Pathed")
 
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button2, "Click here to run the Lineage II Game")
        Shell("system\L2.exe", 1)
        Finalize()
 
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button5, "Click here if your hosts are alredy edited and you want to repatch them")
        My.Computer.FileSystem.DeleteFile("C:\WINDOWS\system32\drivers\etc\HOSTS", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        My.Computer.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\HOSTS", String.Empty, False)
 
        Dim Texto As String
 
        Texto = "127.0.0.1   localhost" & vbNewLine & _
       "127.0.0.1   l2auth.lineage2.com" & vbNewLine & _
             "127.0.0.1 l2testauth.lineage2.com" & vbNewLine & _
             "216.107.250.194 nprotect.lineage2.com" & vbNewLine & _
             "216.107.250.194 update.nProtect.com" & vbNewLine & _
             "216.107.250.194 update.nProtect.net" & vbNewLine
 
        My.Computer.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\HOSTS", Texto, True)
        MsgBox("Hosts Resets. You are now able to play L2 Dodge")
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        My.Computer.FileSystem.RenameFile("C:\WINDOWS\system32\drivers\etc\HOSTS", "HOSTS_BACK_UP")
        MsgBox("A security copy of your current hosts has been done")
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        My.Computer.FileSystem.DeleteFile("C:\WINDOWS\system32\drivers\etc\HOSTS", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
        My.Computer.FileSystem.RenameFile("C:\WINDOWS\system32\drivers\etc\HOSTS_BACK_UP", "HOSTS")
        MsgBox("Your old hosts has been restored")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Network.DownloadFile _
    ("http://yourip/dns.here/path/HOSTS", _
    "C:\WINDOWS\system32\drivers\etc\")
       MsgBox("Your Hosts has been updated")
 
    End Sub
End Class

Credits: BiggBoss

 

[tony2108]

grea post and source code i hope i will be ok if i borrow some parts of it i have my own source code that i used to make WoW Launchers but this is great almost what i was looking for

 

[DaRkAnGeL]

nice big always with new things

 

[Scapoot]

Its up on my server . Thanks didnt want to make my own -,-;.