[VB.Net] TCP 통신

Dim socket As TcpClient = New TcpClient()

Dim stream As NetworkStream

socket.Connect(ip,port)

stream = socket.GetStream()

 

Dim send = New Byte(100) {}

Dim recv = New Byte(100) {}

Dim sendSize = 10

 

If stream .CanWrite And stream .CanRead Then

    stream .Write(send, 0, sendSize)

    stream .Flush()

    Dim recvSize = stream .Read(recv, 0, recv.Length)

End If