[ تمت الإجابة ]فحص الإتصال بالسيرفر

اخي الفاضل وائل عزت

السلام عليكم ورحمة الله وبركاته

ورمضان كريم

بالنسبة لسؤالك فستجد الإجابه على هذا الرابط

فحص حالة الإتصال بالسيرفر هل هو متصل ام تم قطع الإتصال

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

Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Form_Load()
Dim Ret As Long
If IsNetworkAlive(Ret) = 0 Then
MsgBox "The local system is not connected to a network!"
Else
MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
End If
End Sub

في حدث الحالي للنموذج

Private Sub Form_Current()
Dim Ret As Long
If IsNetworkAlive(Ret) = 0 Then
MsgBox "The local system is not connected to a network!"
Else
MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
End If
Me.Refresh
End Sub

/index.php?showtopic=142092

اما في حالة استخدامك لمبة بيان تضيء عندما يكون هناك اتصال وتطفىء عندما يتم قطع الإتصال فهذا من تخصص قسم الإلكترونيات ولا علاقة لنا به هنا في قسم الأكسيس لذا راجع هذا القسم المخصص لذلك

/index.php?showforum=111

طبعا كل الشكر للأخت الغالية زهرة

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

اما اللمبات فأقصد أشارة علي البرنامج مثل مربع مثلا له لونان اخضر وأحمر

الأخضر يظل حتي انقطاع الأتصال فيتحول للون الأحمر

حاولت بحدود معرفتي بان اصل الى طلبك واتمنى بان يكون هو الحل

اخوك ابو عبدالله

Enjoy_TestNet.rar

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

بارك الله فيكم اخواني

شكرا وجاري التجربة

أخي انجوي تمام تسلم هوه ده المطلوب بالضبط

اريد تغير اسم السيرفر لتحويله علي السيرفر الذي اعمل علية وهوه سيرفر علي النت كيف

؟؟؟؟

تستطيع تغيير اسم السيرفر بالدخول على الكود

ستجد اسم السيرفر الخاص بي هو

Server

واسم الملف الذي ارغب التاكد من الاتصال به

test.mdb

قم بتغيير هذة الاسماء الى الاسماء الخاصة بك فقط (سواء شبكة داخلية او خارجية او حتى بدون شبكة)

وستجد اللمة الخضراء بانتظارك

وهنا رابط يساعدك على ربط برنامجك بالانترنت

/index.ph...&hl=Hamachi

شكرا لك

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

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

أخي العزيز

انجوي

رجاء توضيح كيفية كتابة السيرفر بالكود لآني حاولت كثيرا ولكن الأحمر حليفي

بص اسم السيرفر 76.205.76.154

وقاعدة البيانات

alamar_data بالسيكول لها يوزر وباس وورد

فرجاء

تفسير كيفية الكتابة يعني حضرتك

كاتب \\Server\D\Prog\Test.mdb

ماذا تعني كلمة Server

وايضا باقي الأمتدادات

أسف لو بتتطفل عليك

بسيطة

\\76.205.76.154\c\alamar_data

ولكن لابد من تحديد مكان قاعدة بياناتك في السيرفر c او d انا اعتبرت انها عندك في الـ c

عموما وهو الجزء المهم هذا الكود ليس بالضرورة ان يبحث عن قاعدة بياناتك بالضبط سواء sql او غيرها

مجرد سيتاكد من اتصالة مع السيرفر بعد مشاهدته الى اي ملف هناك (فهذا يعني انك متصل مع السيرفر)

وباختصار اكثر - اعمل التجربة على جهازك بدون شبكة مثلا

افتح مجلد في الـ c وليكم بهذا الاسم

C:\Enjoy

ثم ضع بداخله ملف اسمه test.mdb

وقم بتغيير الكود الى

Open "C:\Enjoy\Test.mdb" For Input As #1

ستجد اللمبة خضراء

ثم قم بتغيير اسم الملف الى اي اسم اخر

test1.mdb مثلا

ستصبح اللمبة حمراء

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

اتمنى اني اكون قد شرحت الموضوع بشكل مفهوم

شكرا جدا جدا والله تعبتك

كل عام وانتم بخير

أخي العزيز انجوي

اسف علي ازعاجك

انا جربت الكود علي الاجهزة الأرضي كلها تمام وشغال وزي الفل

لما بغير الكود وأكتب اسم السيرفر اللي انا مأجرة علي النت مش بيعمل اخضر الأحمر معايه علي طول

هل من حل

بص السيرفر رقمه 67.205.76.154

قاعدة البيانات اسمها alamare_mobilat2008

بس مش عارف علي السي ولا الدي ولا ايه لان ده سيرفر مستأجر طبعا رجاء التجربة من عندك وحين الوصول لشئ رجاء افادتي

وشكرا جدا

اخي العزيز وائل

قد تكون تحتاج الى كود من نوع اخر

ولكن دعني اخبرك بشيء

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

كما ان البرنامج الخاص بربط الفروع يغنيك عن الحاجة الى مثل هذا الكود لانه يعطي ااضاءة خضراء في حال تشغيل الجهاز المرتبط تلقائيا

فاذا كنت قد استعملت هذا البرنامج فاكيد بانك عرفت بان هذا البرنامج يعطيك رقم IP خاص لايمكن لاي شخص استعمالة بدون تركيب نفس البرنامج في الجهاز الاخر واعطاء موافقة على الارتباط (كما اعتقد بان جميع البرامج تحمل نفس الصفة)

وبذلك فان رقم السيرفر الخاص بك لايمكنني انا او اي شخص اخر اللارتباط معه بدون تركيب نفس البرنامج + السماح لي بالدخول باعطائي كلمة السر ايضا وهذا غير منطقي

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

للأسف عزيز ي

البرنامج الخاص بربط الفروع هيماتاشي لا يعمل معي تماما فهو لا يستطيع تحديد ايه اي بي اوبتان