غالباً نرغب في ان نثبت نسخة ويندوز المتواجدة على الكمبيوتر المخصص بنا على حاسب الي آخر ولكن تبقى إشكالية وهي أننا لا نعلم ماهو Product Key المخصص بالنسخة المتواجدة بشكل فعلي على الكمبيوتر لهذا سنتعرف في تلك المقالة على طريقتين لأستخراج Product Key، ولكن اولاً يلزم أن نعرف ان هناك بعض المشكلات التي قد تقابلنا وهي أنه بإمكانك استخراج Product key لأصدار ويندوز 7 بأسهل ما يمكن بتلك الأساليب التي سنشرحها لاحقاً ولكن اذا كنت تعمل على ويندوز 8 او 8.1 فستجد نفسك في مواجهة حالتين: الأولى هي أن نسخة الويندوز قد في مرة سابقة تحميلها وتثبيتها على حاسوبك من قِبل المؤسسة المُصنعة للحاسوب وفي تلك الوضعية لن يمكنها استخراج Product Key ولن تجد كذلكً ملصق على الكمبيوتر لمعرفة Product key منه مثل المتواجد في الصورة الآتية لأن المؤسسة تقوم بتشفير ذلك العدد في BIOS او في UEFI Firmware، لهذا سيتطلب هذا ان تتصل بالدعم الفني للشركة الصانعة وتخبرهم بالرقم التسلسلي لحاسوبك حتى يخبروك برقم Product Key.
لحالة الثانية وهي اذا في مرة سابقة و قمت بشراء نسخة ويندوز 8 او 8.1 من الدكاكين المُعتمدة لهذا، في تلك الوضعية بإمكانك استخراج Product Key
عن طريق كود كتابي
- ستقوم بفتح برنامج Notepad ونسخ السطور الآتية فيه:
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
............................................
- ثم تقوم بحفظ هذا الملف بأسم Key وقم بإضافة امتداد .vbs كما هو ظاهر في الصورة التالية كما يجب ان تختار All files في خانة Save as type ثم تضغط على Save.