6:08:00 م

طريقة اظهار مفتاح التفعيل الخاص بنسخ ويندوز 7,8,10


إستخراج مفتاح التفعيل المُستخدم في نسخة الويندوز الخاصه بك او التي قمت بشراؤها ومثبته حالياً علي حاسوبك، ولكن لا تعرف كيف يمكن لك معرفة هذا المفتاح او الكود بعد كتابته اثناء تفعيل النسخة إلا من خلال صندوق الاسطوانة او الفلاشة الاصلية من مايكروسوفت، لكن إذا اردت معرفته من خلال نظام التشغيل نفسه فلا تستطيع فعل ذلك لان مايكروسوفت تقوم بتشفيره مباشرةً ويظهر لك الـ ID فقط، لكن الامر لم يكن مستحيل فهناك عدة طرق لمعرفة مفتاح التفعيل المُستخدم في نسخة الويندوز لديك سواء ويندوز 10 او 8 او 7، وفي هذا الموضوع سنقوم بإستعراض إحدي تلك الطرق لمعرفة سيريال النسخة بل وحفظ نسخة إحتياطية منه بضغطة زر تااابع....

1 - انشيئ مستند نصي TXT ثم انسخ والصق دخله هذا الكود :
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & 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") then
Save ProductData
End If

'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
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 While i >= 0

If (isWin8 = 1) Then
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
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

2 - بعد نسخ و لصق الكود داخل المستند
- من Ficher او File حسب اللغة
- ثم اختر Enregistrer Sous او Save As حسب اللغة
- ثم ثم بتسمية الملف اي اسم شرط ان تكون الصيغة في الاخير هي vbs
- ثم Enregistrer او Save لحفظ الملف 
- ستحصل على ملف في الاخير بصيغة vbs افتحه ليظهر لك سيريال تفعيل نسخة الويندوز لديك
- ( تابع الصور اسفله )
و بنفس الطريقة يمكن اظهار السيريال لنسخ ويندوز 8 و 10 

انتهى الشرح بالتوفيق للجميع