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

اعادة نهاية الصلاحية

مغلق
بدأه zine pef في 6 سبتمبر 2007 · 3 رد · 719 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

ارجوا منكم اخواني المساعدة الملف في المرفق

______________.rar

#2

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

لكن يمكن ببساطة التعامل والتخزين في ال registry كما يلي

' استرجاع القيم من الريجستري

ENDdate = GetSetting("myPRog", "Security", "Enddate", "07/28/2007")

EDTDate = GetSetting("myPRog", "Security", "EDTDate", "06/06/2007")

' تخزين القيم في الريجستري' يمكن وضعها في الفورم الثاني وعمل حسابات لتجديد الوقت

SaveSetting "myPRog", "Security", "Enddate", "08/28/2007"

SaveSetting "myPRog", "Security", "EDTDate", "07/06/2007"

#3

قد تستفيد من فكرة المرفق

nour_pass.rar

ألا بذكر الله تطمئن القلوب

#4

شكرا لكما اخواني على المساعدة

هذا الموضوع مغلق.

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