محمد الورفلي1 قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 السلام عليكم كيف اجعل هذا الملف يعمل على جهازين فقط بتحدد مرجع معين يتظمن الرقم السري الذي ادخله او التعديل علي هذا الكود حتي يتقبل رقم اضعة بنفسي ليس رقم الهارد .لان رقم الهارد يكون مختلف فيعمل المف على جهاز والجهاز الاخر لايعمل لاختلاف رقم الهارد Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "A8520DF" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub ملف يعمل علي جهازين.rar
وائل احمد المصري قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 طيب ما تحط رقم الهاردين انظر المرفق ملف يعمل علي جهازين.rar 2
وائل احمد المصري قام بنشر أكتوبر 23, 2015 قام بنشر أكتوبر 23, 2015 اخي محمد السلام عليكم رجاء عند عرض طلب برجاء التعليق اذا ماتم الحل ام لا تحياتي
محمد الورفلي1 قام بنشر أكتوبر 23, 2015 الكاتب قام بنشر أكتوبر 23, 2015 السم عليكم استاذ واائل اسف على التاخير..... فلم ياخرني في الرد الا اني اعتبرت الموضوع غير مهم فقط وليس تجهل وهذا دليل علي عدم التجاهل عند شعوري باهتمامك لمعرفة ما حصل معي . الكود الذي ارفقته لم يفلح لكن توصلت لحل هو تغيير كلمة OR الي AND .... ولكن هذا الكود لاياتي بنتيجة محكمة لانه عند الفورمات الجهاز يتغير هذا الرقم ......... فااصبحت ابحث عن طريقة اخرى كود اخر يخرج لي رقم الهارد الذي لايتغير مع الفورمات Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.