لدي كود أتصال باي جهاز أو موقع من خلال عنوان الأيبي وهو
Dim Soc As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Soc.Connect(New IPEndPoint(Dns.Resolve("www.arabteam2000-forum.com").AddressList(0), 21))
If Soc.Connected = True Then
MsgBox("Connected to server")
End Ifوالكود ناجح من حيث الاتصال لكن الأن أتصلت مع الكمبيوتر الهدف فيكف أعمل برنامج يستقبل الإتصال من الكمبيوتر الهدف طبعا هو حيكون منصب على الكمبيوتر الهدف أي مثل كلينت وسرفر
من مواضيعي :
تعلم كيف تفتح ملف ببرنامجك والبرنامج مو شغال
مجموعة كبيرة من خواص System.Management
تفعيل ستايل ويندوز أكس بي على الفيجوال 2003
تعلم أختراق أقوى كلمة سر في الكمبيوتر
درس لتعليم كيفية دمج الملفات في ملف حاضن
تعلم طريقة وضع صورة ونص في نفس الملف, درس رائع
وضع ملف داخل الملف التنفيذي وأستخراجه
----------------------------------------------------------------------------------------------------
))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((
--------------------------
If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End ifفي الإستقبال برنامج الـServer , يجب انشاء الـ Bind بين الـ IP والـ Port ثم الـ Listen وتسند له عدد الأجهزة التي تريد أن يتم قبولها كحد اقصى واخيرا الـ Accept ويجب ان تسند الـ Accept إلى Socket Object ومن خلال هذا الـ Object تقوم بعمل القراءة والإرسال مرة اخرى ...
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…