vbcenter
پنج شنبه 17 تیر 1389, 11:49 صبح
با عرض سلام خدمت دوستان برنامه نویس . امروز می خواستم نحوه Trial ( مدت دار ) کردن برنامه را به کمک کد توضیح دهم .
با عرض سلام خدمت تمام برنامه نویسان و تمامی دوستانی که این مطلب را می خوانند .
امروز می خواهم نحوه Trial برنامه تان را به شما آموزش دهم . حتما می پرسید Trial یعنی چی ؟
پاسخ : برنامه نویسان برای جذب بیشتر خریدار برنامه های خود ، برنامه های خود را Trial می کنند . برنامه های Trial بعد از یک مدت مثلا یک هفته منسوخ خواهند شد و دیگر قابل استفاده نیستند . بعد از Trial کردن برنامه آن را در اختیار کاربران خود قرار می دهند تا بعد از کار کردن با نرم افزار و علاقه مند شدن به آن آنرا خریداری نمایند .
ما هم امروز می خواهیم نحوه ساختن برنامه های Trial را با ویژوال بیسیک آموزش دهیم . ( البته به صورت خیلی ساده و توابع خود ویژوال بیسیک )
به دلیل ساده بودن کد دیگر خیلی توضیح نمی دهم فقط متغیر Maxallowabledays تعداد روزهایی است که برنامه می تواند کرا کند و بعد از گذشت آن تعداد روز برنامه منسوخ خواهد شد . در این جا از تابع Getsettings برای دریافت تعداد روزهایی است که از اجرای برنامه گذشته است . اگر نمی توانید با استفاده از ویژوال بیسیک در رجیستری مقداری را قرار دهید ، به صورت دستی در آدرس زیر ، آن را ایجاد نمایید .
HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS\TRIAL\PW
در این آدرس یک کلید با نام Day ایجاد نمایید و مقدار 0 را به آن اختصاص دهید .
سپس از کد زیر می توانید استفاده نمایید .
(public sub putelapseddays _inregistry(maxallallowabledays as long
dim i as double
dim i as string
(("i = val(getsetting(app.exename,"pw","day","0
if i >= maxallallowabledays then
msgbox "the time of using program is terminated now.please buy the program .",vbexclamation
end
end if
("","j = getsetting(app.exename,"pw","date
if j <> date then
savesetting app.exename,"pw","day", i + 1
savesetting app.exename,"pw","date", date
end sub
برنامه زیر 19 روزه است :
()private sub form_load
putelapseddays_inregistry 19
end sub
* توجه : کد ها را کپی نکنید بلکه آنها را در محیط ویژوال بیسیک تایپ نمایید .
__________________________________________________ ____________
تعلیم و تعلم عبادت است .
یاد دادن و یاد گرفتن عبادت است .
با عرض سلام خدمت تمام برنامه نویسان و تمامی دوستانی که این مطلب را می خوانند .
امروز می خواهم نحوه Trial برنامه تان را به شما آموزش دهم . حتما می پرسید Trial یعنی چی ؟
پاسخ : برنامه نویسان برای جذب بیشتر خریدار برنامه های خود ، برنامه های خود را Trial می کنند . برنامه های Trial بعد از یک مدت مثلا یک هفته منسوخ خواهند شد و دیگر قابل استفاده نیستند . بعد از Trial کردن برنامه آن را در اختیار کاربران خود قرار می دهند تا بعد از کار کردن با نرم افزار و علاقه مند شدن به آن آنرا خریداری نمایند .
ما هم امروز می خواهیم نحوه ساختن برنامه های Trial را با ویژوال بیسیک آموزش دهیم . ( البته به صورت خیلی ساده و توابع خود ویژوال بیسیک )
به دلیل ساده بودن کد دیگر خیلی توضیح نمی دهم فقط متغیر Maxallowabledays تعداد روزهایی است که برنامه می تواند کرا کند و بعد از گذشت آن تعداد روز برنامه منسوخ خواهد شد . در این جا از تابع Getsettings برای دریافت تعداد روزهایی است که از اجرای برنامه گذشته است . اگر نمی توانید با استفاده از ویژوال بیسیک در رجیستری مقداری را قرار دهید ، به صورت دستی در آدرس زیر ، آن را ایجاد نمایید .
HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS\TRIAL\PW
در این آدرس یک کلید با نام Day ایجاد نمایید و مقدار 0 را به آن اختصاص دهید .
سپس از کد زیر می توانید استفاده نمایید .
(public sub putelapseddays _inregistry(maxallallowabledays as long
dim i as double
dim i as string
(("i = val(getsetting(app.exename,"pw","day","0
if i >= maxallallowabledays then
msgbox "the time of using program is terminated now.please buy the program .",vbexclamation
end
end if
("","j = getsetting(app.exename,"pw","date
if j <> date then
savesetting app.exename,"pw","day", i + 1
savesetting app.exename,"pw","date", date
end sub
برنامه زیر 19 روزه است :
()private sub form_load
putelapseddays_inregistry 19
end sub
* توجه : کد ها را کپی نکنید بلکه آنها را در محیط ویژوال بیسیک تایپ نمایید .
__________________________________________________ ____________
تعلیم و تعلم عبادت است .
یاد دادن و یاد گرفتن عبادت است .