juvanpix Posted September 5, 2015 Share Posted September 5, 2015 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??? Quote Link to comment Share on other sites More sharing options...
xarax Posted September 5, 2015 Share Posted September 5, 2015 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. Quote Link to comment Share on other sites More sharing options...
juvanpix Posted September 5, 2015 Author Share Posted September 5, 2015 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. Quote Link to comment Share on other sites More sharing options...
ersur Posted September 6, 2015 Share Posted September 6, 2015 (edited) 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 Quote Link to comment Share on other sites More sharing options...
ozanaus Posted September 6, 2015 Share Posted September 6, 2015 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] Quote Link to comment Share on other sites More sharing options...
TheEE Posted September 6, 2015 Share Posted September 6, 2015 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. Quote Link to comment Share on other sites More sharing options...
ozanaus Posted September 6, 2015 Share Posted September 6, 2015 (edited) 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 Quote Link to comment Share on other sites More sharing options...
juvanpix Posted September 6, 2015 Author Share Posted September 6, 2015 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 Quote Link to comment Share on other sites More sharing options...
ozanaus Posted September 6, 2015 Share Posted September 6, 2015 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 Quote Link to comment Share on other sites More sharing options...
alper_42 Posted September 7, 2015 Share Posted September 7, 2015 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.) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.