'данный код работает только с mc 1.6.x и выше!!!
Dim memory As Integer 'Кол-во выделяемой памяти
Dim DirName As String = "minecraft" 'Папка с клиентами
Dim CurClient As String = "testserv" 'текущая папка с клиентом
Dim MVersion As String = "1.6.2" 'Версия игры
Dim ForgeVersion As String = "9.10.0.800" 'Версия Forge
Sub StartMc16(ByVal username As String, ByVal sessid As String, ByVal UseForge16 As boolean)
Try
Dim java As String = "C:\Program Files\Java\jre7\bin\javaw.exe"
Dim path As String = Environ("Appdata") & "\." & DirName & "\" & CurClient & "\"
Dim mcClass As String = "net.minecraft.client.Minecraft"
Dim param As String
If UseForge16 = True Then 'если False то Forge не будет
param = "-Xmx" & memory & "M -Djava.library.path=" & ControlChars.Quote & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\versions\" & MVersion & "\" & MVersion & "-natives" & ControlChars.Quote & " -cp " & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\minecraftforge\minecraftforge\" & ForgeVersion & "\minecraftforge-" & ForgeVersion & ".jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\minecraft\launchwrapper\1.3\launchwrapper-1.3.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\ow2\asm\asm-all\4.1\asm-all-4.1.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\sf\jopt-simple\jopt-simple\4.5\jopt-simple-4.5.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\lzma\lzma\0.0.1\lzma-0.0.1.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\codecjorbis\20101023\codecjorbis-20101023.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\codecwav\20101023\codecwav-20101023.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\libraryjavasound\20101123\libraryjavasound-20101123.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\librarylwjglopenal\20100824\librarylwjglopenal-20100824.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\soundsystem\20120107\soundsystem-20120107.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\lwjgl\lwjgl\lwjgl\2.9.0\lwjgl-2.9.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.0\lwjgl_util-2.9.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\argo\argo\2.25_fixed\argo-2.25_fixed.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\bouncycastle\bcprov-jdk15on\1.47\bcprov-jdk15on-1.47.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\google\guava\guava\14.0\guava-14.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\apache\commons\commons-lang3\3.1\commons-lang3-3.1.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\commons-io\commons-io\2.4\commons-io-2.4.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\java\jinput\jinput\2.0.5\jinput-2.0.5.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\java\jutils\jutils\1.0.0\jutils-1.0.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\google\code\gson\gson\2.2.2\gson-2.2.2.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\lwjgl\lwjgl\lwjgl\2.9.0\lwjgl-2.9.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.0\lwjgl_util-2.9.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\versions\" & MVersion & "\" & MVersion & ".jar net.minecraft.launchwrapper.Launch --username " & username & " --session " & sessid & " --version " & MVersion & " --gameDir " & Environ("Appdata") & "\." & DirName & "\" & CurClient & " --assetsDir " & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\assets --tweakClass cpw.mods.fml.common.launcher.FMLTweaker"
Else
param = "-Xmx" & memory & "M -Djava.library.path=" & ControlChars.Quote & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\versions\" & MVersion & "\" & MVersion & "-natives" & ControlChars.Quote & " -cp " & ControlChars.Quote & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\sf\jopt-simple\jopt-simple\4.5\jopt-simple-4.5.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\codecjorbis\20101023\codecjorbis-20101023.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\codecwav\20101023\codecwav-20101023.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\libraryjavasound\20101123\libraryjavasound-20101123.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\librarylwjglopenal\20100824\librarylwjglopenal-20100824.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\paulscode\soundsystem\20120107\soundsystem-20120107.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\argo\argo\2.25_fixed\argo-2.25_fixed.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\bouncycastle\bcprov-jdk15on\1.47\bcprov-jdk15on-1.47.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\google\guava\guava\14.0\guava-14.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\apache\commons\commons-lang3\3.1\commons-lang3-3.1.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\commons-io\commons-io\2.4\commons-io-2.4.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\java\jinput\jinput\2.0.5\jinput-2.0.5.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\net\java\jutils\jutils\1.0.0\jutils-1.0.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\com\google\code\gson\gson\2.2.2\gson-2.2.2.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\lwjgl\lwjgl\lwjgl\2.9.0\lwjgl-2.9.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.0\lwjgl_util-2.9.0.jar;" & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\versions\1.6.2\1.6.2.jar" & ControlChars.Quote & " net.minecraft.client.main.Main --username " & username & " --session " & sessid & " --version " & MVersion & " --gameDir " & ControlChars.Quote & Environ("Appdata") & "\." & DirName & "\" & CurClient & "" & ControlChars.Quote & " --assetsDir " & ControlChars.Quote & Environ("Appdata") & "\." & DirName & "\" & CurClient & "\assets" & ControlChars.Quote & ""
End If
Dim p As New Process
p.StartInfo.CreateNoWindow = True
p.StartInfo.UseShellExecute = False
p.StartInfo.Arguments = param
p.StartInfo.FileName = java
p.Start()
Catch ex As Exception
MsgBox("ОШИБКА!!!")
End Try
End Sub