• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'كود التحقق من سريال الهارد'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 4 نتيجة

  1. السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير أيها الاخوة الاعزاء   لدي جدول زيارات للمدارس بتواريخ معينة ، وقمت بوضع اسماء المدارس بقائمة منسدلة وحاولت أن أمنع تكرار استخدام المدرسة عن طريق التحقق من الصحة لكن لم يضبط الأمر ، فأرجو المساعدة بما يلي :   1- يتم منع اختيار المدرسة للمرة الثالثة ، فقط المسموح مرتين 2- اريد تعديل فورم التاريخ الهجري لأنه لا يظهر بشكل جيد وإن كانت هناك مقترحات بخصوصه فأتمنى مساعدتي بها 3- سيكون هناك يوم خالي من الزيارات وهو يوم الأربعاء مثلا ولا أريد أن يتأثر هذا اليوم بكود المنع 4- كيف يمكن عمل واجهه جميلة بحيث يتم اختيار اسماء المدارس والتواريخ والطباعة مباشرة بدون الدخول لصفجة الأكسل ؟     وفقكم الله وسدد على طريق الخير خطاكم جدول الزيارات4.rar
  2. حماية البرامج من النقل الى جهاز اخر عن طريق SerialNumber الهارد  حماية البرنامج من النسخ او النقل الى جهاز اخر عن طريق سريال الهارد  منع البرامج من العمل على جاهز اخر عن طريق SerialNumber للهارد  رابط الملف المستخدم على صفحة اليوتيوب https://www.youtube.com/watch?v=wOFP6CElT1s  
  3. تحية طيبة و بعد قمت بالبحث عن كود استخراج سريال الهارد ديسك الحقيقى و وجدت مثال من صنع الأستاذة زهرة و قمت بعمل تعديل بسيط علية لكى يقوم بادخال السيريال فى جدول ثم بعد ذلك استدعاءة فى متغير كل مرة تفتح الفورم للتأكد من أنة نفس الهارد و اذا لم يكن نفس الهارد يأخذ بيانات الهارد الجديد ثم يقوم بحفظها و هكذا حتى يصل لعدد 5 سريال ثم يتوقف البرنامج عن العمل و هذا هو كودى Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Dim x As String Dim x2 Dim x3 As Integer Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection x = Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothingx2 = DLookup("[HdNum]", "[T2]", "[HdNum] = '" & x & " ' ")If x2 = Null ThenDim sqls As StringDoCmd.SetWarnings Falsesqls = "insert into T2(HdNum) values('" & x & "')"DoCmd.RunSQL sqlsDoCmd.SetWarnings TrueEnd Ifx3 = Nz(DCount("HdNum", "t2"), 0)If x3 > 5 ThenMsgBox "error -Hard24680"'DoCmd.QuitEnd Ifالمشكلة أن الكود بة خطأ عندما يدخل فى if  لا ينفذ المطلوب و يتجاهل ادخال سريال الهارد فى الجدول رغم اننى قمت بالغاء If x2 = Null ThenDim sqls As StringDoCmd.SetWarnings Falsesqls = "insert into T2(HdNum) values('" & x & "')"DoCmd.RunSQL sqlsDoCmd.SetWarnings TrueEnd Ifو استخدمت نفس جملة الحفظ للسريال بدون if و عملت بلا مشاكل يبدو أن هناك خطأ منطق فى كودى و لا استطيع معرفتة فهل من مساعدة ؟
  4. طلب سريال نمبر لبرنامج setup factory .9  او اى نسخة