|
分類:[VB.NET/VB2005 以降]
（開発環境）
・VB2010
・OS：Windows7
UDPをして3台のＰＣと通信を行いたいのですがどのようにすればわかりません。
PC-1:IPaddress 192.168.1.100（Port番号：6000）
PC-2:IPaddress 192.168.1.101（Port番号：6000）
PC-3:IPaddress 192.168.1.102（Port番号：6000）
PC-1でプログラムを作成し、PC-2とPC-3とUDP通信したいのですが、下記*1を
するとデバック開始時に「エラーInvalidOperationExceptionはハンドルされませんでした。」
と表示されます。
PC2台では、*1を削除すればPC-1とPC-2で問題なく通信できます。
Port番号を変える方法もあるかもしれませんが、Port番号は同じにしたいです。
何か方法はあるでしょうか？
' ソケット生成
Private objSck As New System.Net.Sockets.UdpClient(60000)
Private objSck2 As New System.Net.Sockets.UdpClient(60000) '*1これ追加
Private Sub Form1_Load( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
' ソケット接続
objSck.Connect("192.168.1.100", 60000)
End Sub
Private Sub Form1_FormClosed( _
ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) _
Handles MyBase.FormClosed
' ソケットクローズ
objSck.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' ソケット送信
Dim dat As Byte() = _
System.Text.Encoding.GetEncoding("SHIFT-JIS").GetBytes("abc123")
objSck.Send(dat, dat.GetLength(0))
End Sub
End Class
|