Minecraft-Chat-Bot, Packet handling & Tipps ?

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Manawyrm.

    Minecraft-Chat-Bot, Packet handling & Tipps ?

    Hallo, Liebes VB-Forum !
    Vor einigen Tagen bin ich mal auf das Spiel "Minecraft" gestossen und war sofort begeistert... Ich habe ein Paar Dinge recherchiert und bin dabei auf den Sourcecode vom sogenannten Minebot[Klick] gestossen.
    Da ich schon immer mal vor hatte auch etwas in die Richtung zu machen habe ich angefangen mir das Grundwissen dafür anzueignen...
    Nun zu meinem Vorhaben:
    Ich habe vor einen kleinen "Bot" (vorerst für private Zwecke) zu schreiben, Der sich auf einen sogenannten Vanilla-Server (ein Minecraft-Server ohne Mods) verbinden kann. Das Ziel davon wäre, dass dieser Benutzername dann Operator-Rechte bekommt und im Chat nach z.B Beleidigungen sucht und dann den dementsprechenden Nutzer kickt... Ich weiss es gibt auch die Möglichkeit mit Plugins/Mods, aber das ist ja nicht mein Ziel ^^

    Was ich bis jetzt schon habe: Die "Einloggprozedur" für Premium-Accounts, einen Socket, die nötigen Form-Elemente (Buttons, Listboxen usw.) und das Minecraft packet-Protocoll
    Was noch fehlt: das ganze Packet-Management

    Meine Bitte:
    könnt ihr mir einen Ansatz geben, wo ich mich über Packets,Packethandling,Packetid's usw informieren kann bzw wo man Anfangen muss wenn man so etwas vor hat ?
    Vielleicht hat einer von euch ja schonmal mit so etwas zutun gehabt und kann mir Tipps geben was beachtet werden muss... oder hat sogar ein CodeBeispiel dafür

    Ich danke schonmal voller Erwartung im Vorraus :)
    mfg.

    Servus THExBASIC,

    ich habe aktuell weder Minecraft zur Verfügung, noch habe ich mich bisher genauer mit dem Protokoll befasst, aber als erster Ansatz:

    Besorg dir einen PacketSniffer (bsw. die Freeware SmartSniff). Schau dir die Client-Server Kommunikation an.
    Für alle weiteren Fragen sollte das Minecraft Protocol herhalten können:
    Spoiler anzeigen
    The default server will check the message to see if it begins with a '/'. If it doesn't, the username of the sender is prepended and sent to all other clients (including the original sender). If it does, the server assumes it to be a command and attempts to process it. A message longer than 100 characters will cause the server to kick the client. (Asof 1.3.2, the vanilla client appears to limit the text a user can enter to 100 charaters.) This limits the chat message packet length to 203 bytes (as characters are encoded on 2 bytes). Note that this limit does not apply to chat messages sent by the server, which are limited to 32767 characters since 1.2.5. This change was initially done by allowing the client to not slice the message up to 119 (the previous limit), without changes to the server. For this reason, the vanilla server kept the code to cut messages at 119, but this isn't a protocol limitation and can be ignored.


    Alternativ gibt es eine C# Minecraft Class.

    Viel Spass dabei :)

    Edit sagt:
    Klasse 1:1 durch den Converter geschoben, 3 Zeilen angepasst, give it a try:

    Module Program:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Linq
    3. Imports System.Text
    4. Imports System.Net.Sockets
    5. Imports System.Net
    6. Imports System.Threading
    8. Module Program
    10. Private Function getInput() As String
    11. Console.ForegroundColor = ConsoleColor.White
    12. Dim input As String = Console.ReadLine()
    13. Console.ForegroundColor = ConsoleColor.Gray
    14. Return input
    15. End Function
    17. Sub Main(ByVal args As String())
    18. 'welcome msg
    19. Console.BackgroundColor = ConsoleColor.DarkBlue
    20. Console.ForegroundColor = ConsoleColor.White
    21. Console.WriteLine(" Minecraft client console ")
    22. Console.WriteLine("V1.0 alpha - © Gamer931215")
    24. 'etc
    25. Console.BackgroundColor = ConsoleColor.Black
    26. Console.ForegroundColor = ConsoleColor.Gray
    27. Console.WriteLine("")
    29. 'begin t00l
    30. Dim client As New TcpClient()
    31. Dim m As New Minecraft()
    33. '############################## Requesting ip/port from user ##############################
    34. Dim username As String
    35. Dim ip As String
    36. Dim port As Integer
    37. Console.WriteLine("Please write here the name you want to join with:")
    38. username = getInput()
    39. Console.WriteLine("Please write here the target IP:")
    40. ip = getInput()
    41. Console.WriteLine("Please write the target port here (leave blank if you want to use the default port 25565):")
    42. Try
    43. port = Convert.ToInt16(getInput())
    44. Catch
    45. port = 25565
    46. End Try
    47. Console.WriteLine("Connecting to " & ip & ":" & port.ToString() & "...")
    48. Try
    49. client.Connect(ip, port)
    50. Catch e As Exception
    51. Console.WriteLine("Cannot connect to server (" & e.Message & ")!")
    52. While True
    53. End While
    54. End Try
    56. '############################## Connecting/login ##############################
    57. If client.Connected Then
    58. m.setClient(client)
    59. 'handshake and login request
    60. If m.Handshake(username) Then
    61. Console.WriteLine("Connection established with " & Convert.ToString(IPAddress.Parse(DirectCast(client.Client.RemoteEndPoint, IPEndPoint).Address.ToString())) & " on port " & port.ToString())
    62. Console.WriteLine("Connection accepted by server, now attempting to login...")
    63. If m.RequestLogin(username) Then
    64. Console.WriteLine("Server accepted login request.")
    65. '############################## Starting update thread ##############################
    66. Dim updater As New Thread(New ThreadStart(AddressOf Update))
    67. updater.Start()
    68. While True
    69. Dim input As String = getInput()
    70. m.SendChatMessage(input)
    71. Console.WriteLine("<" & username & "> " & input)
    72. End While
    73. End If
    74. End If
    75. While True
    76. End While
    77. End If
    78. End Sub
    80. Private Sub Update()
    81. Dim m As New Minecraft()
    82. While True
    83. m.Update()
    84. System.Threading.Thread.Sleep(800)
    85. End While
    86. End Sub
    89. End Module


    Class Minecraft:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Linq
    3. Imports System.Text
    4. Imports System.Net.Sockets
    7. Class Minecraft
    8. Shared c As New TcpClient()
    9. Public Sub Update()
    10. Dim data As Byte() = New Byte(4) {}
    11. data(0) = CByte(0)
    12. Dim id As Byte() = New Byte(0) {}
    13. retry:
    14. Try
    15. c.Client.Receive(id, 0, 1, SocketFlags.None)
    16. Catch
    17. If c.Connected Then
    18. Console.WriteLine("Could not receive package! Retrying in 1 second...")
    19. System.Threading.Thread.Sleep(1000)
    20. GoTo retry
    21. Else
    22. Console.ForegroundColor = ConsoleColor.Red
    23. Console.WriteLine("Server closed connection.")
    24. While True
    25. End While
    26. End If
    27. End Try
    28. If id(0) = CByte(0) Then
    29. 'Ping/alive package (send back!)
    30. Dim buffer As Byte() = New Byte(3) {}
    31. c.Client.Receive(buffer, 0, 4, SocketFlags.None)
    32. buffer.CopyTo(data, 1)
    33. c.Client.Send(data)
    34. ElseIf id(0) = CByte(3) Then
    35. Console.WriteLine("Chat")
    36. End If
    37. End Sub
    39. Public Sub setClient(ByVal n As TcpClient)
    40. c = n
    41. End Sub
    43. Public Function Handshake(ByVal username As String) As Boolean
    44. username = reverse(username)
    45. 'array
    46. Dim data As Byte() = New Byte(3 + ((username.Length * 2) - 1)) {}
    48. 'packet id
    49. data(0) = CByte(2)
    51. 'short len
    52. Dim sh As Byte() = New Byte(1) {}
    53. sh = BitConverter.GetBytes(CShort(username.Length))
    54. Array.Reverse(sh)
    55. sh.CopyTo(data, 1)
    57. 'username
    58. Dim name As Byte() = Encoding.Unicode.GetBytes(username)
    59. Array.Reverse(name)
    60. name.CopyTo(data, 3)
    62. c.Client.Send(data)
    64. Dim pid As Byte() = New Byte(0) {}
    65. c.Client.Receive(pid, 0, 1, SocketFlags.None)
    66. If pid(0) = CByte(2) Then
    67. Return True
    68. Else
    69. Return False
    70. End If
    71. End Function
    73. Public Function RequestLogin(ByVal username As String) As Boolean
    74. username = reverse(username)
    75. 'Preparing data
    76. Dim id As Byte = CByte(1)
    77. Dim protecol As Byte() = New Byte(3) {}
    78. protecol = BitConverter.GetBytes(CInt(22))
    79. Array.Reverse(protecol)
    80. 'v1.0
    81. Dim len As Byte() = New Byte(1) {}
    82. len = BitConverter.GetBytes(CShort(username.Length))
    83. Array.Reverse(len)
    84. Dim usrname As Byte() = New Byte(username.Length * 2 - 1) {}
    85. usrname = Encoding.Unicode.GetBytes(username)
    86. Array.Reverse(usrname)
    87. Dim lon As Byte() = New Byte(7) {}
    88. lon = BitConverter.GetBytes(CLng(0))
    89. Array.Reverse(lon)
    90. Dim intt As Byte() = New Byte(3) {}
    91. intt = BitConverter.GetBytes(CInt(0))
    92. Array.Reverse(intt)
    93. Dim empty As Byte = CByte(0)
    95. 'Creating byte array
    96. Dim data As Byte() = New Byte(23 + ((username.Length * 2) - 1)) {}
    97. 'adding id
    98. data(0) = id
    99. 'adding protecol
    100. protecol.CopyTo(data, 1)
    101. 'adding username length short
    102. len.CopyTo(data, 5)
    103. 'adding username
    104. usrname.CopyTo(data, 7)
    106. 'new index calculation
    107. Dim index As Integer = (7 + (username.Length * 2))
    109. 'adding long
    110. lon.CopyTo(data, index)
    111. index = index + 8
    112. 'adding int
    113. intt.CopyTo(data, index)
    114. index = index + 4
    115. 'adding bytes
    116. data(index) = empty
    117. data(index + 1) = empty
    118. data(index + 2) = empty
    119. data(index + 3) = empty
    121. c.Client.Send(data)
    122. Try
    123. Dim pid As Byte() = New Byte(0) {}
    124. Try
    125. If c.Connected Then
    126. retry:
    127. c.Client.Receive(pid, 0, 1, SocketFlags.None)
    128. If pid(0) = CByte(1) Then
    129. 'package delivered
    130. Return True
    131. Else
    132. GoTo retry
    133. End If
    134. Else
    135. Return False
    136. 'kick
    137. End If
    138. Catch
    139. 'server disconnected
    140. Return False
    141. End Try
    142. Catch
    143. Console.ForegroundColor = ConsoleColor.Red
    144. Console.WriteLine("Server closed connection.")
    145. While True
    146. End While
    147. End Try
    148. End Function
    150. Public Sub SendChatMessage(ByVal message As String)
    151. message = reverse(message)
    152. Dim chat As Byte() = New Byte(3 + ((message.Length * 2) - 1)) {}
    153. chat(0) = CByte(3)
    155. Dim msglen As Byte() = New Byte(1) {}
    156. msglen = BitConverter.GetBytes(CShort(message.Length))
    157. Array.Reverse(msglen)
    158. msglen.CopyTo(chat, 1)
    160. Dim msg As Byte() = New Byte(message.Length * 2 - 1) {}
    161. msg = Encoding.Unicode.GetBytes(message)
    162. Array.Reverse(msg)
    163. msg.CopyTo(chat, 3)
    165. c.Client.Send(chat)
    166. End Sub
    168. 'local functions
    169. Private Shared Function reverse(ByVal a As String) As String
    170. Dim temp As String = ""
    171. Dim i As Integer, j As Integer
    172. j = 0
    173. i = a.Length - 1
    174. While i >= 0
    175. temp += a(i)
    176. i -= 1
    177. j += 1
    178. End While
    179. Return temp
    180. End Function
    181. End Class


    Dürfte sich für deine Zwecke in ein paar Minuten angepasst haben.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „hate_regex“ ()

    Hallo Leute, Danke schonmal für eure Bemühungen...

    Ich werde mich im Verlauf des Tages mal durch Craft.Net und das ganze "Zeug" durcharbeiten und mal schauen wie weit ich damit komme :)
    Wenn noch was ist bzw ich irgendwo stecken bleibe editiere ich den Post nochmal...
    Weitere Quellen / Tipps sind natürlich weiterhin Willkommen.

    #Edit:

    @"hate_regex"
    Ich habe mal eine Konsolenanwendung mit deinem Source erstellt und einfach etwas rumgetestet... Fehler in dem Sinne gab es keine... jetzt kommt das aber
    Ich habe dabei versucht mich auf einen lokal gehosteten Server "einzuloggen"
    Wobei in der Serverkonsole stand: " [INFO] /127.0.0.1:2922 lost connection" und in der Andwendung nur "Connecting to localhost:25565..." (habe etwa 5 Minuten gewartet)
    -> Ist es/bzw. wäre es überhaupt möglich auf einen lokalserver zu verbinden ?... bevor ich weiterprobiere und denke ich wär zu doof ? ^^

    mfg.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „THExBASIC“ ()

    Weitere Quellen / Tipps sind natürlich weiterhin Willkommen
    Moin,

    ich denke mit dem oben verlinkten Protokoll, nebst einem 'fertigen' Sample-Project (du musst je nach Serverversion/Protokoll die Handshake-Kommunikation anpassen, die im Code funktioniert nur bis v1.52) dürfte die Sache abgefrühstückt sein ;)