Bonjour,
Je débute en VB.net et j'ai du mal à importer Wrapped.
Normalement je vais dans gérer les packages NuGet mais je ne le trouve pas, et quand j'importe cela ne marche pas.
Voici ma fonction:
Je vous remercie d'avance pour votre aide,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 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 "Ok: " & mysplit(3) & " " & mysplit(4) & "/" & mysplit(5) & " -- MC Ver. " & mysplit(2) Else Return "Error" End If End Function
Cordialement
Partager