ورود / ثبت نام
0
0

سورس کد “فقط ۲۵ بار برنامه اجرا بشه ” به زبان VB6

180 بازدید

سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای ۲۵ اجرا بشه نه بیشتر یک 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://mspsoft.com”
unload me
end
end if

end sub

private sub command1_click()

end
end sub

  • پسورد: www.mspsoft.com
آیا این مطلب را می پسندید؟
https://www.mspsoft.com/?p=656
اشتراک گذاری:
واتساپتوییترفیسبوکپینترستلینکدین
مسعود شریفی پور
از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.
مطالب بیشتر
برچسب ها:

نظرات

0 نظر در مورد سورس کد “فقط ۲۵ بار برنامه اجرا بشه ” به زبان VB6

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

هیچ دیدگاهی نوشته نشده است.