【开源】【.NET】MC启动模块——停止更新，代码陈旧，不建议使用 - 编程开发

mcmny

本帖最后由 mcmny 于 2015-4-21 13:42 编辑

嗯，最近启动器貌似非常火爆，各种启动器如雨后春笋一样冒了出来，而易语言的启动器因为源码铺天盖地，所以启动器非常多，反而我大.NET寥寥无几。。。所以，我依照我原来做的MMCL启动器重新革新代码，做出了本启动模块。。。
我觉得我做的模块最大的优点便是有强大的错误处理系统可以处理未知错误。。。。
好了，进入正题：
调用方法：MRunmc.MRunmc(name,nc,versions)
传递参数：
name
类型:string
描述：游戏ID
nc
类型:string
描述：以M为单位，游戏内存
versions
类型:string
描述：需要启动的游戏版本(\.minecraft\versions)
返回值：MRunmc.MRunmcreturn结构
结构定义：

错误类型：

启动实例：

下载地址：

开源：

本源代码以LGPL协议为基础发布，请遵守LGPL协议：http://www.gnu.org/licenses/lgpl.html

VB.net:

Imports System.IO
Public Structure MRunmcreturn
Public libraries() As String
Public bat As String
Public suc As Boolean
Public bug As String
Public bugmsg As String
End Structure
Public Class MRunmc
Public Function MRunmc(ByVal name, ByVal nc, ByVal versions)
Try
Dim libraries2(100) As String
Dim MRunmcreturn As New MRunmcreturn
Dim mi As Integer = 0
Dim libraries1 As Integer = 0
Dim a As String
Dim json As String
Dim json1 As String()
a = "java -Xmx" + nc + "m -Dfml.ignoreInvalidMinecraftCertificates=true -Dfml.ignorePatchDiscrepancies=true -Djava.library.path=" + Chr(34) + ".minecraft\natives" + Chr(34) + " -cp " + Chr(34)
json = File.ReadAllText(Directory.GetCurrentDirectory() + "\.minecraft\versions" + versions + "" + versions + ".json")
json1 = json.Split(New String() {Chr(34)}, StringSplitOptions.RemoveEmptyEntries)
For Each m As String In json1
If m = "name" Then
mi = 4
End If
If mi > 0 Then
mi = mi - 1
End If
If mi = 1 And m.Contains(".") And m.Contains(":") Then
Dim mlj As String
Dim mname As String
Dim mmh As Integer = InStr(m, ":")
mlj = Left(m, mmh - 1)
mlj = Directory.GetCurrentDirectory() + "\.minecraft\libraries" + mlj.Replace(".", "")
mname = Right(m, m.Length - mmh + 1)
mlj = mlj + mname.Replace(":", "") + ""
mname = Right(m, m.Length - mmh)
mname = mname.Replace(":", "-") + ".jar;"
libraries2(libraries1) = mlj.Replace(Directory.GetCurrentDirectory() + "\.minecraft\libraries", "") + mname.Replace(";", "")
libraries1 = libraries1 + 1
a = a + mlj + mname
End If
Next
MRunmcreturn.libraries = libraries2
'For Each m1 As String In
' My.Computer.FileSystem.GetDirectories(Directory.GetCurrentDirectory() + "\.minecraft\libraries")
' For Each m2 As String In
' My.Computer.FileSystem.GetDirectories(m1)
' For Each m3 As String In
' My.Computer.FileSystem.GetDirectories(m2)
' For Each m4 As String In
' My.Computer.FileSystem.GetFiles(m3)
' If json1.Contains(Path.GetFileNameWithoutExtension(m4)) Then
' a = a + m4 + ";"
' End If
' Next
' For Each m5 As String In
' My.Computer.FileSystem.GetDirectories(m3)
' For Each m6 As String In
' My.Computer.FileSystem.GetFiles(m5)
' If json1.Contains(Path.GetFileNameWithoutExtension(m6)) Then
' a = a + m6 + ";"
' End If
' Next
' For Each m7 As String In
' My.Computer.FileSystem.GetDirectories(m5)
' For Each m8 As String In
' My.Computer.FileSystem.GetFiles(m7)
' If json1.Contains(Path.GetFileNameWithoutExtension(m8)) Then
' a = a + m8 + ";"
' End If
' Next
' For Each m9 As String In
' My.Computer.FileSystem.GetDirectories(m7)
' For Each m10 As String In
' My.Computer.FileSystem.GetFiles(m9)
' If json1.Contains(Path.GetFileNameWithoutExtension(m10)) Then
' a = a + m10 + ";"
' End If
' Next
' For Each m11 As String In
' My.Computer.FileSystem.GetDirectories(m9)
' For Each m12 As String In
' My.Computer.FileSystem.GetFiles(m11)
' If json1.Contains(Path.GetFileNameWithoutExtension(m12)) Then
' a = a + m12 + ";"
' End If
' Next
' For Each m14 As String In
' My.Computer.FileSystem.GetDirectories(m11)
' For Each m13 As String In
' My.Computer.FileSystem.GetFiles(m14)
' If json1.Contains(Path.GetFileNameWithoutExtension(m13)) Then
' a = a + m13 + ";"
' End If
' Next
' Next
' Next
' Next
' Next
' Next
' Next
' Next
'Next
a = a + Directory.GetCurrentDirectory() + "\.minecraft\versions" + versions + "" + versions + ".jar" + Chr(34)
a = a + " "
a = a + hz(json, name, versions)
'If login = True Then
'Dim mclogin As New yggdrasil.yggdrasil
' mclogin.Login(name, passwd)
'Dim mcfh As New yggdrasil.yggdrasil.LoginInfo
'If mcfh.Suc = False Then
'login = False
'Return mcfh.Errinfo + " 登录错误！"
'Exit Function
'Else
'a = a.Replace("${auth_access_token}", mcfh.SID)
'End If
'login = False
'End If
Try
Shell("java", AppWinStyle.Hide)
Catch ex As FileNotFoundException
MRunmcreturn.suc = False
MRunmcreturn.bug = "notfoundjava"
MRunmcreturn.bugmsg = "找不到java，请确认已安装java或java安装正确！"
Return MRunmcreturn
Exit Function
End Try
MRunmcreturn.bat = a
MRunmcreturn.suc = True
Return MRunmcreturn
Catch cw As Exception
Dim MRunmcreturn As New MRunmcreturn
MRunmcreturn.suc = False
MRunmcreturn.bug = ""
MRunmcreturn.bugmsg = cw.Message
Return MRunmcreturn
Exit Function
End Try
End Function
Private Function assetIndex(ByVal json As String)
Dim a1 As Boolean = False
Dim a As Integer = 0
Dim json1 As String() = json.Split(New String() {Chr(34)}, StringSplitOptions.RemoveEmptyEntries)
For Each m As String In json1
If m = "assets" Then
a1 = True
End If
If a = 2 Then
Return m
Exit For
End If
If a1 = True Then
a = a + 1
End If
Next
End Function
Private Function hz(ByVal json As String, ByVal name As String, ByVal versions As String)
'Dim a As Integer
Dim json3 As String = mainclass(json)
Dim json1 As String() = json.Split(New String() {Chr(34)}, StringSplitOptions.RemoveEmptyEntries)
For Each json2 As String In json1
If json2.Contains("--") Then
json3 = json3 + " " + json2
Exit For
End If
'If json2.Contains(Chr(34)) Then
' a = InStr(json2, Chr(34))
' json2 = Left(json2, a - 1)
'End If
'If json2.Contains("[ DISCUZ_CODE_2 ]quot;) Or (json2.Contains(".") And json2.Contains(Chr(34)) <> True) Then
' json2 = "--" + json2
' json3 = json3 + " " + json2
'End If
Next
json3 = json3.Replace("${game_directory}", ".minecraft")
json3 = json3.Replace("${assets_root}", ".minecraft\assets")
json3 = json3.Replace("${game_assets}", ".minecraft\assets")
json3 = json3.Replace("${user_properties}", "{}")
json3 = json3.Replace("${auth_player_name}", name)
json3 = json3.Replace("${version_name}", versions)
If json3.Contains("${assets_index_name}") Then
json3 = json3.Replace("${assets_index_name}", assetIndex(json))
End If
Return json3
End Function
'If json2.Contains("id") Then
' json2 = ""
' End If
'json2 = json2.Replace(Environment.NewLine, "")
'json2 = json2.Replace("{", "")
'If json2.Contains("}") And json2.Contains("[ DISCUZ_CODE_2 ]quot;) Then
' json2 = "--" + json2
' End If
'If json2.Contains(".") Then
'json2 = "--" + json2
'End If
'If json2.Contains(Chr(34)) Then
'a = InStr(json2, Chr(34))
'json2 = Left(json2, a - 1)
'End If
'json2 = json2.Replace("[ DISCUZ_CODE_2 ]quot;, "${")
Private Function mainclass(ByVal json As String)
Dim a1 As Boolean = False
Dim a As Integer = 0
Dim json1 As String() = json.Split(New String() {Chr(34)}, StringSplitOptions.RemoveEmptyEntries)
For Each m As String In json1
If m = "mainClass" Then
a1 = True
End If
If a = 2 Then
Return m
Exit For
End If
If a1 = True Then
a = a + 1
End If
Next
End Function
End Class

复制代码

C#:
懒得转成C#了。。。。

求人气，求金币!

mcmny

本帖最后由 mcmny 于 2014-12-14 22:41 编辑

@zhh0000zhh @zhh0000zhh
@zhh0000zhh
@zhh0000zhh
@zhh0000zhh

@zhh0000zhh

1165392650

能开发个- -云登陆器就好了

mcmny

1165392650 发表于 2014-12-14 22:09
能开发个- -云登陆器就好了

这其实就是一个启动代码生成模块，可以用来开发启动器。。。

1165392650

mcmny 发表于 2014-12-14 22:13
这其实就是一个启动代码生成模块，可以用来开发启动器。。。

- -..........希望你弄个可以搜索服务器人数，延迟的启动器，

huanghongxun

@KMCCC。。。
http://www.mcbbs.net/forum.php?m ... amp;highlight=KMCCC

mcmny

huanghongxun 发表于 2014-12-15 13:01
@KMCCC。。。
http://www.mcbbs.net/forum.php?mod=viewthread&tid=333211&highlight=KMCCC

这个和KMCCC还是不同的，这个是DLL类库模块，KMCCC是一个完整的启动器。。。而且我相信我的代码不会和KMCCC的一样，因为我的代码都是很奇葩的。。。

zhh0000zhh

