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
Peki bir şey soracağım izninizle w7 geçicem eğer memnun kalmazsam w10'a geçicem tekrar bu ürün anahtarı ile W10 enterprise gelicekmi bana.En kolay Windows lisans anahtarı öğrenme
Programı indirin, çalıştırın, bu kadar. En kolay lisans bulma yöntemi. İsteğe bağlı "print" tıklayarak yazdırabilirsiniz veya "Save" tıklayarak lisans anahtarınızı not defterine kaydedebilirsiniz. "product key" yazan sizin lisans anahtarınızdır...www.technopat.net
Peki bir şey soracağım izninizle W7 geçeceğim eğer memnun kalmazsam Windows 10'a geçeceğim tekrar bu ürün anahtarı ile Windows 10 Enterprise gelecek mi bana.
Ben yapamadım sanırım.
Windows'u kırmışlar sanırım.BBBBB-BBBBB-BBBBB-BBBBB-BBBBB yazıyor.
gene aynısı hocam.Komut.txt
drive.google.com
O zaman bunu indirip, daha sonrasında farklı kaydet seçeneğinden uzatınsını ''.vbs'' yapıp halledebilirsiniz. Aynı şey fakat direkt kodun olduğu text dosyasını verdim.
Eki Görüntüle 1528570
Windows'u kırmışlar sanırım.
Bu sitenin çalışmasını sağlamak için gerekli çerezleri ve deneyiminizi iyileştirmek için isteğe bağlı çerezleri kullanıyoruz.