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

Windows 10 Ürün Anahtarını Nasıl Öğrenebilirim?
Volkan Yılmaz
Volkan Yılmaz nasıl yapılır
YORUM YAZ

Windows 7, 8 ya da 8.1 sürümlerinden Windows 10’a yükseltme yaptıysanız ve yeni ürün anahtarınızı öğrenmek istiyorsanız, sizler için anlattığımız çözüm yollarına göz atmanızda fayda var.

Microsoft, Windows 7 ve sonraki sürümlere ücretsiz Windows 10 yükseltmesi sunuyor. Bu Windows sürümlerinde kullandığınız ürün anahtarlarını ne yazık ki yeni Windows’ta kullanamıyorsunuz. Ücretsiz Windows 10 yükseltmesinden faydalanarak, ömür boyu sizin olacak ürün anahtarına da sahip olabilirsiniz. Olası bir aksilik durumunda kullanmak üzere, ürün anahtarınızı saklamak istiyorsanız aşağıdaki yöntemleri uygulayabilirsiniz.

1. Windows 8 Product Key Viewer

Adında her ne kadar Windows 8 geçiyor olsa da, diğer Windows sürümlerinin ürün anahtarlarını bulmak için de kullanabileceğiniz bu küçük uygulama kurulumsuz çalışıyor. Dosyayı indirdikten sonra çalıştırdığınızda ürün anahtarınızı ekranda görebilirsiniz.

2. ProduKey

Yukarıda belirttiğim şekilde küçük ve kurulumsuz olarak çalışan ProduKey uygulaması, Windows lisansınızı göstermekle kalmıyor, sisteminizde kurulu diğer uygulamaların lisansını da sizlere sunuyor.

3. VBScript kodu ile Ürün Anahtarı Bulma

Ek yazılımları indirmeden kendi yapacağınız küçük bir .vbs dosyasıyla da Windows 10 ürün anahtarınızı öğrenebilirsiniz. Aşağıda vermiş olduğumuz kodu kopyaladıktan sonra Not Defteri’ne yapıştırın. Daha sonra dosyayı Farklı Kaydet dedikten sonra, alt kısımdaki Kayıt Türü bölümünü Tüm Dosyalar olarak değiştirin ve dosya ismini “WindowsLisans.vbs” şeklinde kaydedin. Dosyaya çift tıkladığınızda ürün anahtarınızı görebilir, dosya şeklinde kaydedebilirsiniz.

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

Windows 10'da Başlat Menüsünü Hızlandırmanın 3 Kolay Yolu

Windows 10 Açılmıyorsa Güvenli Mod Nasıl Açılır?

YORUMLAR