التنصت امره سهل لكن لكي استقبل رسالة واربطها بفورم وتحديد المرسل انه فلان مسجل بقاعدة بيانات 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كيف اعرف مصدر الرسالة من اي اي بي
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
