سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای ۲۵ اجرا بشه نه بیشتر یک command1 به فرم اظافه کنید و بعد کد زیر را به برنامه اظافه کنید.

private sub form_load()

' the "a" in getsetting and savesetting
' can be changed to another letter
retvalue = getsetting("a", "0", "runcount") ' this returns the value of the registry edit.
worm$ = val(retvalue) + 1 ' adds one to the value of the regisrty edit.
savesetting "a", "0", "runcount", worm$ ' saves the new value

if worm$ 24 then 'put one number lower then it says.
msgbox "you have used this program 25 times, purchase is now required", 16, "sorry"
' this would send the user to a website
' in their default browser.
win32keyword "http://skygazer.net"
unload me
end
end if

end sub

private sub command1_click()

end
end sub

قابل دور زدنه.

ممنون

کد ، برنامه که در حال اجرا  دوباره نتوان اجرا کرد ؟

کی  داره

 ' in their default browser.

win32keyword "http://skygazer.net

این 2 خط چی کار میکنه ؟؟؟؟؟؟؟؟؟؟

سلام. از نکات  جالب این مقاله ظرافت کلمات و واژه هایی بود که نویسنده بکار برده بود. ممنون.

 جواب مارو که ندادی

اما خب خوبه

ولی اگه تو یه برنامه یی تست میکردیو فایل و میزاشتی بهتر بود

ننننننننننننننننننننن

جالبه ولی یه چیزی تو مایه های حلقه for ـه دیگه آره؟

میشه ؟آیا کدش کار میکنه؟