كيف أجعل البرنامج يشتغل بتاريخ معين

تفضل :

Private Sub Form_Load()

Label1 = Time

X = Label1

If X < "10:00:00" Then
Me.Visible = False
Else
Me.Visible = True
End If

End Sub

ما كتبه لك الأخ علاء صحيح مئة بالمئة ولكنه يتحدث عن التاريخ الديناميكي (المتغير)

أما إذا كنت تريد برنامج أن يعمل كالقنبلة الموقوتة :lol: (و لا يشترط أن يكون فيروساً، قد يكون برنامج مرفق مع البرنامج الأساسي ذو النسخة التجريبية و عمل البرنامج المرفق هو إزالة البرنامج الأساسي بعد شهر مثلاً و ذلك لضمان عدم كسر البرنامج فتقوم بحذفه) فعليك أن تضع التاريخ داخل الكود أو من خلال التعامل مع الريجستري.

ملاحظة: وضع التاريخ

داخل الكود يشكل خطراً على حماية البرنامج لأنه سهل التعديل (على ما أعتقد).

أو حتى الريجستري سيكون من الأسهل اختراق البرنامج.

بالنسبة للحماية: هناك العديد من المواضيع في هذا المنتدى و الأعضاء التي تهتم بهذا الموضوع، ابحث عنها إن أردت.

بالنهاية لحذف البرنامج قد تحتاج لقتل جميع ال(process) المتعلقة ببرنامجك.

لا أعلم إن كان هناك بالمنتدى ما يتكلم عن إنهاء Process , على كل حال إن لم تجد راسلني.

طيب يا شباب , متزعلوش :

في موديول :

Public Sub Main()
	If Date = "26/05/2007" Then Form1.Show
End Sub

ثم اذهب إلى قائمة Project واختر الخيار الأخير وغالباً سيكون Project1 Properties... تظهر ليستة في اليمين فوقها كلمة Startup Object حدد منها اسم الموديول الذي وضعت فيه الكود السابق

اتهينا