ソケット通信で受信ができない (ID:143392)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB2010で、PCと自動機をLANでつなぎ、ソケット通信を行いデータの送受信を行いたいのですが、以下のプログラムだと、 「ns.DataAvailable」がfalseになってしまい、受信処理まで進めません。 tcp = New System.Net.Sockets.TcpClient("1.1.1.100", 1024) ns = tcp.GetStream() Dim dat As Byte() = _ System.Text.Encoding.GetEncoding("SHIFT-JIS").GetBytes(CByte(Val("&H" + wk))) ns.Write(dat, 0, dat.GetLength(0)) If ns.DataAvailable = True Then Dim dat As Byte() = New Byte(tcp.Available - 1) {} ns.Read(dat, 0, dat.GetLength(0)) rcvbuf = rcvbuf & System.Text.Encoding.GetEncoding("SHIFT-JIS").GetString(dat) End If どうすればいいのでしょうか？