الطريقة الأسهل لمعرفة سيريال Windows 10 بعد الترقية
banner
2015-08-01 , 04:46 مساءً
hatrec’s Avatar
hatrec

مشارك

المشاركات:488
التسجيل:Nov 2006
hatrec


[SIZE=4]السلام عليكم



Image
[/SIZE]


طبعًا على الاغلب الكثير قام بالترقية للوندوز 10 أو استخدم أداة الترقية إلخ.

المهم
: قد تشعر أن جهازك بطيئ أو به علة ما أو هناك خلل بالتعاريف و أردت إعادة فرمتت جهازك و تركيب نسخة نظيفة ولكنك تحتاج لمعرفة سيريال النسخة و إلا دخلت بورطة.

و الطريقة لمعرفة [U]سيريال نسخة وندوز 10[/U] :

[LEFT][CENTER] 1- انسخ الأمر التالي :

[CODE]
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[/CODE]
[/LEFT]

2- من على سطح المكتب اضغط زر الماوس الأيمن و اختر من الأسفل انشاء مستند جديد وألصق الأمر السابق به :

ولا تنسى بعد النسخ و اللصق أن تقوم باختيار حفظ باسم ثم ضع الاسم للملف كالتالي :

productkey.vbs

3- ثم بعد وضع الاسم أعلاه قم باختيار نوع حفظ الملف : All Files

Image





4- بعد الحفظ قم بالضغط ضغطتين على الملف على سطح المكتب وبيكون شكله كذا :

Image


5- ولنسخ السيريال قم بالضغط على نفس النافذة أعلاه ثم اضغط CTRL + C لتقوم بحفظ السيريال.

ثم قم بحفظه بمكان آمن .

تحياتي لكم وإن أعجبك الموضوع لا تبخل علي بالرعص على زر [U]شكرًا[/U].

[/CENTER]
Enlarged Image
2015-08-01 , 04:46 مساءً
2015-08-01 , 04:57 مساءً
Qassim1418’s Avatar
Qassim1418

مبدع

المشاركات:2696
التسجيل:Aug 2013
Qassim1418
ما نجح
2015-08-01 , 04:57 مساءً
2015-08-01 , 05:01 مساءً
hatrec’s Avatar
hatrec

مشارك

المشاركات:488
التسجيل:Nov 2006
hatrec
Qassim1418 كتب:
ما نجح



أنا نجح معي و قمت بنسخ السيريال في قوقل كيب للمستقبل .

لعلك قمت بالعملية خطأ !!


Image
2015-08-01 , 05:01 مساءً
2015-08-01 , 05:03 مساءً
لامباردي’s Avatar
لامباردي

نشيط

المشاركات:839
التسجيل:Nov 2012
لامباردي
جربت لكن في ايرر لمن اضغط
2015-08-01 , 05:03 مساءً
2015-08-01 , 05:03 مساءً
Qassim1418’s Avatar
Qassim1418

مبدع

المشاركات:2696
التسجيل:Aug 2013
Qassim1418
hatrec كتب:



أنا نجح معي و قمت بنسخ السيريال في قوقل كيب للمستقبل .

لعلك قمت بالعملية خطأ !!





اقصد السيريال ماطلع
2015-08-01 , 05:03 مساءً
2015-08-01 , 05:14 مساءً
hatrec’s Avatar
hatrec

مشارك

المشاركات:488
التسجيل:Nov 2006
hatrec
لامباردي كتب:
جربت لكن في ايرر لمن اضغط


Qassim1418 كتب:
اقصد السيريال ماطلع


صدقتم المشكلة بالمنتدى و ترتيبه للرموز
المفروض تظهر كذا :
لكن المنتدى خربط كل شي !!


Image
2015-08-01 , 05:14 مساءً
2015-08-01 , 05:19 مساءً
azozz11’s Avatar
azozz11

مبدع

المشاركات:3682
التسجيل:Aug 2013
azozz11
الله يبيض وجهك ضيط المشكله من المنتدى
2015-08-01 , 05:19 مساءً
2015-08-01 , 05:21 مساءً
hatrec’s Avatar
hatrec

مشارك

المشاركات:488
التسجيل:Nov 2006
hatrec
azozz11 كتب:
الله يبيض وجهك ضيط المشكله من المنتدى



جرب الآن...
عدّلت الموضوع و حاولت التفريق بين الأسطر و لعل المشكلة انتهت إن شاء الله.

أرجو التجربة و الإفادة.
2015-08-01 , 05:21 مساءً
2015-08-01 , 05:25 مساءً
Qassim1418’s Avatar
Qassim1418

مبدع

المشاركات:2696
التسجيل:Aug 2013
Qassim1418
نفس المشكلة
2015-08-01 , 05:25 مساءً
2015-08-01 , 05:39 مساءً
عزف المحبه’s Avatar
عزف المحبه

مشارك

المشاركات:438
التسجيل:Jul 2013
عزف المحبه
نفس المشكله
2015-08-01 , 05:39 مساءً
2015-08-01 , 05:52 مساءً
hatrec’s Avatar
hatrec

مشارك

المشاركات:488
التسجيل:Nov 2006
hatrec
الطريقة صحيحة و لكن المنتدى للأسف.
أعتذر منكم
2015-08-01 , 05:52 مساءً
2015-08-01 , 05:56 مساءً
عين عبدالرحمن’s Avatar
عين عبدالرحمن

مبدع

المشاركات:3044
التسجيل:May 2011
عين عبدالرحمن
hatrec كتب:
الطريقة صحيحة و لكن المنتدى للأسف.
أعتذر منكم


طيب حط الامر في مفكرة و ارفعه على سيرفر الخليج للصور > يطول الملف
2015-08-01 , 05:56 مساءً
2015-08-01 , 06:16 مساءً
memomo’s Avatar
memomo

مبدع

المشاركات:4385
التسجيل:May 2009
memomo
Obada Bagh كتب:
من قام بالترقية من ويندوز 7 أو 8.1 لن يظهر له سيريال حقيقي لأنه لا يوجد سيريال أصلاً !!!


Image

:mrgreen:
2015-08-01 , 06:16 مساءً
2015-08-01 , 07:18 مساءً
عـبوودي’s Avatar
عـبوودي

مبدع

المشاركات:3593
التسجيل:Mar 2008
عـبوودي
هذا الكود توي جربته .. راح يشتغل معكم
:17:

[CODE]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[/CODE]

:11:
2015-08-01 , 07:18 مساءً
2015-08-01 , 07:23 مساءً
arrow killer’s Avatar
arrow killer

مبدع

المشاركات:4133
التسجيل:Feb 2014
arrow killer
hatrec كتب:



أنا نجح معي و قمت بنسخ السيريال في قوقل كيب للمستقبل .

لعلك قمت بالعملية خطأ !!



طيب جربت السيريال على نسخة iso !!!

هنا الكلام نبي احد مجرب عشان نعتمد على الطريقه ذى لانه اكثر من برنامج يظهر سيريال مختلف عن الاخر

بالنسبه لى حفظت جميع السيريال الى طلعتها على الايميل


الله يعطيك العافيه :17:
2015-08-01 , 07:23 مساءً
2015-08-01 , 07:23 مساءً
عبدالمحسن بن أحمد’s Avatar
عبدالمحسن بن أحمد

VIP

المشاركات:1844
التسجيل:Nov 2007
عبدالمحسن بن أحمد
با انسبة اللي نسخته اصلية ماعنده أي مشكله انا اليوم عملت فرمات للجهاز طبعا بعد الترقيه ونصبت الوندوز 10 وعند طلب مفتاح الترخيص عملت تخطي وقمت با الخطوات حتى انتهاء التنصيب ولما اتصلت با الانترنت على طول تم التنشيط
2015-08-01 , 07:23 مساءً
2015-08-01 , 07:51 مساءً
مشاري بن خالد’s Avatar
مشاري بن خالد

مبدع

المشاركات:2382
التسجيل:Oct 2009
مشاري بن خالد
عـبوودي كتب:
هذا الكود توي جربته .. راح يشتغل معكم
:17:

[CODE]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[/CODE]

:11:


تم نسخ هذا الأمر وضبط معي ،

الله يعطيكم العافية جميعاً .
2015-08-01 , 07:51 مساءً
2015-08-01 , 08:25 مساءً
Najam Allaial’s Avatar
Najam Allaial

VIP

المشاركات:3579
التسجيل:Jul 2007
Najam Allaial
جزيل الشكر فعلا الطريقة فعالة في استخراج السيريال

والسيريال مختلف عن السيريال اللي تم استخراجه بهالبرنامج

Lazesoft Windows Product finder
2015-08-01 , 08:25 مساءً
2015-08-01 , 08:26 مساءً
hatrec’s Avatar
hatrec

مشارك

المشاركات:488
التسجيل:Nov 2006
hatrec
عـبوودي كتب:
هذا الكود توي جربته .. راح يشتغل معكم
:17:

[CODE]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[/CODE]

:11:

شكراً عبود

أرسلت من HTC One M9PLUS بإستخدام تاباتلك
2015-08-01 , 08:26 مساءً
2015-08-01 , 08:33 مساءً
C.R.9’s Avatar
C.R.9

نشيط

المشاركات:678
التسجيل:May 2009
C.R.9
انا كنت محمل النسخة الأخيرة اللي قبل الرسمية وكان مضبوط معي ومنشط الان حملة أداة الويندوز وثبت النسخة الرسمية والا النسخة ما هي منشطة ياليت فيه حل لها لاني ما قدرت انشط حسابي مع العلم باني مسجل في برنامج ويندوز انسايدر
2015-08-01 , 08:33 مساءً