التأكد من الاتصال بجهاز محدد على الشبكة المحلية - ( سلسلة تفكيك برنامج الارشفة الاليكترونية - 1)

[ابو جودي]

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

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

الحمد للع هدانى الله تعالى الى هذا الحل بهذة الافكار لتفادى كل ذلك

رجاء لتجربة المرفق تسجيل رقم ip اولا فى الجدول انتظر تجربتكم ان شاء الله ورارئكم 

 

طبعا قد تكون هناك اقكار افضل وطرق اسهل ولكن اشارككم ثمار افكارى واسعد بنقضكم

 

 

 

 

التحقق من الاتصال بالشبكة(001).rar 300.41 kB · 380 downloads

تم تعديل أبريل 13, 2019 بواسطه ابا جودى

[محمد احمد لطفى]

جزاك الله خيراً أستاذى فكرة رائعة

[ابو جودي]

  في 13‏/4‏/2019 at 10:49, محمد احمد لطفى said:

جزاك الله خيراً أستاذى فكرة رائعة

Expand  

جزانا واياكم ان شاء الله

لكم اسمح لي حضرتك جربت المرفق ؟

[ابو جودي]

ارجو من اخوانى واحبائى تجربة المرفق وافادتى ان كان هناك اى خلل

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

 

 

تم تعديل أبريل 13, 2019 بواسطه ابا جودى

[محمد احمد لطفى]

  في 13‏/4‏/2019 at 17:17, ابا جودى said:

جزانا واياكم ان شاء الله

لكم اسمح لي حضرتك جربت المرفق ؟

Expand  

تمت التجربة نفس الجهاز وتعمل

[kaser906]

قبل تغيير الايبي

يسجل الخروج

بعد وضع الايبي يتجمد البرنامج ويتوقف عن العمل

::بالتوفيق::

[ابو جودي]

  في 13‏/4‏/2019 at 18:11, kaser906 said:

قبل تغيير الايبي

يسجل الخروج

بعد وضع الايبي يتجمد البرنامج ويتوقف عن العمل

::بالتوفيق::

Expand  

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

[kaser906]

شغلت البرنامج اول مرة بدون تغيير الايبي

وظهرت رسالة تم قطع اتصالك بالشبكة

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

ثم شعلت البرنامج

فأصبح البرنامج يتجمد ويتوقف عن العمل

[kaser906]

اعتذر منك اخ محمد

كنت وضعت رقم الايبي خطأ

بعد التصحيح اصبح يعمل بلا مشاكل

::بالتوفيق::

[SEMO.Pa3x]

جميل جدا عزيزي.

خصوصا استعمالك لدوال NetRemoteTOD و NetApiBufferFree

وانا اشجع جميع المبرمجين ان يجعلوا winAPI في اولويات اهتماماتهم لانها طبعا الاسرع والاقوى تنفيذا في الذاكرة.

لمن يحب الاطلاع اكثر، اضغط على اسم الدالة لعرض تفاصيلها.

 

لديك خطأ في Form_Main

احذف منه End Function واستبدلها بـ End Sub

 

ثانياً: بدل ان تجعل المستخدم يقوم بكتابة الايبي يدوياً

اجعل العملية تتم اوتوماتيكياً، استخدم هذا الفنكشن

 

Public Function GET_LOCAL_IP_ADDRESS()
'recoded semo.pa3x
Dim objWMIService As Object
Dim colItems As Object
Dim itm As Object
 
    Set objWMIService = GetObject("winmgmts:\root\cimv2")
    Set colItems = objWMIService.ExecQuery _
                   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    For Each itm In colItems
        GET_LOCAL_IP_ADDRESS = GET_LOCAL_IP_ADDRESS & itm.Properties_("IPAddress")(0) & vbCrLf
    Next
 
    GET_LOCAL_IP_ADDRESS = Split(GET_LOCAL_IP_ADDRESS, vbCrLf)(1)
End Function

استبدل السطر الاتي:

 

strPcIP = DLookup("[ip]", "tblSecurityIP")

 

استبدله بـ

 

strPcIP = GET_LOCAL_IP_ADDRESS

موفق عزيزي.

تم تعديل أبريل 14, 2019 بواسطه SEMO.Pa3x

[ابو جودي]

لديك خطأ في Form_Main

 احذف منه End Function واستبدلها بـ End Sub       ع

لا ادرى ماذا تقصد استاذى العزيز

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

اما بخصوص  get ip  اليا اعرفها

ولكم طريقتى تعتمد على عمل بينج على جهاز اخر على الشبكة وليس هذا الجهاز للتاكد دائما من اتصال هذا الجهاز

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

[essam rabea]

شغال تمام مع الاي بى الصحيح وعنح قطع الشبكة يتوقف ويغلق ... 👍

[سلمان الشهراني]

جميل جدا ماشالله
بس لو يكون فيه نموذج اخر يظهر عنوان IP تلقائي حتى يتم تخزينه مباشره بالجدول
ويعطيك الف عافيه

[ابو جودي]

  في 5‏/6‏/2019 at 06:18, سلمان الشهراني said:

جميل جدا ماشالله
بس لو يكون فيه نموذج اخر يظهر عنوان IP تلقائي حتى يتم تخزينه مباشره بالجدول
ويعطيك الف عافيه

Expand  

انا مش باشتغل ب ip الجهاز تبعى

انا اقصد بال ip اللى فى الجدول ده اي بي جهاز السيرفر اللى عليه قاعدة بيانات الجداول

واللى يهمنى من العملية دى 

استخدام الوقت والتاريخ من هذا الجهاز نيت ريموت يعنى منعا للتلاعب من العاملين بتقديم او تاخير وقت اجهزتهم 

ان كنت تهتم بعمل ما فى وقت وتريخ محددين واجبار كل المستخدمين 

ان كنت تريد عدم ترك فرصة للمستخدمين بالتلاعب بالوقت والتاريخ

انظر الى اخر مشاركة والتى تم اعتبارها افضل اجابة

 

تم تعديل يونيو 5, 2019 بواسطه ابا جودى

[ابو جودي]

وهذه الافكار كانت السبب يا استاذ @سلمان الشهراني لبناء القاعدة على هذا الاساس

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

ههههههههههه ان اراد التلاعب فلا معنى لكل هذه الاكواد والافكار 

[سلمان الشهراني]

الان وضحت الفكره ممتاز
بصراحه شي جميل يعطيك الف عافيه

[ابو جودي]

  في 5‏/6‏/2019 at 06:18, سلمان الشهراني said:

جميل جدا ماشالله
بس لو يكون فيه نموذج اخر يظهر عنوان IP تلقائي حتى يتم تخزينه مباشره بالجدول
ويعطيك الف عافيه

Expand  

نموذج اخر يظهر عنوان IP تلقائي

تقصد لما القاعدة تتنقل من حد الى اخر يستطيع تغيير الاى بي هو من هذا النموذج