Windows 10 Temiz Kurulum Key?

[juvanpix]

laptop aldıgımda win 8 ıle aldım 8,1 e yukseltım sımdı wın 10 kulanıyorum.
wın 8 ıle aldıgımda ne dvd nede ısletım sıstemı ıle ılgılı bırsey vermedıler.
serıal key nedır bıle bılmıyorum. bıossa gomulu ımıs bunlarda.sorum su:

windows 10 usb ile temiz kkurulum yapmak istiyorum keyimi program yardımı ile aldıktan sonra usb ile kurulum yaparken kullanacak nıyım sorunsuz , orjinal olarak ya da aldıktan sonra komut satırına slmgr/upk yazıp eski keyi silmek zorunda mıyım???

[xarax]

Microsoft hesabı ile kullanıyorsan bilgilerini microsoft kaydedip sonraki temiz kurulumda internet erişimin olduğunda etkinleştirme otomatik olacak kurulum sırasında key girmene gerek yok.

İnternet erişimi yoksa şu şekilde etkinleştirebilirsin;

Windows 10 yükseltmesini başarıyla yaptıysan ve Windows 10 ISO içindeki sources klasöründe "gatherosstate.exe" dosyasını çıkar ve çalıştır.

Aynı dizinde "GenuineTicket.xml" diye bir dosya oluşturacak bu dosyayı sakla ve temiz kurulumdan sonra "C:\ProgramData\Microsoft\Windows\ClipSVC\GenuineTicket" dizinine kopyala. Bilgisayarı yeniden başlatınca etkinleşmiş olacaktır.

[juvanpix]

Microsoft hesabı ile kullanıyorsan bilgilerini microsoft kaydedip sonraki temiz kurulumda internet erişimin olduğunda etkinleştirme otomatik olacak kurulum sırasında key girmene gerek yok.

İnternet erişimi yoksa şu şekilde etkinleştirebilirsin;

Windows 10 yükseltmesini başarıyla yaptıysan ve Windows 10 ISO içindeki sources klasöründe "gatherosstate.exe" dosyasını çıkar ve çalıştır.

Aynı dizinde "GenuineTicket.xml" diye bir dosya oluşturacak bu dosyayı sakla ve temiz kurulumdan sonra "C:\ProgramData\Microsoft\Windows\ClipSVC\GenuineTicket" dizinine kopyala. Bilgisayarı yeniden başlatınca etkinleşmiş olacaktır.

peki bu şekilde yaparım. keyi alıp istenen ekranda key girsek daha basit olmaz mı ben öyle düşünmüştüm.

[ersur]

Win 8.1 iken win 10a yükselttiysen win 10 sıfır kurulumu key girmeden yap. Sonra internete bağlan kendi kendine etkinleşecek. Hiç bir şey yapmana gerek yok.

Bu çok daha basit öyle değil mi?

Edited September 6, 2015 by ersur

[ozanaus]

not defterinş aç, aşağıdakı kodu not defterine yapıştır

ardından farklı kaydet deyip adını BackupWindowsKey.vbs olarak kaydet

BackupWindowsKey.vbs dosyasına çift tıkla keyini göreceksin

 

bu arada temiz kurulum yapsan key girmene gerek yok, daha önce yükseltme yaptığın için otomotik etkinleşecek

 

[codeh]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[/codeh]

[TheEE]

not defterinş aç, aşağıdakı kodu not defterine yapıştır

ardından farklı kaydet deyip adını BackupWindowsKey.vbs olarak kaydet

BackupWindowsKey.vbs dosyasına çift tıkla keyini göreceksin

 

bu arada temiz kurulum yapsan key girmene gerek yok, daha önce yükseltme yaptığın için otomotik etkinleşecek

 

[codeh]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[/codeh]

 

win 7 modbios ile lisanslayıp yükseltmiştim şimdi bu key o keymi yoksa win10 keyimi baştan cd ile kurunca bu keyi girersem etknleşir mi. sağol.

[ozanaus]

 

win 7 modbios ile lisanslayıp yükseltmiştim şimdi bu key o keymi yoksa win10 keyimi baştan cd ile kurunca bu keyi girersem etknleşir mi. sağol.

daha once lisansli sistem yükseltme yapılınca, temız kurlumda aynı sistemı kursan keye gerek kalmadan etkinleşecek sistemın

ama korsanlarda işe yaramaz sanırım, denemekte fayda var

Edited September 6, 2015 by ozanaus

[juvanpix]

daha once lisansli sistem yükseltme yapılınca, temız kurlumda aynı sistemı kursan keye gerek kalmadan etkinleşecek sistemın

ama korsanlarda işe yaramaz sanırım, denemekte fayda var

c ve d bölümlerini sıfırlıcam silecem yani sorun çıkmaz dimi aldığım keyide key ekranında girecem

[ozanaus]

c ve d bölümlerini sıfırlıcam silecem yani sorun çıkmaz dimi aldığım keyide key ekranında girecem

dostum tekrar soyluyorum hddyı komple sıfırla, hıc key gırmeden kurulum yap, ınternete baglanınca otomotık etkınleşecek, tersten okumayın ya

[alper_42]

laptop aldıgımda win 8 ıle aldım 8,1 e yukseltım sımdı wın 10 kulanıyorum.
wın 8 ıle aldıgımda ne dvd nede ısletım sıstemı ıle ılgılı bırsey vermedıler.
serıal key nedır bıle bılmıyorum. bıossa gomulu ımıs bunlarda.sorum su:

windows 10 usb ile temiz kkurulum yapmak istiyorum keyimi program yardımı ile aldıktan sonra usb ile kurulum yaparken kullanacak nıyım sorunsuz , orjinal olarak ya da aldıktan sonra komut satırına slmgr/upk yazıp eski keyi silmek zorunda mıyım???

Merhaba arkadaşım. Biosa gömülü lisans anahtarın varsa çok şanslısın, sana özel lisansın var demektir. Bunu öğrenmeye gelince;

 

1- Rweverthing isimli uygulamayı indirmen lazım. Yandaki linkten son sürümnü ve Portable olanını indir.  İndirmek için buraya tıkla.

2- Aracı çalıştırın ve ACPI butonuna tıklatın. Ardından açılan ACPI Table penceresinde MSDM sekmesini seçin. Resimde işaretlediğim alanda lisans anahtarını göreceksiniz.

 

Artık hem lisans anahtarını öğrenmiş, hemde istersen yedekleyebilirsin. Windows 8.1 de direk kendi lisans anahtarını girerek lisanslama yapabilirsin, ama Win10 için yükleme esnasında girersen kabul etmeyecektir. Ancak yükseltme işleminde kullanabilirsin, onu da zaten kendisi biostan çekerek alıyor.

 

(Not : Resim alıntıdır.)