كيفية عرض مفتاح منتج Windows 10 الخاص بك باستخدام البرنامج النصي

2019-09-25 18:27:05
رئيسي·مايكروسوفت·كيفية عرض مفتاح منتج Windows 10 الخاص بك باستخدام البرنامج النصي

هناك العديد من الأدوات لاستخراج مفتاح المنتج من نظام مباشر أو من خلية التسجيل الخاصة بجهاز كمبيوتر غير متصل بالإنترنت. بالإضافة إلى ذلك ، إليك برنامج 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.

اختيار المحرر