本帖最后由 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)
