Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Minecraft Version Changer
PaSS Offline

Posting Freak

Feb 01 2014, 08:35 AM
#32
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
Reply
Next Oldest Next Newest

Messages In This Thread
Minecraft Version Changer - by PaSS - Apr 06 2012, 02:05 AM
RE: Minecraft Version Changer - by PaSS - Apr 13 2012, 06:01 PM
RE: Minecraft Version Changer - by Leaky - Apr 16 2012, 06:45 PM
RE: Minecraft Version Changer - by PaSS - Apr 16 2012, 06:49 PM
RE: Minecraft Version Changer - by Leaky - Apr 16 2012, 06:56 PM
RE: Minecraft Version Changer - by PaSS - Apr 16 2012, 06:58 PM
RE: Minecraft Version Changer - by Leaky - Apr 16 2012, 07:03 PM
RE: Minecraft Version Changer - by PaSS - Apr 16 2012, 07:08 PM
RE: Minecraft Version Changer - by PaSS - Apr 20 2012, 08:28 AM
RE: Minecraft Version Changer - by PaSS - Apr 29 2012, 07:17 AM
RE: Minecraft Version Changer - by PaSS - May 02 2012, 05:03 PM
RE: Minecraft Version Changer - by PaSS - May 13 2012, 10:30 PM
RE: Minecraft Version Changer - by PaSS - May 21 2012, 08:59 PM
RE: Minecraft Version Changer - by PaSS - May 24 2012, 10:19 PM
RE: Minecraft Version Changer - by PaSS - Jun 04 2012, 05:06 PM
RE: Minecraft Version Changer - by PaSS - Aug 01 2012, 09:54 PM
RE: Minecraft Version Changer - by Faultless - Aug 01 2012, 11:42 PM
RE: Minecraft Version Changer - by PaSS - Aug 07 2012, 02:17 AM
RE: Minecraft Version Changer - by Dre@m$ - Aug 08 2012, 05:39 PM
RE: Minecraft Version Changer - by PaSS - Aug 09 2012, 04:44 PM
RE: Minecraft Version Changer - by Dre@m$ - Aug 09 2012, 06:44 PM
RE: Minecraft Version Changer - by PaSS - Aug 16 2012, 10:18 PM
RE: Minecraft Version Changer - by Dre@m$ - Aug 17 2012, 06:11 PM
RE: Minecraft Version Changer - by PaSS - Aug 18 2012, 06:02 AM
RE: Minecraft Version Changer - by Dre@m$ - Aug 20 2012, 06:40 PM
RE: Minecraft Version Changer - by PaSS - Aug 23 2012, 03:41 PM
RE: Minecraft Version Changer - by Dre@m$ - Aug 23 2012, 04:37 PM
RE: Minecraft Version Changer - by PaSS - Aug 23 2012, 04:43 PM
RE: Minecraft Version Changer - by Dre@m$ - Aug 23 2012, 04:48 PM
RE: Minecraft Version Changer - by PaSS - Oct 30 2012, 09:23 PM
RE: Minecraft Version Changer - by Dre@m$ - Nov 10 2012, 04:34 PM
RE: Minecraft Version Changer - by PaSS - Feb 01 2014, 08:35 AM

Users browsing this thread: 1 Guest(s)