[開源]MCLauncherVB 簡潔啓動器正式版 6.22重大更新增加正版登录功能

本帖最后由 npfjcg 于 2013-6-22 21:23 编辑

由于LZ要中考了，所以这是暑假之前的最后一个更新。
特性：
1.支持1.6啓動（需要專用庫文件）
2.支持自動識別Java和內存
更新内容：
1.增加游戏更新下载
2.增加正版登录功能
3.优化了界面，大大增加了启动速度，减少了软件体积
截圖：

感謝Knight的VB源碼和seraph0012的1.6源碼
下載地址：

欢迎各位提交BUG报告
关键部分源码：

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

复制代码

查毒报告：
http://r.virscan.org/report/d4d0374824fc4ccf40654a4ec6afebb5.html

服主定制版：

服主定制版.rar (500.2 KB, 下载次数: 64)

设置.PNG (13.04 KB, 下载次数: 2)

主界面.PNG (263.57 KB, 下载次数: 3)

[開源]MCLauncherVB 簡潔啓動器 正式版 6.22重大更新 增加正版登录功能

回复:

[開源]MCLauncherVB 簡潔啓動器正式版 6.22重大更新增加正版登录功能