الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الاتصال بأجهزة خلف الراوتر ..

بدأه captinflent في 20 سبتمبر 2011 · 11 رد · 1,329 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

إخوانى الأعزاء :

مر وقت طويل لأخر مشاركة لى في هذا المنتدى ....

و مر وقتا أطول لبعدي عن البرمجه بفيجوال بيسيك و أى لغة برمجة أخرى ....

و حاليا انا اتعلم لغة الدوت نت رغبة منى بالتطور و لكن ....

حاليا انا مطالب بتكوين إتصال بين جهازين و الإثنين في شبكتين مختلفتين و الإتصال يكون عبر الإنترنت و كلا الجهازين واقعين خلف راوتر .....

أرجو ان تكون فترة غيابي الطويله قد تم فيها إيجاد حل لهذه المشكله لأنى و على ما أتذكر أنه تم طلب حل هذه المشكله من قبل و على ما أتذكر أيضا أنه لم تحل لحين وقت إنقطاعى عن البرمجه .

فأرجو أن من يستطيع إيجاد حل أو وجد الحل و لديه ما يساعد في الحل أن يعطينا إياه أو يدلنا على طريق الحل ..

و إذا كان الحل متوفرا بلغة الدوت نت سأكون شاكرا على المجهود و لكن أفضل بنسبة 99% أن يكون بالفيجوال بيسيك 6 لأن خبرتى محدوده لأبعد مما تتخيلون في الدوت نت حاليا فأنا حاليا تلميذ مبتدئ بها

أرجو التفاعل لأن لدي أقل من 6 أيام أو حوالى أسبوع و شكرا لكل من يحاول العثور على حل ....

و السلام ختام ....

post-88879-033971100 1316514183_thumb.gi

المرفقات
Picture2.gif

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#2

للرفع ......

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#3

للرفع .....

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#4

للرفع....

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#5

حسب معلوماتي أنت بحاجة للـ Virtual Private Network (VPN) و عليك بالبحث على المنتدى و هذا رابط لأحد المواضيع على المنتدى هنــأ .. ثم ما إن يصبح عندك VPN يكون لدى كل جهاز "اتصال شبكة" و له IP ثم تكتب التطبيق الذي تريده كما لو أنك تتعامل مع "اتصال شبكة محلي " و هو يقوم يالاتصال بالسيرفر ثم السيرفر يرسل البيانات للجهاز المطلوب .. هذا حسب معلوماتي المتواضعة و الله أعلم ....

بانتظالر الرد من الخبراء

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#6

اخي يمكنك استخدام وينسوك عادية وستجد امثلة كثيرة عليها في المنتدى ,, ولكن تحتاج الى تعديلات في الايبي ادرس , لانه ستحتاج الى IP خارجي .

المثال المرفق يستخرج لك الايبي الخارجي لجهازك , يمكنك تعديله بمايناسبك .

تحياتي

External IP.zip

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#7

شكرا للتجاوب يا إخوانى ...

و لكن .....

حصلنا على الأي بي الخارجى و لكن مستحيل الإتصال عليه بدون ip forwarding

أنا أريد طريقة للإتصال بدون Ip forwarding

----> حاليا أنا توصلت لطريقة غير ذلك و لكن أرجو التوصل لحل لهذه المشكلة أو نبتكر حل لها لتعم الفائدة .

أرجو التفهم و شكرا

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#8

انظر هنا وستجد مايسرك ..

http://www.vbforums.com/showthread.php?t=422722

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#9

شكرا أخى العزيز :

فعلا أسرنى جدا ..

و بإذن الله عندما أنتهى من تطوير المشروع الذي أقوم به الأن سأرفعه هنا في الموقع لتعم الفائدة على الجميع ...

و شكرا مرة أخرى.

و السلام ختام ........

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#10

السلام عليكم

هل يمكن عمل سيرفر ليقوم بأستقبال اكثر من عمل على البرامج المرفقة

#11

الحزين اوى كتب:

السلام عليكم

هل يمكن عمل سيرفر ليقوم بأستقبال اكثر من عمل على البرامج المرفقة

بسم الله الرحمن الرحيم

أخى العزيز :/ أرجو توضح أكثر

و لكن إذا كنت تقصد أن يستقبل أكثر من إتصال من أجهزة مختلفه فهذه الفكرة بسيطه جدا

فهذا ممكن


Dim ConnIND As Long

Private Sub Form_Load()
ConnIND = 0
Winsock1(ConnIND).Close
Winsock1(ConnIND).LocalPort = 50
Winsock1(ConnIND).Listen

End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1(Index).Close
Winsock1(Index).Accept requestID

connIND = ConnIND + 1
Load Winsock1(ConnIND)
Winsock1(ConnIND).Close
Winsock1(ConnIND).LocalPort = 50
Winsock1(ConnIND).Listen

End Sub
Option Explicit

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

و أيضا لدينا نقطة أخرى

و هي أن نجعل الوينسوك الجديد هو من يستقبل الإتصال بعد تحميله مباشرة و نجعل الوينسوك الأصلي هو من يظل يتنصت على البورت كما هو بدون أى تعديل و شكرا و أى شرح أنا حاضر

و قريبا جدا مفاجأة (ليست بمفاجأة كبيرة جدا) و لكنها مفاجأة للجميع و برنامجى الذي أقوم بتطبيقه حاليا سيكون أول برنامج من نوعه عربيا و أنا حاليا في اللمسات الأخيرة للبرنامج و البرنامج هذا نتيجة عمل طويل و مجهود كبير و سيكون بمثابة إهداء للموقع و كل من ساعدنى طوال إشتراكى بالموقع و شكرا للكل .

ARAB Proj.rar

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

#12

شكرا جزيلا.

مواضيع مشابهة