مساعدة في الوينسوك - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94) +--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167) +--- الموضوع : مساعدة في الوينسوك (/showthread.php?tid=22916)

مساعدة في الوينسوك - VB.NET - 13-12-17 عندي 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)  الامر الاول هوا الي يتنفذ ايش المشكلة RE: مساعدة في الوينسوك - VB.NET - 13-12-17 هل يوجد حل RE: مساعدة في الوينسوك - VB.NET - 14-12-17 وين الحل ياجماعة ارجو الرد RE: مساعدة في الوينسوك - VB.NET - 14-12-17 نفس المشكلة RE: مساعدة في الوينسوك - VB.NET - 15-12-17 المسااااااااااااااااااااااااااااعدة RE: مساعدة في الوينسوك - Ahmed_Mansoor - 16-12-17 أهلا بك أخي الكريم , الأمرين ترسل بسرعة لذلك من الممكن أنها حصلت لخبطة في إستقبال الأوامر , لذلك عليك في الجهة أو البرنامج الذي يستقبل الأوامر أن تضع أمر يستقبل أمر واحد فقط في كل مرة وتضع أمر آخر يستقبل عدة أوامر في نفس الوقت وذلك بفصل الأوامر بعلامة أو رمز معين ثم عند إستقبال الأوامر دفعه وحدة وهي مفصولة بينها بعلامة أو رمز يقوم البرنامج عند إستلامها بفصلها عن بعض بالدالة split ثم تنفيذ كل أمر على حده . RE: مساعدة في الوينسوك - VB.NET - 16-12-17 نعم استاذ احمد الجهة الي تستقبل الامر مبرمجة انها تستقبل اكثر من امر ولاكن انا اريد ارسال امرين لجهازين مختلفين تماما عندي جهازين كل جهاز فيه امر استقبال والمشكلة ان الكود يعمل لاكن لا يرسل الا فقط لجهاز واحد هذي الامرين 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)