nagaa2

السلام عليكــم ورحمـة الله وبركاتــه بســم الله الـرحمــن الرحيــم كيف حالكم يا شباب البرمجة :wink: الموضوع هي فكرة هتعجبكم كلكم وان نجحت ارجو من الادارة التثبيت الفكرة هي ان نتعاون كلنا في انشاء مشروع لحماية البرامج المصنوعة بالدوت نت لتوفير الوقت والجهد علي …

اوك ياغالي تابع ابحاثك وربنا يوفقك لقد رأيت البرنامج شكرا سوف اقوم بالبحث عنه كاملا اذا وجد

أعتقد ان كلامك صحيح وايضا بوسعي الان حل هذه المشكلة تقريبا لكن مازال يعطيني You have entered an invalid serial number أعتقد ان هذه ايضا مشكلتي سأقوم بتجربة المشروع بالكود باللكيجن بكله علي جهاز أخر واخبرك بالنتيجة شكرا يا بشار علي تعبك معي تحياتي :wub: :wub: (…

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If My.Settings.LastDateUse = 0 Then My.Settings.LastDateUse = Now.ToOADate : My.Settings.Save() DaysLeft = TimeSpan.FromDays(Now.ToOADate - My.Settings.LastD…

البرنامج اشتغل تمام كما كنت اريد لكن انظر خطأ جديد المدة التجريبية (15) تظهر في البرنامج بجانب العنوان 6 عند تغيرها تعطي ارقام غريبة -8 او تطلع نافذة التسجيل كإن المدة انتهت هل من اعداد للتاريخ ؟؟؟؟؟؟؟؟

اوك اخي الكريم جاري التجربة بس ما اعتقدش ان احد من الادارة او الخبراء سيدخلون الي الموضوع لو ضع اقتراحات حماية يجب عمل موضوع اخر تحياتي

ماشي يا غالي ولا يهمك انا احاول تأخير الموضوع علي الناس ايضا بالنسبة للمشروع الي انت هاتعملة خلاص براحتك وانا منتظرك بص ياغالي بالنسبة للكيجن ذي ما هو بس ياريت تضيف عنصر 15 يوما وسمية ذي مانت عايز واخر 30 والمدة التجريبية انت ظبطها تسلم ايديك أخي بشار ((لدي فك…

From_Active لكن الان اريد حل مشكلة الكيجن invaild sirial number ????? هذه الاهم

الخصائص موجودة الحلقة التكرارية؟ انا حاطط الكود الي انت اعطته لي Fore each مش الثاني لكن الخصائص موجودة انا مش عارف مالي النهاردة

تم والنتيجة هي انها عند التشغيا فارغة لم يكون بها اوامر انا استخدم امر For Each

أفهمك لكنه لم يظهر عند وقت التشغيل

اهاا اعرفها ولكنها لست ظاهرة عندي

هل تقصد هذا ام Erorr list

تمت التجربة علي For Each ولن يفعل شئ اظهر لي نافذة التسجيل ليس اكثر

الان انا فهمت بالنسبة Your second part of code >>> هل هذا كود مشروعي ام ماذا اسف لكثرة الاسئلة لكن للتوفير وعمل الخطوات صح (*__*)

لم افهم قصدك؟؟؟

مرحبا أخي الكريم ها قد عدت من حسن حظي ان غدا ما في امتحانات قولت اعد اخلص معاك شيوية الان قلي بقي ايه مطالبك قولها علشان اديهالك

أخي الكريم اعذرني احتمال لن اعود الا غدا بسبب الامتحانات لكن اكمل لان شكل جهازي مخرف وسأعود لعمل نسخة ويندوز له سلام مؤقت

?? لم افهم قصدك

تفضل ما طلبت Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated If My.Settings.LastDateUse = 0 Then My.Settings.LastDateUse = Now.ToOADate : My.Settings.Save() Dim Days As Integer = TimeSpan.FromDays(Now.ToOAD…