تعداد مشخص اجرا

شرح برنامه : می خواهیم برنامه ای بنویسیم که دارای تعداد مشخص اجرا باشد . یعنی کاربر فقط بتواند پنج بار این برنامه را اجرا کند و در هر بار اجرای آن پیغامی مبنی بر تعداد باقیمانده دفعات اجرا برای کاربر نمایش داده شود و هنگامی که این تعداد به پایان رسید پیغامی نمایش داده شود که دیگر کاربر نمی تواند این برنامه را اجرا نماید . مانند برنامه هایی که دارای قفل یا به اصطلاح رجیستری هستند . _ برای این کار شما فقط کافی است کدهای زیر را در Form_Load برنامه خود قرار دهید : ()Private Sub Form_Load Dim RunCount As String ( "RunCount = GetSetting("Test", "Setting", "RunCount If Val(RunCount) > 5 Then _,"مهلت اجرای برنامه به پایان رسیده و شما دیگر قادر به اجرای آن نخواهید بود"MsgBox vbExclamation , "اتمام مهلت" End Else _ ,"شما فقط " & ((Str(4 - Val(RunCount & " بار دیگر می توانید این برنامه را اجرا کنید" MsgBox vbInformation, "تعداد اجرای باقیمانده" (SaveSetting "Test", "Setting", "RunCount", Str(Val(RunCount) + 1 End If End Sub حال فایل exe از برنامه خود بسازید و آن را اجرا نمایید