(wL) Forums
Minecraft Version Changer - Printable Version

+- (wL) Forums (https://war-lords.net/forum)
+-- Forum: Resources (https://war-lords.net/forum/forum-31.html)
+--- Forum: Programming (https://war-lords.net/forum/forum-33.html)
+---- Forum: War-Lords Production (https://war-lords.net/forum/forum-34.html)
+---- Thread: Minecraft Version Changer (/thread-6729.html)

Pages: 1 2 3 4

RE: Minecraft Version Changer - Dre@m$ - Nov 10 2012

jesus Double post on Crack

RE: Minecraft Version Changer - PaSS - Feb 01 2014

LOL you better belive it Smile

Double post

Code was re done completely as i am now using vb.net Smile

The Code
Code:
Public Class Form1
    Dim minecraft As String = "C:\Users\" & System.Environment.UserName & "\AppData\Roaming\.minecraft\bin\"
    Dim apppath = New System.IO.FileInfo(Application.ExecutablePath).DirectoryName
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ComboBox1.Text = "1.0" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.0.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.0.jar", minecraft & "minecraft1.0.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.0.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.1" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.1.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.1.jar", minecraft & "minecraft1.1.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.1.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.2" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.2.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.2.jar", minecraft & "minecraft1.2.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.2.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.2.2" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.2.2.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.2.2.jar", minecraft & "minecraft1.2.2.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.2.2.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.2.3" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.2.3.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.2.3.jar", minecraft & "minecraft1.2.3.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.2.3.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.2.4" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.2.4.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.2.4.jar", minecraft & "minecraft1.2.4.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.2.4.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.2.5" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.2.5.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.2.5.jar", minecraft & "minecraft1.2.5.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.2.5.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.3" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.3.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.3.jar", minecraft & "minecraft1.3.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.3.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.3.1" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.3.1.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.3.1.jar", minecraft & "minecraft1.3.1.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.3.1.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.3.2" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.3.2.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.3.2.jar", minecraft & "minecraft1.3.2.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.3.2.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.4.2" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.4.2.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.4.2.jar", minecraft & "minecraft1.4.2.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.4.2.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.4.5" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.4.5.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.4.5.jar", minecraft & "minecraft1.4.5.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.4.5.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

        If ComboBox1.Text = "1.4.6" Then
            System.IO.File.Delete(minecraft & "minecraft.jar")
            System.IO.File.Delete(minecraft & "minecraft1.4.6.jar")
            System.IO.File.Copy(apppath & "\files\Minecraft_Jar_Files\minecraft1.4.3.jar", minecraft & "minecraft1.4.6.jar")
            My.Computer.FileSystem.RenameFile(minecraft & "minecraft1.4.6.jar", "minecraft.jar")
            MsgBox("Version Changed", , "Changed")
        End If

    End Sub

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

        ComboBox1.Items.Add("1.0")
        ComboBox1.Items.Add("1.1")
        ComboBox1.Items.Add("1.2")
        ComboBox1.Items.Add("1.2.2")
        ComboBox1.Items.Add("1.2.3")
        ComboBox1.Items.Add("1.2.4")
        ComboBox1.Items.Add("1.2.5")
        ComboBox1.Items.Add("1.3")
        ComboBox1.Items.Add("1.3.1")
        ComboBox1.Items.Add("1.3.2")
        ComboBox1.Items.Add("1.4.2")
        ComboBox1.Items.Add("1.4.5")
        ComboBox1.Items.Add("1.4.6")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Process.Start(apppath & "\Files\Free.exe")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start(apppath & "\Files\Premium.exe")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start(apppath & "\Files\Magic.exe")
    End Sub
End Class


Double post

Project has been dropped