ايمن سالم
07-03-2011, 11:16 AM
:slaam:
:fasel:
في هذه الطريقة يمكن جعل الأسطوانة تشتغل بعدد محدد من الأيام بدل الطريقة السابقة والتي كانت بعدد مرات التشغيل وأظن أن هذه الطريقة أفضل إلا أن كلا الطريقتين قد يتضجر منهما المستعمل لأنه في كل مرة تظهر رسالة عدد المرات المتبقية للإستعمال
ولمتابعة الطريقة الاولي
http://www.abc4web.net/vb/showthread.php?t=16352
ولعمل ذلك قم بفتح المشروع الذي قد تم الانهاء منه وقم بما يلي:
إذهب إلى الأمر Project ثم إختر الأمر Actions
كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image001-6.jpg
إختر On startup وقم بنسخ هذا الكود
days_left = 30;
date_installed = Application.LoadValue("My Application", "Date Installed");
date_installed = String.ToNumber(date_installed);
times_limit = 30;
if date_installed == 0 then
Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN));
else
day_left = (date_installed + times_limit) - System.GetDate(DATE_FMT_JULIAN);
end
if day_left < 1 then
Dialog.Message("trial period over", "This software has expered");
Application.Exit();
else
Dialog.Message("Trial Period", "You have "..days_left.." days in your trial period");
end
كما ترى في الصورة
http://i1235.photobucket.com/albums/ff434/aimansalem/image0026cy.jpg
فعند تشغيل الإسطوانــة أو معاينــة العمل سوف تخرج لك هذه النافذة
تفيد أنه باقـي على إغلاق النسخـة 30 يوم أو عدد الأيام التي قمت بوضعها في الكود
http://img250.imageshack.us/img250/9498/image0038jx.jpg
وعند إنتهاء عدد الأيام التي تم وضعها في الكود تظهر هذه الصورة.
http://img250.imageshack.us/img250/856/image0043zw.jpg
وما على المستعمل إلا رمي القرص واستبداله بقرص آخر
ولا تنسوا الشرح مرفق
ولا تنسونا من صالح دعائكم
وإلى درس آخر إن شاء الله
:fasel:
في هذه الطريقة يمكن جعل الأسطوانة تشتغل بعدد محدد من الأيام بدل الطريقة السابقة والتي كانت بعدد مرات التشغيل وأظن أن هذه الطريقة أفضل إلا أن كلا الطريقتين قد يتضجر منهما المستعمل لأنه في كل مرة تظهر رسالة عدد المرات المتبقية للإستعمال
ولمتابعة الطريقة الاولي
http://www.abc4web.net/vb/showthread.php?t=16352
ولعمل ذلك قم بفتح المشروع الذي قد تم الانهاء منه وقم بما يلي:
إذهب إلى الأمر Project ثم إختر الأمر Actions
كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image001-6.jpg
إختر On startup وقم بنسخ هذا الكود
days_left = 30;
date_installed = Application.LoadValue("My Application", "Date Installed");
date_installed = String.ToNumber(date_installed);
times_limit = 30;
if date_installed == 0 then
Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN));
else
day_left = (date_installed + times_limit) - System.GetDate(DATE_FMT_JULIAN);
end
if day_left < 1 then
Dialog.Message("trial period over", "This software has expered");
Application.Exit();
else
Dialog.Message("Trial Period", "You have "..days_left.." days in your trial period");
end
كما ترى في الصورة
http://i1235.photobucket.com/albums/ff434/aimansalem/image0026cy.jpg
فعند تشغيل الإسطوانــة أو معاينــة العمل سوف تخرج لك هذه النافذة
تفيد أنه باقـي على إغلاق النسخـة 30 يوم أو عدد الأيام التي قمت بوضعها في الكود
http://img250.imageshack.us/img250/9498/image0038jx.jpg
وعند إنتهاء عدد الأيام التي تم وضعها في الكود تظهر هذه الصورة.
http://img250.imageshack.us/img250/856/image0043zw.jpg
وما على المستعمل إلا رمي القرص واستبداله بقرص آخر
ولا تنسوا الشرح مرفق
ولا تنسونا من صالح دعائكم
وإلى درس آخر إن شاء الله