هناك العديد من الأدوات لاستخراج مفتاح المنتج من نظام مباشر أو من خلية التسجيل الخاصة بجهاز كمبيوتر غير متصل بالإنترنت. بالإضافة إلى ذلك ، إليك برنامج Vbscript الصغير والأنيق الذي يحصل على مفتاح المنتج الخاص بتثبيت Windows الحالي - لا يلزم وجود برنامج تابع لجهة خارجية. يعمل البرنامج النصي على Windows 7 و 8 و Windows 10.
عرض مفتاح منتج Windows 10 باستخدام البرنامج النصي
قم بنسخ التعليمات البرمجية التالية إلى المفكرة ثم احفظ الملف كـ GetProductKey.vbs.
الخيار صريح خافت ، مسار ، معرف رقمي ، مجموعة نتائج objshell = CreateObject ("WScript.Shell") 'تعيين مسار مفتاح التسجيل Path = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \"' قيمة مفتاح التسجيل DigitalID = objshell.RegRead (المسار و "DigitalProductId") Dim ProductName و ProductID و ProductKey و ProductData 'Get ProductName و ProductID و ProductKey ProductName = "اسم المنتج:" & objshell.RegRead (Path & "ProductName") ProductID = "معرف المنتج:" & objshell. RegRead (Path & "ProductID") ProductKey = "Installed Key:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Show messbox if save to a file if vbYes = MsgBox (ProductData & vblf & vblf & "Save to a file؟"، vbYesNo + vbQuestion، "BackUp Windows Key Information") ثم Save ProductData End If 'Convert binary to chars Function ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8، Maps، i، j، Current، KeyOutput وأخيرًا ، keypart1 ، أدخل "تحقق مما إذا كان نظام التشغيل Windows 8 هو Win8 = (مفتاح (66) \ 6) ومفتاح واحد (66) = (مفتاح (66) و & HF7) أو ((isWin8 و 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" هل التيار = 0 j = 14 هل التيار = الحالي * 256 الحالي = المفتاح (j + KeyOffset) + الحالي Key (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 = Current Loop بينما i> = 0 If (isWin8 = 1) ثم keypart1 = Mid (KeyOutput، 2، Last) insert = "N" KeyOutput = Replace (KeyOutput، keypart1، keypart1 & insert، 2، 1، 0) If Last = 0 Then KeyOutput = insert & KeyOutput End If ConvertToKey = Mid (KeyOutput، 1، 5) & "-" & Mid (KeyOutput، 6، 5) & "-" & Mid (KeyOutput، 11، 5) & "-" & Mid ( KeyOutput ، 16 ، 5) & "-" & Mid (KeyOutput، 21، 5) End Function 'حفظ البيانات في ملف حفظ الوظيفة (البيانات) Dim fso، fName، txt، objshell، UserName Set objshell = CreateObject ("wscript. shell ") 'الحصول على اسم المستخدم الحالي UserName = objshell.ExpandEnvironmentStrings ("٪ UserName٪ ")' إنشاء ملف نصي على سطح المكتب fName =" C: \ Users \ "& UserName &" \ Desktop \ WindowsKeyInf o.txt "Set fso = CreateObject (" Scripting.FileSystemObject ") تعيين txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function
المصدر: استرداد مفتاح منتج Windows · GitHub
انقر نقرًا مزدوجًا لتشغيل البرنامج النصي لمعرفة مفتاح المنتج الخاص بتثبيت Windows.