[VB.NET]

عندي 2 وينسوك 

Win.Close
Win.RemoteHost = Trim$(Text2.Text)
Win.RemotePort = 55000
Win.Connect

Win1.Close
Win1.RemoteHost = Trim$(Text4.Text)
Win1.RemotePort = Trim$(Text5.Text)
Win1.Connect

بس المشكلة لما ارسل الامر ما يشتغل الا امر واحد فقط 
كود ارسال الاوامر كالتالي :

 Win1.SendData "<PlaySound>" & Trim$(Text3.Text)

Win.SendData "<PlaySound>" & Trim$(Text3.Text)


 الامر الاول هوا الي يتنفذ ايش المشكلة

[VB.NET]

هل يوجد حل

[VB.NET]

وين الحل ياجماعة ارجو الرد

[VB.NET]

نفس المشكلة

[VB.NET]

المسااااااااااااااااااااااااااااعدة

[Ahmed_Mansoor]

أهلا بك أخي الكريم , الأمرين ترسل بسرعة لذلك من الممكن أنها حصلت لخبطة في إستقبال الأوامر , لذلك عليك في الجهة أو البرنامج الذي يستقبل الأوامر أن تضع أمر يستقبل أمر واحد فقط في كل مرة وتضع أمر آخر يستقبل عدة أوامر في نفس الوقت وذلك بفصل الأوامر بعلامة أو رمز معين ثم عند إستقبال الأوامر دفعه وحدة وهي مفصولة بينها بعلامة أو رمز يقوم البرنامج عند إستلامها بفصلها عن بعض بالدالة split ثم تنفيذ كل أمر على حده .

[VB.NET]

نعم استاذ احمد الجهة الي تستقبل الامر مبرمجة انها تستقبل اكثر من امر ولاكن
انا اريد ارسال امرين لجهازين مختلفين تماما

عندي جهازين كل جهاز فيه امر استقبال والمشكلة ان الكود يعمل لاكن لا يرسل الا فقط لجهاز واحد هذي الامرين


Win1.SendData "<PlaySound>" & Trim$(Text3.Text)

Win.SendData "<PlaySound>" & Trim$(Text3.Text)

Winsock1 لجهاز
Winsock لجهاز اخر
والمشكلة ان امر الارسال لا يذهب الا لجهاز واحد فقط اي الامر الثاني هذا

Win.SendData "<PlaySound>" & Trim$(Text3.Text)

واذا غيرت التبديل يروح الامر للكود الثاني فقط

---

واذا كان الترتيب كذا


Win.SendData "<PlaySound>" & Trim$(Text3.Text)

Win1.SendData "<PlaySound>" & Trim$(Text3.Text)
يروح امر الارسال للكود الثاني

Win1.SendData "<PlaySound>" & Trim$(Text3.Text)