But I do not know when i err..
This is the code:
Code:
Dim query As String = "@SHOWMETHEMONEY.@BLOCK username 10." 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
Can you help me?