كود بالفيجوال بيسك تستطيع من خلاله معرفة عدد مرات تشغيل البرنامج
الناقل :
SunSet
| الكاتب الأصلى :
abdulkreem
| المصدر :
forums.ibb7.com
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 Form1
End If
End Sub