07-09-16, 06:47 PM
هذا الكود يوم بإقفال البرنامج بعد تشغيل البرنامج ..
أكثر من 10 مرات ..
---
أريد تغيير البرنامج الى إقفال البرنامج بعد عدد ايام معينة ..
ارجو المساعدة بالتعديل ..
=====
Dim GD As String
Dim retvalue As Object
retvalue = GetSetting("A", "0", "Runcount")
GD = CStr(Val(retvalue) + 1)
SaveSetting("A", "0", "RunCount", GD)
If CDbl(GD) > 2 Then ' الرقم (10) يحدد عدد مرات التشغيل
MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Me.Close()
End If
End Sub
أكثر من 10 مرات ..
---
أريد تغيير البرنامج الى إقفال البرنامج بعد عدد ايام معينة ..
ارجو المساعدة بالتعديل ..
=====
Dim GD As String
Dim retvalue As Object
retvalue = GetSetting("A", "0", "Runcount")
GD = CStr(Val(retvalue) + 1)
SaveSetting("A", "0", "RunCount", GD)
If CDbl(GD) > 2 Then ' الرقم (10) يحدد عدد مرات التشغيل
MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Me.Close()
End If
End Sub