Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Minecraft Version Changer
#31
jesus Double post on Crack
~The lonely Stoner seems to free his mind at night~
#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

Users browsing this thread: 1 Guest(s)