برای اینکه برناممون به دفعات مشخصی اجرا بشه و بعد از اون از کار بیفته روشهای زیادی هست که معمولا بهترین روش استفاده از برنامه های AntiCrack و یا Packer ها می باشد (من شخصا از expressor استفاده میکنم)

ولی با استفاده از خود وی بی معمولا شما اطلاعات اجرای برنامه رو داخل یک فایل و یا درون رجیستری ذخیره می کنید و با هر بار اجرای برنامه اون رو چک می کنید. یکی از ساده ترین روشها استفاده از SaveSetting وی بی می باشد. نمونه برنامه ای براتون میذارم که فقط 3 بار اجرا میشه و بعد از اون پیغام خطا میده.

Private Sub Form_Load()
res = GetSetting("MyApp", "Setting", "RunCount", "1")
If Val(res) > 3 Then
  MsgBox "The Programe has expired.", vbCritical
  End
Else
  SaveSetting "MyApp", "Setting", "RunCount", Str(Val(res) + 1)
End If
End Sub

نوشته شده توسط مهدی در چهارشنبه 88/8/27 و ساعت 1:38 عصر | نظرات دیگران()