mcmny 发表于 2014-12-14 21:54
@zhh0000zhh @zhh0000zhh
@zhh0000zhh
@zhh0000zhh

其实，到最后你也没能@ 上我。。
我无意中看到的。。
咳咳，从体积上看。。咳咳，你忘记处理Native了。。

mcmny

zhh0000zhh 发表于 2014-12-15 19:19
其实，到最后你也没能@ 上我。。
我无意中看到的。。
咳咳，从体积上看。。咳咳，你忘记处理Native了。。 ...

natives要处理？？？我是按照mclauncher（旋律）生成的启动代码仿照做的，直接使用-Djava.library.path=".minecraft\natives"概括了。。。。

我是M哥

似乎有个相似的模块

zhh0000zhh

mcmny 发表于 2014-12-15 19:23
natives要处理？？？我是按照mclauncher（旋律）生成的启动代码仿照做的，直接使用-Djava.library.path=" ...

旋律的native是固定的，永远用2.9.0
标准的不是这样
官方是在versions下每次解压缩，然后游戏结束后删除，BMCL貌似也是
MCBN是每次启动解压缩native到native底下
HMCL不知道。。但是也是启动后退出的，所以他也是不删除native的。

鱼青余

Lz头像吊炸天

huanghongxun

mcmny 发表于 2014-12-15 19:11
这个和KMCCC还是不同的，这个是DLL类库模块，KMCCC是一个完整的启动器。。。而且我相信我的代码不会和KMC ...

KMCCC是类库来的。。

mcmny

huanghongxun 发表于 2014-12-15 21:42
KMCCC是类库来的。。

不是吧。。。我一直以来以为是启动器。。。。。。

alex1245133

對我應該有用的QAQ