[開源]MCLauncherVB 簡潔啓動器正式版 6.22重大更新增加正版登录功能 - Minecraft(我的世界)中文论坛

1.6部分

Public Sub Launch16()
Dim I As String, J As String, x As String, B As Long, c As Long
If Javaexe Then
J = Chr(34) + JavaPath + "\java.exe" + Chr(34)
Else
J = Chr(34) + JavaPath + "\javaw.exe" + Chr(34)
End If
I = " -Xmx" + Trim(Str(Maxram)) + "m " + Chr(34) + "-Djava.library.path=.minecraft\versions" + P + "" + P + "-natives" + Chr(34) + " -cp " + Chr(34) + ".minecraft\libraries\jopt-simple-4.4.jar;.minecraft\libraries\codecjorbis-20101023.jar;.minecraft\libraries\codecwav-20101023.jar;.minecraft\libraries\libraryjavasound-20101123.jar;.minecraft\libraries\20100824\librarylwjglopenal-20100824.jar;.minecraft\libraries\soundsystem-20120107.jar;.minecraft\libraries\lwjgl-2.9.0.jar;.minecraft\libraries\lwjgl_util-2.9.0.jar;.minecraft\libraries\argo-2.25_fixed.jar;.minecraft\libraries\bcprov-jdk15on-1.47.jar;.minecraft\libraries\guava-14.0.jar;.minecraft\libraries\commons-lang3-3.1.jar;.minecraft\libraries\commons-io-2.4.jar;.minecraft\libraries\jinput-2.0.5.jar;.minecraft\libraries\jutils-1.0.0.jar;.minecraft\versions" + P + "" + P + ".jar" + Chr(34) + " net.minecraft.client.main.Main --username " + Username + " --workDir " + Chr(34) + ".minecraft"
c = SetEnvironmentVariable("APPDATA", App.Path)
B = ShellExecute(GetDesktopWindow(), "Open", J, I, App.Path, 1)
End Sub

复制代码

正版部分

Public Sub ZhengbanLaunch()
Dim x, ws, q() As String
Set x = CreateObject("Microsoft.XMLHTTP")
x.Open "GET", "http://login.minecraft.net/?user=" + Username + "&password=" + Password + "&version=13", 0
z = x.Send()
q = Split(x.responseText, ":")
Set x = Nothing
If UBound(q) < 3 Then
MsgBox "wrong password~! --wbb"
Else
Dim I As String, J As String, B As Long, c As Long
If Javaexe Then
J = Chr(34) + JavaPath + "\java.exe" + Chr(34)
Else
J = Chr(34) + JavaPath + "\javaw.exe" + Chr(34)
End If
I = "-Xincgc" + " -Xmx" + Trim(Str(Maxram)) + "M -cp .\.minecraft\bin\jinput.jar;.\.minecraft\bin\lwjgl.jar;.\.minecraft\bin\lwjgl_util.jar;.\.minecraft\bin\minecraft.jar -Djava.library.path=" + Chr(34) + ".\.minecraft\bin\natives" + Chr(34) + " net.minecraft.client.Minecraft " + q(2) + " " + q(3)
B = ShellExecute(GetDesktopWindow(), "Open", J, I, App.Path, 1)
End If
End Sub

复制代码