السلام عليكم ورحمة الله وبركاته
اخواني بحاجة لاجوبة علي هذه الاسئلة
اولا : كيف تعمل نسخة تجريبية من برنامج
ثانيا كيف تعمل setup للبرنامجك عن طريق برنامج Setup Factory
ثالثا اربط اداة Date B Grid بالقاعدة البيانات بـجمل Sql
ومشكور مسبقا
اريد عمل نسخه تجريبية وتحزيمها باستخدام Setup Factory
مغلق
اقتباساولا : كيف تعمل نسخة تجريبية من برنامج
اصنع برنامجك منقوص الخواص
لنفرض أنك تعمل برنامج تعديل على الصور فهو يقوم بالتعديل لكن لا يحفظه
اقتباسثانيا كيف تعمل setup للبرنامجك عن طريق برنامج Setup Factory
ابحث في المنتدى
ألا بذكر الله تطمئن القلوب
بارك الله فيك اخوي الفاضل
اخوي ولكن المطلوب من نسخة التجريبة
لتوضيح اكثر :( اخي انا اريد برنامجي يشتغل فترة وينتهي عن العمل ) يعني لمدة 15 يوم ويتوقف علي الشغل
اقتباساولا : كيف تعمل نسخة تجريبية من برنامج
استخدم الكود التالي لتجعل برنامجك يعمل عدداً معيناً من المرات :
Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' الرقم (3) هو عدد مرات التشغيل
MsgBox "انتهت مدة استخدامك للبرنامج ... عليك بشراء النسخة الأصلية"
Unload FRM '
End If
End Subمرفق مشروع معاه البرنامج بصيغة exe
تم تعديل هذه المشاركة بواسطة Ala2 VB في 2 يونيو 2007 في 19:34
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
اقتباساخوي ولكن المطلوب من نسخة التجريبةلتوضيح اكثر :( اخي انا اريد برنامجي يشتغل فترة وينتهي عن العمل ) يعني لمدة 15 يوم ويتوقف علي الشغل
ذكرت مواضيع الحماية في الاونة الاخيرة كثيرا
مواضيع عامة
موضوع حماية البرامج بالفيجوال بيسيك
مواضيع خاصة
ألا بذكر الله تطمئن القلوب
بارك الله فيكم اخواني وعسي الله يجزيك الف خير ويوفقكم الي طريق الجنة
اخواني ممكن شرح برنامج Setup Factory ليس power Autoplay
أخي , شفت المشاركة رقم 6 في هذا الموضوع ؟
وضعت لك مشروع أرجو ان يفيدك , أرجو الرد
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
اقتباساستخدم الكود التالي لتجعل برنامجك يعمل عدداً معيناً من المرات :كود
Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' الرقم (3) هو عدد مرات التشغيل
MsgBox "انتهت مدة استخدامك للبرنامج ... عليك بشراء النسخة الأصلية"
Unload FRM '
End If
End Sub
مرفق مشروع معاه البرنامج بصيغة exe
بارك الله فيك اخوي مشكور وماقصرت
اقتباسشرح برنامجين Setup Factory و Install Shield
بارك الله فيك اخوي وعسي الله يوفقك
اخواني اسف علي هذا ثقلة ولكن اريد سؤالين اخرين :(
اولا
للتوضيح اكثر
اخواني عندما تكون لديك combo box وربطها بالقاعدة البيانات ولنفترض انها للزبائن اريد معرفة طريقة ترتيب الزبائن ابجديا وكيف تعرض بيانات الزبون عند اختياره ( طبعا عرضه فيDate B Grid )
ثانيا
ربط Date B Grid بالقاعدة البيانات بجمل Sql
-waf
Setup Factory V 7.0 شكرا على البرنامج
هذا الموضوع مغلق.