اشراق العالم
05-08-2020, 12:41 PM
<div>بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
https://www9.0zz0.com/2020/05/08/14/680634602.jpg
طبعًا على الاغلب الكثير قام بالترقية للوندوز 10 أو استخدم أداة الترقية إلخ.
المهم : قد تشعر أن جهازك بطيئ أو به مشكلة ما أو هناك خلل بالتعاريف
و أردت إعادة فرمتت جهازك و تركيب نسخة نظيفة ولكنك تحتاج لمعرفة سيريال النسخة
و إلا دخلت بورطة.
و الطريقة لمعرفة سيريال نسخة وندوز 10 :
1- انسخ الأمر التالي :
كود:
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Micro soft\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
2- من على سطح المكتب اضغط زر الماوس الأيمن و اختر من الأسفل انشاء مستند جديد
وألصق الأمر السابق به :
ولا تنسى بعد النسخ و اللصق أن تقوم باختيار حفظ باسم ثم ضع الاسم للملف كالتالي :
productkey.vbs
3- ثم بعد وضع الاسم أعلاه قم باختيار نوع حفظ الملف : All Files
سوف يكون بهذا الشكل
https://www9.0zz0.com/2020/05/08/14/913831504.jpg
4- بعد الحفظ قم بالضغط ضغطتين على الملف على سطح المكتب وبيكون شكله كذا :
https://www9.0zz0.com/2020/05/08/14/740203524.jpg
5- ولنسخ السيريال قم بالضغط على نفس النافذة أعلاه ثم اضغط CTRL + C
لتقوم بحفظ السيريال.
ثم قم بحفظه بمكان آمن .
تم نقل الموضوع للأفادة
تحياتنا لكم
السلام عليكم ورحمة الله وبركاته
https://www9.0zz0.com/2020/05/08/14/680634602.jpg
طبعًا على الاغلب الكثير قام بالترقية للوندوز 10 أو استخدم أداة الترقية إلخ.
المهم : قد تشعر أن جهازك بطيئ أو به مشكلة ما أو هناك خلل بالتعاريف
و أردت إعادة فرمتت جهازك و تركيب نسخة نظيفة ولكنك تحتاج لمعرفة سيريال النسخة
و إلا دخلت بورطة.
و الطريقة لمعرفة سيريال نسخة وندوز 10 :
1- انسخ الأمر التالي :
كود:
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Micro soft\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
2- من على سطح المكتب اضغط زر الماوس الأيمن و اختر من الأسفل انشاء مستند جديد
وألصق الأمر السابق به :
ولا تنسى بعد النسخ و اللصق أن تقوم باختيار حفظ باسم ثم ضع الاسم للملف كالتالي :
productkey.vbs
3- ثم بعد وضع الاسم أعلاه قم باختيار نوع حفظ الملف : All Files
سوف يكون بهذا الشكل
https://www9.0zz0.com/2020/05/08/14/913831504.jpg
4- بعد الحفظ قم بالضغط ضغطتين على الملف على سطح المكتب وبيكون شكله كذا :
https://www9.0zz0.com/2020/05/08/14/740203524.jpg
5- ولنسخ السيريال قم بالضغط على نفس النافذة أعلاه ثم اضغط CTRL + C
لتقوم بحفظ السيريال.
ثم قم بحفظه بمكان آمن .
تم نقل الموضوع للأفادة
تحياتنا لكم