ممكن مساعدة في حل هذه المشكلة

[أبو بسنت وتسنيم]

انا قفلت برنامج شئون عاملين وشغلتة علي اول جهاذ واشتغل كويس 

بشغلة علي الثاني طلعت الرسالة دية 

ممكن المساعده في حل الرسالة دية

وشكرا

[jjafferr]

وعليكم السلام 

 

الظاهر من رسالة الخطأ ، انه في المعيار ، انك استخدمت نص مكان رقم 

او شئ من هذا النوع 

 

جعفر

[أبو بسنت وتسنيم]

لاء والله المفروض تظهر الشاشة دية مع العلم انها ظهرة في اول جهاذ وفي الجهاذ الثاني جاب الايرور الي حضرتك شوفتة 

[jjafferr]

لوسمحت تضع الكود الذي يسبب هذا الخطأ

[أبو بسنت وتسنيم]

الملف الي فية الاكواد بالمديول بتاعة كمان

GetInfoStartUbFrm - Copy.rar

[jjafferr]

متى / اين / كيف  يأتي الخطأ؟

 

جعفر

[أبو بسنت وتسنيم]

Next
BIOx = BIOx + 11 / 3.1 * 66612.9 / 7 * 13

For i = 1 To Len(GetDriveHD)
GetDrivX = GetDrivX & (AscW(Mid(GetDriveHD, i, 1)))

Next
GetDrivX = GetDrivX / 3 * 30811.1 * 2.9 + 31235 * 1301.2
 
 'ÇáÊÇßÏ ãä ÑÞã ãÝÊÇÍ ÇáÊÔÛíá
If Val(Prox) = Nz(Val(DLookup("[SnProc]", "sntb")), 0) And Val(BIOx) = Nz(Val(DLookup("[SnBIOS]", "sntb")), 0) And _
Val(GetDrivX) = Nz(Val(DLookup("[SnDrv]", "sntb")), 0) Then

Label0.Caption = "äÌÇÍ ÇáÊÓÌíá ãÈÑæß ÇáÑÞã ÕÍíÍ"
Else
DoCmd.Close

MsgBox "ÇáÑÞã ÛíÑ ÕÍíÍ"
DoCmd.OpenForm "StartUpFrm"
End If

 

الكود دة في form1

المفروض لما افتح البرنامج يجبي ارقام القطع بس مش بيجبها بيجيب الرسالة الي في المشاركة الاولي

[jjafferr]

أخي الفاضل 

 

الخطأ في الكود باللون الاحمر:

الكمبيوتر عندي لا  يعطي رقم BIOSSerialNumber ، وعليه الخطأ يأتي في BIOx  ، حيث الكود يضيف قيمة BIOx  "والتي هي لا شئ" الى ارقام ، وهذا خطأ:

 

For i = 1 To Len(ProcessorNum)
Prox = Prox & (AscW(Mid(ProcessorNum, i, 1)))
Next
'المتغير بعد تطبيق المعادلة الحسابيه عليه يساوي
'طبعا القسمه وغيره هي مجرد اجتهاد  لكن يجب ان تكون العمليات الحسابيه متطابقه مع ملف انشاء الارقام التسلسليه
Prox = Prox * 9001.25 / 8.11 * 456.9 / 7 * 187.3
'--
For i = 1 To Len(BIOSSerialNumber)
BIOx = BIOx & (AscW(Mid(BIOSSerialNumber, i, 1)))
Next
BIOx = BIOx + 11 / 3.1 * 66612.9 / 7 * 13

 

قبل مدة رأيت احد المواضيع التي تخص الحماية عن طريق رقم المذربورد ، 

رجاء مراجعة هذا الرابط من مشاركة أخونا الفاضل ابوخليل الى النهاية:

 

جعفر

[أبو بسنت وتسنيم]

شكرا اخي 

طيب استفسار ان امكن 

انا جربت البرنامج علي لاب توب توشيبا واستغل كوية وعلي اتش بي كومبك واشتغل كويس بردو وعلي ديل واشتغل كويس

لما شغلتة علي جهاز تجميع حصلت المشكلة دية 

فهل ليها علاقة بنوع المزر بورد

[jjafferr]

المثل يقول:

الباب الذي يجيك منه ريح ، سده (اغلقه) واستريح 

 

يعني انت ما تعرف راح ما/يشتغل على كمبيوتر ، فليش مصمم على استعماله 

شوف بديل يعمل على جميع الاجهزة 

 

جعفر

[أبو بسنت وتسنيم]

طيب ممكن تقترح علية البديل انا كنت بفكر في برنامج القلعة الاصدار الثاني بس انا بعمل بقفل البرنامج وبيتم تنصيبة

فية حل ممكن تعرفهولي

ولكم مني جزيل الشكر

[jjafferr]

العفو أخي ، انا غير متخصص في الحمايات 

والرابط الآخر اللي انت وضعت سؤالك فيه ، هم يناقشون موضوع الحماية ،

فالافضل انت تسألهم هناك 

 

 

جعفر