حبيب اليمن
01-10-2003, 06:37 PM
أعضاء المجلس اليمني اسمحو لي ان ابدا اول مشاركاتي في هذا
المجلس وستكون هذه المشاركه عباره عن كود بلغة الفيجول بيسك
وسيستفيد من هذا الكود من يعملون على لغة الفيجول بيسك
وعمل هذا الكود تشغيل اي برنامج مكتوب بنفس اللغة لمدة معينه
من المرات ثم يتوقف البرنامج عن العمل واليكم الكود
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
مع تمنياتي لكم بالتوفيق والنجاح
وانتظروا المزيد باذن الله
المجلس وستكون هذه المشاركه عباره عن كود بلغة الفيجول بيسك
وسيستفيد من هذا الكود من يعملون على لغة الفيجول بيسك
وعمل هذا الكود تشغيل اي برنامج مكتوب بنفس اللغة لمدة معينه
من المرات ثم يتوقف البرنامج عن العمل واليكم الكود
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
مع تمنياتي لكم بالتوفيق والنجاح
وانتظروا المزيد باذن الله