بسم الله الرحمن الرحيم
===================
السلام عليكم ورحمة الله وبركاته
كفاية يا شباب ..!!!!
اخواني الاعضاء و المشرفين .. لقد اتعبتني اداة الوينسوك .. لقد قمت بعمل برنامج السيرفر و العميل وجعلت برنامج السيرفر يتصل باكثر من عميل وقمت بكتابة الكود المسؤل عن ارسال الرسالة في برنامج العميل بالشكل التالي مع العلم انني ووضعت اكثر من اداة وينسوك على الفورم بعدد الاجهزة عندي في المقهى ..
if wsk(0).state = 7 then wsk(0).senddata "Masg" & Text1 Doevents end if
واما في برنامج السيرفر والذي هو مسؤول عن الاتصال باكثر من عميل وضعت فيه اداة واحدة وجعلت الاندكس index لها = 0 اي عمل مصفوفة اثناء تشغيل البرنامج وفي حدث الـــ DataArrival كتبت الكود التالي
Dim s as string dim cmd as string dim Cln as string wsk(I).getdata s cmd=left(s,4) Cln=mid(s,5) select case cmd case "Masg": Text1.text = Cln end select
حرف الـــ I في الكود هو يحمل رقم المصفوفة
المشكله تحدث عندما ارسل رسالة من برنامج العميل الى باقي السيرفرات تظهر لي في مربع النص الذي يستقبل الرسالة من برنامج العميل اسم المتغير وليس ما بداخل مربع النص واسم المتغير هنا هو ( Masg ) ..
ارجو التفاعل مع الموضوع
ولكم مني جزيل الشكر و التقدير
