[Pytanie] Rcon łączy, ale nie działa

[JachuPL]

Cześć. Znalazłem na necie taki oto kod

Dim query As String = "@SHOWMETHEMONEY.@EVENT TEST 1."

Dim host As IPAddress = Nothing

Dim mySock As Socket = Nothing


Try

If Not IPAddress.TryParse("5.100.136.100", host) Then

MessageBox.Show("This IP is not valid")

Exit Sub

End If


Dim ep As IPEndPoint = New IPEndPoint(host, Integer.Parse(30000))

mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)


mySock.Connect(ep)


If mySock.Connected Then


mySock.Send(Encoding.ASCII.GetBytes(query))


MsgBox("Sended!")

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

mam taki mały problem z tym kodem, że łączy się on do serwera, ale wysłanie komendy nie przynosi oczekiwanego efektu. Czy ktoś "doświadczeńszy" mógłby rzucić okiem na ten kodzik i powiedzieć co w nim jest nie tak?