Windows Ürün Anahtarı Bulma – Programsız

Windows Seri Numarası Bulmak

1. Notepad programını açıyoruz.

2. Aşağıda yer alan kodu Notepad belgesine yapıştırıyoruz.

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

3. Dosya menüsünden Kaydet komutunu veriyoruz.

4. Dosya adı: kısmına key.vbs yazıyoruz. Kayıt türü: kısmını Tüm Dosyalar olarak seçiyoruz. KAYDET butonuna basarak dosyamızı kayıt ediyoruz.

5. Şimdi tek yapmamız gerekeni kayıt ettiğimiz dosyayı açmak. Ve karşınızda kullanmış olduğunuz Windows’a ait ürün anahtarı.

Google Plus ile Paylas

About zafer

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.