[هوازن]

	محبين الفيجوال بيسك احبتي انتم تشاهدون ان فيه برامج لها وقت زمني يعني إذا انتها الزمن المحدد يتوقف البرنامج عن العمل وتطلع لك رسالة نص الرسالة (( يمكنك شراء البرنامج تعرفون هذه الطريقة طيب مع هوازن هنا الحل لكي تنشاء برنامج بهذه الحركة كي يشتغل برنامج وانت تحدد الوقت 00/00 تابع بدقة كود يقوم بحماية برنامجك حيث يعمل عدد من المرات (تحددها بنفسك) ثم يتوقف نهائيا عن العمل كود : Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل MsgBox "انتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية" Unload FRM ' End If End Sub حتى يظهر الكود بشكل سليم يمكنك لصقة في notepad Runcount غير الكلمة هذي على شان ما يكشفه وحد ويلعب به حط بداله أي كلمة مهو مهم أهمشي تحط كلمه والسلام ياهوووووووو

آخر تعديل هوازن يوم 30-Oct-2007 في 09:52 AM.