Bu yazımda Windows işletim sistemlerinde lisans anahtarı (ürün numarası) nasıl öğrenilir çok kısa bir şekilde bunu göstereceğim.
Bunun için aşağıdaki kod satırını metin belgesine kopyalayıp, daha sonra bu metin belgesinin uzantısını “.txt” yerine “.vbs” uzantılı olarak kaydedin.
Dosya ismine ne verdiğinizin bir önemi yok, ben örnek olması açısından “ProductKey.vbs” dedim.
Sonrasında oluşan dosyayı ister çift tıklayıp açın, isterseniz sağ tıklayıp aç diyin. Ardından size popup şeklinde uyarı çıkacaktır.
Bu popupda çıkan key sizin windows ürün anahtarınızdır. Hepsi bu kadar.
Kodlar aşağıdadır.
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
Sorularınızı veya yorumlarınızı aşağıya yazabilirsiniz.