فتح برنامج بتاريخ معين

[ishak19]

 

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

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

3 ساعات مضت, ishak19 said:

 

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

يرجى وضع مثال حتى يتم مساعدتك

[SEMO.Pa3x]

4 ساعات مضت, ishak19 said:

 

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

 

وعليكم السلام. تفضل اخي كتبت لك مثال.

الفكرة:

انا استخدمت الموقع ( https://pastebin.com ) قمت بأنشاء حساب بالموقع لكي اتمكن من تعديل النص الخاص بي فيما بعد.

قمت بانشاء موضوع جديد وكتبت فيه التاريخ ثم نسخت الرابط على شكل raw كالاتي:

https://pastebin.com/raw/0SrhQhX7

حتى اتمكن من قراءته مباشرة, نفس الشيء يمكنك رفع ملف txt على موقعك وقراءته بصورة مباشرة.

بعدها قمت بقراءة هذا النص من داخل الاكسس واستخدمت الدالة DateValue لكي اقوم بتحويل البيانات التي قرأتها من الموقع

من String الى Date اي من نص الى تاريخ لكي اقوم بمقارنتها مع التاريخ الحالي للجهاز والمتمثل بالدالة Date

وشرحت لك ايضا الاكواد في حال صعب عليك معرفة الذي يجري.

 

 

Option Compare Database

    '--------------------------------------------------------
    'c0ded bY  : SEMO.Pa3x
    'skype     : security.najaf
    'facebook  : https://www.facebook.com/Nisr.Aln3jaf
    'gmail     : isec2090@gmail.com
    'last edit : 24/4/2019
    '--------------------------------------------------------
    
Private Sub DoCheck_Click()
' كائن القراءة من بروتوكول الانترنت
Dim objHttp As Object
' تعريف مكتبة البروتوكول
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
' رابط النص التي ستتم قراءته ومقارنته من التاريخ الحالي للجهاز
Call objHttp.Open("GET", "https://pastebin.com/raw/0SrhQhX7", False)
' ارجاع القيمة
Call objHttp.Send("")
' تحويل النص الى تاريخ
If DateValue(objHttp.ResponseText) = Date Then
' رسالة بنجاح المقارنة بين التاريخ الموضوع في الموقع والتاريخ الحالي للجهاز
MsgBox "تم فتح البرنامج بنجاح"
Else
' رسالة بفشل العملية
MsgBox "لم يتم تحديد موعد فتح البرنامج بعد", vbCritical, "عملية خاطئة"
End If
End Sub

 

تحياتي لك.

 

حسنين

OpenDate_SEMO_Pa3x.accdb

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

[ishak19]

والله ياخي SEMO.Pa3x فكرة جميلة تشكر جزيل الشكر.