Başka SSD takıp Windows yüklenince lisans gider mi?

Samicenk

Samicenk

Hectopat
Katılım
3 Şubat 2021
Mesajlar
522
Çözümler
2
Bende 256 GB M.2 SSD var, 1 TB işe değiştireceğim. Lisans böyle Windows 10'a veya 11'e geçsem bile gitmeyen Laptop lisansından. SSD'yi taktıktan sonra temiz kurulum yapınca lisans gider mi?
 
Tarihe göre sırala Puana göre sırala
Samicenk dedi:
Bende 256 GB M.2 SSD var, 1 TB işe değiştireceğim. Lisans böyle Windows 10'a veya 11'e geçsem bile gitmeyen Laptop lisansından. SSD'yi taktıktan sonra temiz kurulum yapınca lisans gider mi?
Genişletmek için tıkla...
Lisans anahtarını alıp bir kenara yazmanız lazım. İnternette bu konu hakkında tonla video var. Onlara bakıp yapabilirsiniz.
 
Artı 0 Eksi
Samicenk dedi:
Bende 256 GB M.2 SSD var, 1 TB işe değiştireceğim. Lisans böyle Windows 10'a veya 11'e geçsem bile gitmeyen laptop lisansından. SSD'yi taktıktan sonra temiz kurulum yapınca lisans gider mi?
Genişletmek için tıkla...

Evet muhtemelen gider. Siz yine de lisans anahtarını bir yere kaydedin. Eğer unuttuysanız metin belgesi açın ve içine aşağıdaki kodu kopyalayıp farklı kaydet ile lisans. VBS olarak kaydedin ve açın.

Kod: 
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 & "Bir dosyaya kaydedilsin mi?", 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

If (isWin8 = 1) Then.
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput.
End If.
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

Açtığınızda şöyle bir ekran gelecektir:

1686583025307.png


Kod zararsızdır ve benim değildir.
 
Artı 0 Eksi
FAT1HIYY3 dedi:
Evet muhtemelen gider. Siz yine de lisans anahtarını bir yere kaydedin. Eğer unuttuysanız metin belgesi açın ve içine aşağıdaki kodu kopyalayıp farklı kaydet ile lisans. VBS olarak kaydedin ve açın.

Kod: 
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 & "Bir dosyaya kaydedilsin mi?", 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

If (isWin8 = 1) Then.
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput.
End If.
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

Açtığınızda şöyle bir ekran gelecektir:

Eki Görüntüle 1818023

Kod zararsızdır ve benim değildir.
Genişletmek için tıkla...
Tamam teşekkür ederim.

Fermion dedi:
Hayır, laptop'u aldığınızda varsayılan olarak Windows kurulu geldiyse BIOS'a gömülüdür. Eğer siz sonradan anahtar satın aldıysanız yine de anahtarı bir yere yazmanızda veya kaydetmenizde fayda var.
Genişletmek için tıkla...
Aldığımda W10 vardı zaten ama genede kaydedeyim.

Fermion dedi:
Hayır, laptop'u aldığınızda varsayılan olarak Windows kurulu geldiyse BIOS'a gömülüdür. Eğer siz sonradan anahtar satın aldıysanız yine de anahtarı bir yere yazmanızda veya kaydetmenizde fayda var.
Genişletmek için tıkla...
Aldığımda W10 vardı zaten ama genede kaydedeyim.

FAT1HIYY3 dedi:
Evet muhtemelen gider. Siz yine de lisans anahtarını bir yere kaydedin. Eğer unuttuysanız metin belgesi açın ve içine aşağıdaki kodu kopyalayıp farklı kaydet ile lisans. VBS olarak kaydedin ve açın.

Kod: 
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 & "Bir dosyaya kaydedilsin mi?", 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

If (isWin8 = 1) Then.
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput.
End If.
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

Açtığınızda şöyle bir ekran gelecektir:

Eki Görüntüle 1818023

Kod zararsızdır ve benim değildir.
Genişletmek için tıkla...
Kanka kodu dediğin gibi yaptığımda hata veriyor. Nedeni ne olabilir? Sürüm W11 Single Language.
 
Son düzenleme:
Artı 0 Eksi
Samicenk dedi:
Tamam teşekkür ederim.

Aldığımda Windows 10 vardı zaten ama gene de kaydedeyim.

Aldığımda Windows 10 vardı zaten ama gene de kaydedeyim.

Kanka kodu dediğin gibi yaptığımda hata veriyor. Nedeni ne olabilir? Sürüm W11 Single Language.
Genişletmek için tıkla...

Windows 10'da denemedin mi kodu? Kod olmuyorsa Nirsoft'dan produkey indir ve çalıştır lisansı direkt gösteriyor.
 
Artı 0 Eksi
FAT1HIYY3 dedi:
Windows 10'da denemedin mi kodu? Kod olmuyorsa Nirsoft'dan produkey indir ve çalıştır lisansı direkt gösteriyor.
Genişletmek için tıkla...
Aldığımda W10 vardı yazdım, sonra 11 kurdum.

FAT1HIYY3 dedi:
Windows 10'da denemedin mi kodu? Kod olmuyorsa Nirsoft'dan produkey indir ve çalıştır lisansı direkt gösteriyor.
Genişletmek için tıkla...
Şey mesela SSD'yi değiştirdim sonrasında tekrar key'i aktifleştirme bölümünden mi gireceğim?

CMD'dende bakılıyor çünkü lisans anahtarına.
 
Artı 0 Eksi

Benzer konular

M
Windows klonlanınca lisans gider mi?
Mesaj
1
Görüntüleme
215
Hepsi Şurada
Hepsi Şurada
onurcan_cvs
Windows 11 kurulunca lisans gider mi?
Mesaj
3
Görüntüleme
472
T_u_x
T_u_x
svirtue
Windows sürümü düşürülürse lisans gider mi?
Mesaj
1
Görüntüleme
400
Zinederon
Zinederon
4
Windows 11 kurulursa lisans gider mi?
2
Mesaj
10
Görüntüleme
3.784
459349
4
Yalnız Göksu
Windows 11 kurulursa lisans gider mi?
Mesaj
5
Görüntüleme
1.357
wuzzlle
wuzzlle

Technopat Haberler

Yeni konular

Yeni mesajlar

Geri
Yukarı