Module Minecraft_Launcher
Public Sub LaunchMinecraft
Dim CaseNum as Integer
Dim AppData As String = GetFolderPath(SpecialFolder.ApplicationData)
Dim mcroot as string = (AppData & "\.minecraft\")
'Finds Java Sets Case Number
If IO.File.Exists("C:\Program Files\Java\jre7\bin\java.exe") Then CaseNum = 1
If IO.File.Exists("C:\Program Files\Java\jre6\bin\java.exe") Then CaseNum = 2
If IO.File.Exists("C:\Program Files (x86)\Java\jre7\bin\java.exe") Then CaseNum = 3
If IO.File.Exists("C:\Program Files (x86)\Java\jre6\bin\java.exe") Then CaseNum = 4
'Finds Case & Executes
Select Case CaseNum
Case 1
Dim JRE7_64BIT = New ProcessStartInfo("C:\Program Files\Java\jre7\bin\java.exe", " -cp " & mcroot & "bin\minecraft.jar;" & mcroot
& "bin\lwjgl.jar;" & mcroot & "bin\lwjgl_util.jar;" & mcroot & "bin\jinput.jar; -Djava.library.path=" & mcroot & "bin\natives -Xmx" & xmx & " -Xms" &
xms & " net.minecraft.client.Minecraft " & Sloth & " " & 1337)
JRE7_64BIT.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(JRE7_64BIT)
Case 2
Dim JRE6_64BIT = New ProcessStartInfo("C:\Program Files\Java\jre6\bin\java.exe", " -cp " & mcroot & "bin\minecraft.jar;" & mcroot
& "bin\lwjgl.jar;" & mcroot & "bin\lwjgl_util.jar;" & mcroot & "bin\jinput.jar; -Djava.library.path=" & mcroot & "bin\natives -Xmx" & xmx & " -Xms" &
xms & " net.minecraft.client.Minecraft " & Sloth & " " & 1337)
JRE6_64BIT.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(JRE6_64BIT)
Case 3
Dim JRE7_32BIT = New ProcessStartInfo("C:\Program Files (x86)\Java\jre7\bin\java.exe", " -cp " & mcroot & "bin\minecraft.jar;" &
mcroot & "bin\lwjgl.jar;" & mcroot & "bin\lwjgl_util.jar;" & mcroot & "bin\jinput.jar; -Djava.library.path=" & mcroot & "bin\natives -Xmx" & xmx & "
-Xms" & xms & " net.minecraft.client.Minecraft " & Sloth & " " & 1337)
JRE7_32BIT.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(JRE7_32BIT)
Case 4
Dim JRE6_32BIT = New ProcessStartInfo("C:\Program Files (x86)\Java\jre6\bin\java.exe", " -cp " & "bin\minecraft.jar;" & mcroot &
"bin\lwjgl.jar;" & mcroot & "bin\lwjgl_util.jar;" & mcroot & "bin\jinput.jar; -Djava.library.path=" & mcroot & "bin\natives -Xmx" & xmx & " -Xms" &
xms & " net.minecraft.client.Minecraft " & Sloth & " " & 1337)
JRE6_32BIT.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(JRE6_32BIT)
Case Else
MsgBox("Please install JRE 7 to play Mine Craft")
End Select
End Sub
End Module
Copyright © 2024, NextGenUpdate.
All Rights Reserved.