Nov 10 2012, 04:34 PM
jesus Double post on Crack
~The lonely Stoner seems to free his mind at night~
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
Users browsing this thread: 1 Guest(s)