اعمال محدودیت در برنامه

[parsiyan_mohsen]

سلام دوستان.
من یه سؤال دارم اونم اینه که چطوری میشه کدی رو درون برناممون گذاشت که برنامه رو آزمایشی کنه مثلاً وقتی 30 روز از اولین اجرا شدنش گذشت برنامه دیگه اجرا نشه، و نیاز به نصب دوباره داشته باشه یا حتی نصب مجدد ویندوز. از اساتید خواهش می کنم اگه کسی می دونه کمکم کنه یا یه نمونه سورس واسم بزاره. خواهش می کنم. آخه خیلی نیاز دارم.
ممنون.

[parsiyan_mohsen]

از دوستان کسی جواب سؤالمو نمی دونه؟ عزیزان اگر میدونید خواهش می کنم کمکم کنید.

[butterfly8528]

سلام دوست من .

با کد زیر برنامه فقط 14 روز اجرا میشه و بعد از اون پیغام میده !




Public Sub putElapsedDayes_InRegistry(MaxAllowableDays As Long)
Dim i As Double
Dim j As String
i = Val(GetSetting(App.EXEName, "PW", "Day", "0"))
If i >= MaxAllowableDays Then
MsgBox "You Are Using The Trial Version Of This Program." _
+ vbCrLf + "Get Its Latest Version at -> 021-7878195 ", _
vbExclamation,"Sorry !"
End
End If
j = GetSetting(App.EXEName, "PW", "Date", "")
If j <> Date Then _
SaveSetting App.EXEName, "PW", "Day", i + 1
SaveSetting App.EXEName, "PW", "Date", Date
End Sub
Private Sub Form_Load()
putElapsedDayes_InRegistry 14
End Sub


اگه مشکلی بود در خدمتم :بامزه: