Minecraft Version Changer

Dre@m$ · Nov 10 2012, 04:34 PM

jesus Double post on Crack

PaSS · Feb 01 2014, 08:35 AM

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

Dre@m$

PaSS