هدية .. منع التلاعب في الوقت و التاريخ

[محمد عبد الله ٢]

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

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

تحياتي لكم 

منع التلاعب في التاريخ.mdb

[صالح حمادي]

شكرا

[محمد عبد الله ٢]

لا شكر على واجب استاذي الكريم @صالح حمادي

[الحلبي]

ممكن شرح فكرة البرنامج 

 

[د.كاف يار]

هذا كود جلب الوقت من الانترنت " توقيت جرينتش "

Dim UTCDateTime As String
    Dim arrDT() As String
    Dim http As Object
    Dim UTCDate As String
    Dim UTCTime As String
    Const NetTime As String = "https://www.time.gov/"
    On Error Resume Next
    Set http = CreateObject("Microsoft.XMLHTTP")
    On Error GoTo 0
    http.Open "sa", NetTime & Now(), False, "", ""
    http.Send
    UTCDateTime = http.getResponseHeader("date")
    [Text1] = UTCDateTime

 

تم تعديل سبتمبر 3, 2019 بواسطه د.كاف يار

[Ali Mohamed Ali]

بارك الله فيكم جميعا وزادكم الله من فضله

[محمد عبد الله ٢]

@د.كاف يار

كل الاحترام و التقدير لحضرتك استاذي العزيز 

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

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

في ٣‏/٩‏/٢٠١٩ at 08:46, د.كاف يار said:

هذا كود جلب الوقت من الانترنت " توقيت جرينتش "

Dim UTCDateTime As String
    Dim arrDT() As String
    Dim http As Object
    Dim UTCDate As String
    Dim UTCTime As String
    Const NetTime As String = "https://www.time.gov/"
    On Error Resume Next
    Set http = CreateObject("Microsoft.XMLHTTP")
    On Error GoTo 0
    http.Open "sa", NetTime & Now(), False, "", ""
    http.Send
    UTCDateTime = http.getResponseHeader("date")
    [Text1] = UTCDateTime

 

جميل جدا
بس وش لون اغير التنسيق ليصبح مثلا
تاريخ فقط YYYY/MM/DD

او اي تنسيق

[ابو جودي]

في ٢٠‏/٩‏/٢٠١٩ at 03:40, سلمان الشهراني said:

جميل جدا
بس وش لون اغير التنسيق ليصبح مثلا
تاريخ فقط YYYY/MM/DD

او اي تنسيق

اتغضل 

تم عمل الاتى

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

اقتباس

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

ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب 

 

GetNetTime.mdb

[حربي العنزي]

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

عند تشغيل البرنامج تظهر لي هذه الرسالة كما في الصورة المرفقة 

هل يمكن حلها اكون ممنون منك يا طيب وجزاك الله خيرا 

[ابو جودي]

في ٢٠‏/٩‏/٢٠١٩ at 09:49, حربي العنزي said:

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

عند تشغيل البرنامج تظهر لي هذه الرسالة كما في الصورة المرفقة 

هل يمكن حلها اكون ممنون منك يا طيب وجزاك الله خيرا 

هل هناك مكتبات مفقودة . راجع محرر الاكواد 

Tools->References

 

وعلى كل جرب المرفق الاتى 

 

GetNetTime.mdb

[حربي العنزي]

استاذي الفاضل ابا جودي الله يبارك فيك ويحفظك يارب 

الظاهر كما تفضلت هناك مكتبات مفقودة لان تخرج لي نفس الرسالة 

السؤال : كيف الحصول على تلك المكتبات المفقودة وكيف يتم تسجيلها 

مع جزيل الشكر والتقدير لشخصكم الكريم استاذي الفاضل 

[ابو جودي]

في ٢٠‏/٩‏/٢٠١٩ at 12:38, حربي العنزي said:

استاذي الفاضل ابا جودي الله يبارك فيك ويحفظك يارب 

الظاهر كما تفضلت هناك مكتبات مفقودة لان تخرج لي نفس الرسالة 

السؤال : كيف الحصول على تلك المكتبات المفقودة وكيف يتم تسجيلها 

مع جزيل الشكر والتقدير لشخصكم الكريم استاذي الفاضل 

اذهب الى محرر الاكواد
اختر القائمة   Tools  ثم  اختر  منها    References

كما بالصورة الاتية

لو كانت هناك مشكلة بالمكتبات ستجد كلمة   :Missing   بجوار اسم المكتبة مثل هذه الصورة على سبيل المثال

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

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

[ابو جودي]

في ٢٠‏/٩‏/٢٠١٩ at 14:19, سلمان الشهراني said:

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

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

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

[حربي العنزي]

الله يبارك فيك ويحفظك استاذي الفاضل ابا جودي 

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

[ابو جودي]

في ٢٠‏/٩‏/٢٠١٩ at 15:01, حربي العنزي said:

الله يبارك فيك ويحفظك استاذي الفاضل ابا جودي 

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

الحمد لله انحلت المشكلة عندك 

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

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