Windows 10 Ürün Anahtarı Nasıl Öğrenilir?

Windows 10 ürün anahtarı nasıl görüntülenir? Bilgisayarınızdaki yüklü işletim sisteminin lisans anahtarını öğrenmek için kullanabileceğiniz yöntemleri derledik!

Volkan Yılmaz -

Windows 10 ürün anahtarını öğrenmek için hangi işlemlerin gerçekleştirilmesi gerekiyor? Bu yazıda oldukça büyük bir popülerliğe olan işletim sisteminin lisans anahtarına nasıl erişebileceğinizi açıkladık.

Microsoft tarafından geliştirilen Windows 10 işletim sisteminin lisansını başka bir bilgisayara aktarmak istiyorsanız ya da yalnızca sürüm yükselttiyseniz kullanmakta olduğunuz ürün anahtarına ihtiyaç duyabilirsiniz.

Windows 10 Ürün Anahtarı Öğrenme Nasıl Yapılır?

Komut İstemi ile Lisans Anahtarı Öğrenme

Windows 10 ile birlikte gelen bilgisayarlarda ürün anahtarı, anakartın sabit yazılımında yer alır. Eğer yeni bilgisayarınızdaki ürün anahtarını öğrenmek istiyorsanız, bunu komut istemi aracılığı ile yapmanız mümkündür.

ProduKey ile Ürün Anahtarı Öğrenme

Eğer komut istemi ile ürün anahtarınızı öğrenemediyseniz üçüncü parti bir uygulamadan yardım almayı düşünebilirsiniz. ProduKey kolay kullanımı ile tercih edebileceğiniz uygulamalardan birisi olarak öne çıkıyor. Ürün anahtarınızı öğrenmek için uygulamayı indirmeniz ve yüklemeniz yeterli olacaktır.

Windows 10 Kutu İçeriğine Bakma

Popüler işletim sistemini kutulu olarak satın aldıysanız, lisans anahtarına ürünün kutusunun içerisinden erişebilirsiniz. Bu işlem için kutunun içeriğini kontrol etmeniz yeterli olacaktır. Eğer ürünün kutusunu kaybettiyseniz, listedeki diğer yöntemleri uygulayabilirsiniz.

Windows Ayarlarını Kullanma

İşletim sisteminin lisans anahtarını görüntüleyebilmek için uygulayabileceğiniz bir yöntem daha bulunuyor. Üçüncü parti yazılım kullanmak istemiyorsanız ayarlar sayfası üzerinden oldukça pratik ve hızlı bir şekilde anahtara erişebilirsiniz.

Not Defteri ile Ürün Anahtarı Öğrenme

Windowss 10 işletim sisteminizin anahtarına ulaşabilmek için not defterini kullanabilirsiniz. Böylelikle herhangi bir yazılımı kurmadan lisans anahtarına erişmiş olursunuz. Bu yöntem için yukarıda yer alan adımları sırasıyla uygulamanız gerekir.

Not defterine kaydetmeniz gereken satırlar şu şekilde:

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

    keypart1 = Mid(KeyOutput, 2, Last)

    insert = "N"

    KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

    If Last = 0 Then KeyOutput = insert & KeyOutput

    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

Yazılım

Windows 11'in Bilinmeyen Özellikleri

Sıkça Sorulan Sorular

Windows 10 etkinleştirme ile ilgili merak edilen bazı soruları yanıtlayacağız.

Ürün Anahtarı Olmadan Windows 10 Nasıl Etkinleştirilir?

Ürün anahtarı olmadan Windows 10'u etkinleştirmek için dijital lisans kullanabilirsiniz. Dijital lisansı internet üzerinden satın alabilirsiniz. Satın alma işleminin ardından sahip olduğunuz kodu Windows'a girerek etkinleştirebilirsiniz.

Windows 10 Ürün Anahtarı Hangi Dosyada?

Windows 10 ürün anahtarı, bilgisayardaki bir dosyada yer almaz. Ürün anahtarını görüntülemenin birden fazla yöntemi vardır. Windows 10 kutu içeriğine bakabilir, Komut İstemi'ne "wmic path SoftwareLicensingService get OA3xOriginalProductKey" kodunu yazabilir ve daha birçok yöntem aracılığıyla ürün anahtarına erişebilirsiniz.

Windows Etkin Değilse Ne Olur?

Windows'u etkinleştirmezseniz işletim sistemiyle beraber gelen bazı özelliklere erişemezsiniz. Bu, kullanım deneyimini doğrudan olumsuz yönde etkiler. Dolayısıyla işletim sisteminin sunduğu tüm özelliklere ulaşabilmek için orijinal Windows satın alarak etkinleştirme işlemini yapmanız gerekir.

nasıl yapılır

Ücretsiz Windows 11 Yüklemesi Nasıl Yapılır?

Rehberde bulunan yöntemleri kullanarak Windows 10 lisans anahtarınızı bulabilirsiniz. Peki siz bu yöntemlerden hangisini tercih ediyorsunuz ve önerileriniz var mı? Konu hakkındaki görüşlerinizi hemen aşağıda yer alan yorumlar sekmesinden bizlerle paylaşmayı unutmayın.

Benzer İçerikler

YORUMLAR