كيفية عرض مفتاح المنتج الخاص بك في Windows 10 و Windows 8 و Windows 7

إذا فقدت أو نسيت مكان تخزين مفتاح منتج Windows ، فلدي حل لك. سنرى اليوم كيف يمكن استخدام برنامج نصي بسيط من VBS لإظهار مفتاح المنتج لنسخة مثبتة من Windows 10 أو Windows 8 أو Windows 7. إنه حل بسيط لاستخراج مفتاح المنتج الخاص بك من نظام التشغيل المثبت على جهاز الكمبيوتر الخاص بك دون استخدام أي برنامج تابع لجهة خارجية. ها نحن ذا.

في الواقع ، لقد نشرت سابقًا ملف حل مماثل التي تستخدم بوويرشيل. لكن العديد من المستخدمين اشتكوا من فشلها بالنسبة لهم. قد يتطلب PowerShell مهارات مستخدم إضافية وتعديلات إضافية لتشغيل أوامر cmdlets غير الموقعة.

بالمقارنة مع PowerShell ، يعد حل VBScript هذا مثاليًا تقريبًا. كل ما عليك فعله هو النقر فوق الملف. إلى عرض مفتاح منتج Windows 10 الخاص بك

1. افتح المفكرة.
2. انسخ والصق النص التالي في نافذة المفكرة

   خيار صريح. خافت objshell ، المسار ، DigitalID ، النتيجة. تعيين objshell = CreateObject ("WScript. Shell ") 'تعيين مسار مفتاح التسجيل المسار =" HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ "" قيمة مفتاح التسجيل DigitalID = objshell. RegRead (المسار & "DigitalProductId") Dim ProductName و ProductID و ProductKey و ProductData 'Get ProductName و ProductID و ProductKey ProductName = "Product Name:" & objshell. RegRead (المسار & "اسم المنتج") ProductID = "معرف المنتج:" & objshell. RegRead (المسار & "ProductID") ProductKey = "المفتاح المثبت:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'إظهار صندوق الرسائل في حالة الحفظ في ملف. إذا كان vbYes = MsgBox (ProductData & vblf & vblf & "حفظ إلى ملف؟" ، vbYesNo + vbQuestion ، "BackUp Windows Key Information") ثم احفظ ProductData. إنهاء إذا. تحويل ثنائي إلى أحرف دالة ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8، Maps، i، j، Current، KeyOutput، Last، keypart1، insert 'تحقق مما إذا كان نظام التشغيل هو Windows 8 isWin8 = (مفتاح (66) \ 6) ومفتاح واحد (66) = (مفتاح (66) و & & HF7) أو ((isWin8 و 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" هل التيار = 0 j = 14 التيار = الحالي * 256 الحالي = مفتاح (j + KeyOffset) + المفتاح الحالي (j + KeyOffset) = (Current \ 24) Current = Current Mod 24 j = j -1 Loop while j> = 0 i = i -1 KeyOutput = Mid (Maps، Current + 1، 1) & KeyOutput Last = الحلقة الحالية بينما أنا> = 0. إذا (isWin8 = 1) ثم keypart1 = Mid (KeyOutput، 2، Last) أدخل = "N" KeyOutput = استبدال (KeyOutput، keypart1، keypart1 & insert، 2، 1، 0) إذا كان الأخير = 0 ثم KeyOutput = إدراج & KeyOutput End If. ConvertToKey = Mid (KeyOutput، 1، 5) & "-" & Mid (KeyOutput، 6، 5) & "-" & Mid (KeyOutput، 11، 5) & "-" & Mid (KeyOutput، 16، 5) & "-" & منتصف (KeyOutput، 21، 5) End Function 'حفظ البيانات في ملف الوظيفة الحفظ (البيانات) Dim fso، fName، txt، objshell، UserName Set objshell = CreateObject ("wscript.shell")' الحصول على الحالي اسم االمستخدم. اسم المستخدم = الهدف. ExpandEnvironmentStrings ("٪ UserName٪") 'قم بإنشاء ملف نصي على سطح المكتب. fName = "C: \ Users \" & UserName & "\ Desktop \ WindowsKeyInfo.txt" تعيين fso = CreateObject ("برمجة. FileSystemObject ") عيّن txt = fso. CreateTextFile (fName) txt. كتابة البيانات txt. وظيفة إغلاق النهاية 
   

3. احفظ النص أعلاه في ملف بامتداد ".vbs" على سطح المكتب.
   نصيحة إضافية: للتأكد من حفظ الملف بشكل صحيح بامتداد ".vbs" ، يمكنك كتابة اسمه محاطًا بعلامات اقتباس مزدوجة ، على سبيل المثال ، "BackupWindowsKey.vbs".
   
4. افتح الآن ملف BackupWindowsKey.vbs الخاص بك
5. فويلا ، يتم عرض مفتاح المنتج على الشاشة!
   

انقر هنا لتنزيل ملف BackupWindowsKey.vbs

لقد اختبرت هذه الخدعة على Windows 7 و Windows 8 و Windows 10. يعمل بشكل لا تشوبه شائبة في جميع أنظمة التشغيل المذكورة. الاعتمادات: هراء @ MDL.