فقط ۲۵ بار برنامه اجرا بشه

[www.pc3enter.tk]

سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای ۲۵ اجرا بشه نه بیشتر یک 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

[ali190]

سلام
اين روش به راحتي قابل رديابي هست
زياد كارآمد نيست
بهرحال ممنون
ياعلي

[محسن شامحمدی]

و براي ريست كردن برنامه فقط كافيه بياي توي regedit/hkcu/softwares/vb and vba programs و هر كليدي اونجا موجوده رو پاك كني.
راستي لطف كنيد كدتونو توي تگ كد يا php بذاريد

[sinavb]

واسه من توی این خط ایراد می گیره
if worm$ 24 then 'put one number lower then it says.
چرا ؟