【开源】【.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

下一页最后一页