我遵循了一个教程,并制作了一个 Minecraft 服务器 pinger,但我想要不同行的所有信息,如下所示:
Server online!
The message of the day is ...
There are 0/2 players
我的代码
Imports Wrapped
Imports System.Net.Sockets
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = PingServer(TextBox1.Text, TextBox2.Text)
End Sub
Private Function PingServer(ByVal IP As String, ByVal port As Integer)
Dim MySocket As New TcpClient(IP, port)
Dim Socket As New Wrapped.Wrapped(MySocket.GetStream)
Socket.writeByte(254)
Socket.writeByte(1)
If Socket.readByte() = 255 Then
Dim mystring As String = Socket.readString()
Dim mysplit() As String = mystring.Split(ChrW(CByte(0)))
Return "The server is online"
Return Environment.NewLine & "The message of the day is " & mysplit(3)
Return Environment.NewLine & "There are" & mysplit(4) & "/" & mysplit(5) & "players"
Else
Return "Something went wrong! Please try again."
End If
Return ""
End Function
End Class