启动器登陆模块标准化尝试

本帖最后由 zhh0000zhh 于 2015-1-3 23:11 编辑

近日我与bangbang就启动器插件问题进行了讨论，决定统一BMCL与MCLauncherBN的插件格式
同时欢迎其他启动器加入该标准

今后将更新为SharpLoginApi，正在进行协议商讨

由于MineLogin已经彻底死翘翘，故删除MineLogin插件！

BMCL （点击进入）
使用方法：放入auths文件夹中(如不存在，请创建)
目前兼容插件版本：V2
兼容V2最小版本：V2.9
兼容V1最小版本：V2.4

MCLauncherBN （点击进入）
使用方法：放入login文件夹中(如不存在，请创建)
目前兼容插件版本：V2
兼容V2最小版本：Release3.0
兼容V1最小版本：Beta2.22

第一代插件标准说明
结构说明

twitch使用方法：
http://www.mcbbs.net/thread-198946-1-1.html

DLL定义
VB.net

启动器调用(第一代)
VB.net

Structure LoginInfo
      Dim UN As String
      Dim UID As String
      Dim SID As String
      Dim Suc As Boolean
      Dim Errinfo As String
      Dim OtherInfo As String
      Dim Client_identifier As String
End Structure
Function GetName(DLLpath As String) As String
      Dim a As Reflection.Assembly
      Dim obj As Object = Nothing
      Dim m As System.Reflection.MethodInfo = Nothing
      a = Reflection.Assembly.LoadFile(DLLpath)
      For Each classtemp As Type In a.GetTypes
         Dim t As String
         t = classtemp.FullName
         Dim strs() As String
         strs = t.Split(".")
         If classtemp.GetMethod("GetName") <> Nothing Then
            m = classtemp.GetMethod("GetName")
            obj = a.CreateInstance(classtemp.FullName)
         End If
      Next
      Return m.Invoke(obj, {"zh-cn"})
End Function
Function GetVer(DLLpath As String) As String
      Dim a As Reflection.Assembly
      Dim obj As Object = Nothing
      Dim m As System.Reflection.MethodInfo = Nothing
      a = Reflection.Assembly.LoadFile(DLLpath)
      For Each classtemp As Type In a.GetTypes
         Dim t As String
         t = classtemp.FullName
         Dim strs() As String
         strs = t.Split(".")
         If classtemp.GetMethod("GetVer") <> Nothing Then
            m = classtemp.GetMethod("GetVer")
            obj = a.CreateInstance(classtemp.FullName)
         End If
      Next
      Return m.Invoke(obj, {})
End Function
Function DLLLogin(DLLpath As String, username As String, password As String, Optional Client_identifier As String = "", Optional Lanauge As String = "zh-cn") As LoginInfo
      Dim a As Reflection.Assembly
      Dim obj As Object = Nothing
      Dim LoginInfo As Object
      Dim m As System.Reflection.MethodInfo = Nothing
      Dim LI As LoginInfo
      a = Reflection.Assembly.LoadFile(DLLpath)
      For Each classtemp As Type In a.GetTypes
         Dim str As String
         str = classtemp.FullName
         Dim strs() As String
         strs = str.Split(".")
         If InStr(strs(UBound(strs)), "+logininfo", CompareMethod.Text) > 0 Then
            LoginInfo = a.CreateInstance(classtemp.FullName)
         End If
         If classtemp.GetMethod("Login") <> Nothing Then
            m = classtemp.GetMethod("Login")
            obj = a.CreateInstance(classtemp.FullName)
         End If
      Next
      LoginInfo = m.Invoke(obj, {username, password, Client_identifier, Lanauge})
      Dim ww As Type
      ww = LoginInfo.GetType
      LI.Suc = ww.GetField("Suc").GetValue(LoginInfo)
      If LI.Suc Then
         LI.UN = ww.GetField("UN").GetValue(LoginInfo)
         LI.UID = ww.GetField("UID").GetValue(LoginInfo)
         LI.SID = ww.GetField("SID").GetValue(LoginInfo)
         LI.OtherInfo = ww.GetField("OtherInfo").GetValue(LoginInfo)
         LI.Client_identifier = ww.GetField("Client_identifier").GetValue(LoginInfo)
      Else
         LI.Errinfo = ww.GetField("Errinfo").GetValue(LoginInfo)
      End If
      Return LI
End Function

第二代插件标准说明
结构说明

DLL定义
VB.net

启动器调用(第二代)
VB.net

