• أعضاء وزوار منتديات المشاغب ، نود أن نعلمكم أن المنتدى سيشهد في الفترة القادمة الكثير من التغيرات سواءاً على المستوى الإداري او مستوى الاقسام، لذا نرجو منكم التعاون، وأي ملاحظات او استفسارات يرجى التواصل معنا عبر قسم الشكاوي و الإقتراحات ونشكركم على حسن تفهمكم وتعاونكم ،مع خالص الشكر والتقدير والاحترام من إدارة منتديات المشاغب.

(( تم الرد )) لمعرفة سريال نمبر وندوز 11

  • بادئ الموضوع بادئ الموضوع ADNAN
  • تاريخ البدء تاريخ البدء
الحالة
مغلق و غير مفتوح للمزيد من الردود.
ADNAN

ADNAN

عضو مميز
سجل
28 فبراير 2021
المشاركات
358
الحلول
3
التفاعل
156
الإقامة
FINLAND
الجنس
السلام عليكم ... سؤالي هو كيفية معرفة سريال نمبر وندوز 11 . علما بان الوندوز عندي تم ترقيته من وندوز 10 الى وندوز 11 . وشكرا لكم جميعا
 
شكرا لك انا عندي النسخة اصلية من الشركة كما اسلفت لكم ولا تحتاج تنشيط فقط اريد معرفة السريال نمبر لاحتمال اقوم بالفرمته وتنصيب وندوز من جديد لان الشركة وندوز لاتعطي الترقية مرتين . لقد استعملت برنامج كشف السريالات ولم يعمل على الوندوز 11
 
حسب علمي إذا أنت مسجل الدخول في الويندوز بحساب مايكروسوفت .. ينحفظ التفعيل في حال عملت فورمات لنفس الكمبيوتر سيبقى مفعل
لكن حمل ويندوز 11 على فلاشة حتى تقوم بالفرمتة منها .. مو كل مرة تثبت ويندوز 10 ثم ترقيه​
 
راي الشخصي
ان قمت بتصطيب نفس النسخة اي ان كان على الحاسوب نسخة برو ان عملت فورمات وثم تصطيب نسخة برو سيكون في النهاية النسخة اكتيف لا يحتاج الى سريال حتى ان كان النسخة الاخيرة تختلف عن الاولى من حيث التسلسل

مع هذا يمكنك في ويندوز 11 معرفة السريال في الريجستيري وذلك

من الكي بورد اضغط مفتاح
الويندوز مع R
اكتب في النافذة regedit وثم OK
سيفتح نافذة الريجستيري

تابع هذا المسار

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform

HKEY_LOCAL_MACHINE
ثم
SOFTWARE
ثم
Microsoft
ثم
Windows NT
ثم
CurrentVersion
ثم
SoftwareProtectionPlatform

Nj2lzBv.png


او انسخ الكود التالي الى النودبات وثم احفظها باي اسم بصيغة vbs
مثلا احفظها باسم

ADNAN.vbs
ثم اعمل دبل كليك عليها اي شغلها ستجد نافذة مع السريال

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