[سعود]

التنصت امره سهل لكن لكي استقبل رسالة واربطها بفورم وتحديد المرسل انه فلان مسجل بقاعدة بيانات sql server والاي بي متغير عند كل دخول يتم تحديث الاي بي ..
فماهي الطريقة؟

---

مثلا لدي هذا الكود لاستقبال الرسائل من منفذ معين

كود :

If listener.Pending = True Then
                message = ""
                client = listener.AcceptTcpClient
                Dim streamr As New StreamReader(client.GetStream)
                While streamr.Peek > -1
                    message = message + Convert.ToChar(streamr.Read()).ToString

                End While
                RichTextBox1.SelectionColor = Color.Red
                RichTextBox1.AppendText(message)
                Beep()
                RichTextBox1.ScrollToCaret()
            End If

كيف اعرف مصدر الرسالة من اي اي بي