m.yazdian
سه شنبه 08 تیر 1395, 19:16 عصر
دوستان اط ظریق tcpClient به روتر وصل میشم و مقادیری که از روی Netstream می خونم به صورت ؟؟؟؟؟؟ نمایش داده میشه
کسی می دونه مشکل از کجاست؟
Dim tcpStream As IO.Stream
Dim tcpCon As New Net.Sockets.TcpClient
tcpCon.Connect("10.50.11.183", 23)
tcpStream = tcpCon.GetStream
Dim b As Byte() = Encoding.ASCII.GetBytes("login")
tcpStream.Write(b, 0, b.Length)
Threading.Thread.Sleep(2000)
Dim bytReading(tcpCon.ReceiveBufferSize) As Byte
tcpStream.Read(bytReading, 0, tcpCon.ReceiveBufferSize)
Dim returndata As String = Encoding.ASCII.GetString(bytReading)
MsgBox(returndata)
tcpCon.Close()
کسی می دونه مشکل از کجاست؟
Dim tcpStream As IO.Stream
Dim tcpCon As New Net.Sockets.TcpClient
tcpCon.Connect("10.50.11.183", 23)
tcpStream = tcpCon.GetStream
Dim b As Byte() = Encoding.ASCII.GetBytes("login")
tcpStream.Write(b, 0, b.Length)
Threading.Thread.Sleep(2000)
Dim bytReading(tcpCon.ReceiveBufferSize) As Byte
tcpStream.Read(bytReading, 0, tcpCon.ReceiveBufferSize)
Dim returndata As String = Encoding.ASCII.GetString(bytReading)
MsgBox(returndata)
tcpCon.Close()