Structure LoginInfo
      Dim UN As String '显示的用户名 '仅为兼容第一代，如不兼容可无此项目
      Dim UID As String 'User ID  '仅为兼容第一代，如不兼容可无此项目
      Dim SID As String 'Session ID '仅为兼容第一代，如不兼容可无此项目
      Dim OtherInfo As String '其他信息 '仅为兼容第一代，如不兼容可无此项目
      Dim Client_identifier As String  '仅为兼容第一代，如不兼容可无此项目
      Dim Suc As Boolean '登陆是否成功
      Dim Errinfo As String '失败错误信息
      Dim OutInfo As String '第二代输出信息
End Structure
Function GetFun(FunName As String, DLLPath As String) As Object()
      Dim a As Reflection.Assembly
      Dim obj As Object = Nothing
      Dim m As System.Reflection.MethodInfo = Nothing
      a = Reflection.Assembly.LoadFile(DLLPath)
      For Each classtemp As Type In a.GetTypes
         Dim t As String
         t = classtemp.FullName
         Dim strs() As String
         strs = t.Split(".")
         If classtemp.GetMethod(FunName) <> Nothing Then
            m = classtemp.GetMethod(FunName)
            obj = a.CreateInstance(classtemp.FullName)
         End If
      Next
      If m Is Nothing Then
         Return {"0"}
      End If
      Return {m, obj}
End Function
Function GetVer(DLLpath As String) As String
      Dim obj1 As Object()
      Dim m As System.Reflection.MethodInfo
      obj1 = GetFun("GetVersion", "t:\yggdrasil.dll")
      If obj1.Length = 1 Then
         Return "1"
      Else
         m = obj1(0)
         Return m.Invoke(obj1(1), {2})
      End If
End Function
Function GetName(DLLpath As String) As String
      Dim a As Reflection.Assembly
      Dim obj As Object = Nothing
      Dim m As System.Reflection.MethodInfo = Nothing
      a = Reflection.Assembly.LoadFile(DLLpath)
      For Each classtemp As Type In a.GetTypes
         Dim t As String
         t = classtemp.FullName
         Dim strs() As String
         strs = t.Split(".")
         If classtemp.GetMethod("GetName") <> Nothing Then
            m = classtemp.GetMethod("GetName")
            obj = a.CreateInstance(classtemp.FullName)
         End If
      Next
      Return m.Invoke(obj, {"zh-cn"})
End Function
Function DLLLogin(DLLpath As String, username As String, password As String, Optional Client_identifier As String = "", Optional Lanauge As String = "zh-cn") As LoginInfo
      Dim a As Reflection.Assembly
      Dim obj As Object = Nothing
      Dim LoginInfo As Object
      Dim m As System.Reflection.MethodInfo = Nothing
      Dim LI As LoginInfo
      a = Reflection.Assembly.LoadFile(DLLpath)
      For Each classtemp As Type In a.GetTypes
         Dim str As String
         str = classtemp.FullName
         Dim strs() As String
         strs = str.Split(".")
         If InStr(strs(UBound(strs)), "+logininfo", CompareMethod.Text) > 0 Then
            LoginInfo = a.CreateInstance(classtemp.FullName)
         End If
         If classtemp.GetMethod("Login") <> Nothing Then
            m = classtemp.GetMethod("Login")
            obj = a.CreateInstance(classtemp.FullName)
         End If
      Next
      LoginInfo = m.Invoke(obj, {username, password, Client_identifier, Lanauge})
      Dim ww As Type
      ww = LoginInfo.GetType
      LI.Suc = ww.GetField("Suc").GetValue(LoginInfo)
      If LI.Suc Then
         LI.UN = ww.GetField("UN").GetValue(LoginInfo)
         LI.UID = ww.GetField("UID").GetValue(LoginInfo)
         LI.SID = ww.GetField("SID").GetValue(LoginInfo)
         LI.OtherInfo = ww.GetField("OtherInfo").GetValue(LoginInfo)
         LI.Client_identifier = ww.GetField("Client_identifier").GetValue(LoginInfo)
      Else
         LI.Errinfo = ww.GetField("Errinfo").GetValue(LoginInfo)
      End If
      Return LI
End Function

已完成Legacy正版验证、Skinme验证、minelogin验证、yggdrasil正版验证（即一个账号多个用户的新版验证系统）
yggdrasil插件定义

选择方法

下载地址
基于.net2.0 建议MCLauncherBN

基于.net4.0 建议BMCL

启动器登陆模块标准化尝试

回复: