1 2 3 4 5 6 7
|
Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
_socket.Connect("127.0.0.1", 7915)
connUsername = Chr(&H18) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H1) & Chr(&H0) & Chr(&H0) & Chr(&H0) & "ysatc" & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & ChrW(156) & Chr(&H1A) & Chr(&H32) & Chr(&H1)
Dim Message As [Byte]() = System.Text.Encoding.ASCII.GetBytes(connUsername)
_socket.Send(Message, Message.Length, SocketFlags.None) |
Partager