Kaybolan Windows 11 Home Single Language anahtar kodu nereden bulunur?

wepaer

Attopat
Katılım
25 Kasım 2022
Mesajlar
32
Daha fazla  
Cinsiyet
Kadın
Merhaba, Windows 11 Home Single Language sürümü vardı ben de ben bunu 11 Pro çekmek istedim. Yapamadım ve şu anda Windows 11 Home Single Language anahtar kodum kayboldu. Bunu tekrar nasıl düzeltirim? Lisansım magazadan aldıgım şekilde orijinal durumdaydı şimdi kayboldu. Çözümü nedir? Tekrar Windows 11 Home Single Language yazılımı yüklesem düzelir mi? PC kişileştiremiyorum cok canımı sıkıyor cözüm nedir?
 
Çözüm
Boş bir metin belgesi açınız. Alttaki kodu yapıştırın. Ve dosyayı .vbs uzantısı olarak kaydedin ve çalıştırı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 & "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

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

Prime777

Gigapat
Katılım
31 Aralık 2020
Mesajlar
16.547
Makaleler
29
Çözümler
318
Yer
Osmaniye, Türkiye
Daha fazla  
Sistem Özellikleri
🖥️ PC: Core 2 Quad Q9500 | GT 430 2GB VRAM | 4 GB RAM | ASUS P5KPL- SE | Samsung 870 EVO 250 GB SSD | Windows 10 Home
Keyboard: Logitech G213 Prodigy | Mouse: Logitech G102 Lightsync | Headset: Gamepower Tinker V2 7.1 | Monitor: BenQ G922HDAL 60HZ | USB: Kioxia 32 GB 2.0 | Phone: Samsung Galaxy J7
Cinsiyet
Erkek
Meslek
Öğrenci
Etkinleştirme ayarları kısmına gelin, orada sorun gider çıkması lazım. Genellikle onu deneyince lisans geri gelebiliyor. Bu arada lisans OEM mi yoksa Retail mi? Muhtemelen Retail, mağazadan aldığınız lisansı unutmadıysanız tekrar girerseniz aktifleşmesi lazım. Bir de lisansınız Microsoft hesabınıza daha önceden bağlıysa o Microsoft hesabınızı girerek lisansı geri aktifleştirebilirsiniz.
 

SngrBob

Nanopat
Katılım
23 Nisan 2022
Mesajlar
823
Çözümler
18
Daha fazla  
Sistem Özellikleri
Ekran Kartı : GeForce GTX 1650 4GB
İşlemci : AMD Ryzen 5 5600h
Ram : 16GB 3200Mhz DDR4
SSD : 512GB M.2 SSD
Cinsiyet
Erkek
Merhaba, Windows 11 Home Single Language sürümü vardı ben de ben bunu 11 Pro çekmek istedim. Yapamadım ve şu anda Windows 11 Home Single Language anahtar kodum kayboldu. Bunu tekrar nasıl düzeltirim? Lisansım magazadan aldıgım şekilde orijinal durumdaydı şimdi kayboldu. Çözümü nedir? Tekrar Windows 11 Home Single Language yazılımı yüklesem düzelir mi? PC kişileştiremiyorum cok canımı sıkıyor cözüm nedir?
Genellikle otomatik olarak microsoft hesabınızla bağlanır ürün anahtarı yani format atıp aynı windows sürümünü kurup microsoft hesabınıza girerseniz tekrardan aktifleşmiş olur.
 

dodo61

Kilopat
Katılım
28 Nisan 2016
Mesajlar
605
Makaleler
3
Çözümler
14
Yer
Türkiye
Boş bir metin belgesi açınız. Alttaki kodu yapıştırın. Ve dosyayı .vbs uzantısı olarak kaydedin ve çalıştırı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 & "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

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
 
Çözüm
KS
KS
wepaer

wepaer

Attopat
Katılım
25 Kasım 2022
Mesajlar
32
Daha fazla  
Cinsiyet
Kadın
Boş bir metin belgesi açınız. Alttaki kodu yapıştırın. Ve dosyayı .VBS uzantısı olarak kaydedin ve çalıştırı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 & "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

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

Cdm ye mi yazim.

Etkinleştirme ayarları kısmına gelin, orada sorun gider çıkması lazım. Genellikle onu deneyince lisans geri gelebiliyor. Bu arada lisans OEM mi yoksa Retail mi? Muhtemelen Retail, mağazadan aldığınız lisansı unutmadıysanız tekrar girerseniz aktifleşmesi lazım. Bir de lisansınız Microsoft hesabınıza daha önceden bağlıysa o Microsoft hesabınızı girerek lisansı geri aktifleştirebilirsiniz.

Dostum habrikadan hazır aldım inan bilmiyorum.

Boş bir metin belgesi açınız. Alttaki kodu yapıştırın. Ve dosyayı .VBS uzantısı olarak kaydedin ve çalıştırı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 & "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

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

Reis yaptım dedigini lisans kodu anahtarı vb şeyleri gösterdi ve yol bulunamadı dedi hata verdi.
 
Son düzenleme:
KS
KS
wepaer

wepaer

Attopat
Katılım
25 Kasım 2022
Mesajlar
32
Daha fazla  
Cinsiyet
Kadın
Aldığın hatayı SS atar mısın? Ama lisans kodunun üzerini çiz
Adsız.png
Adsız.png

Reis bendeki orzinal keyi 11Home Pro ile Google'dan buldugum keyle degiştirdim bende bilmiyorum ama 10 Pro galiba yeni fark ettim ama su anda 11 Pro olması lazım key olarak Win etkinleştirilmedi yazısı hala durmaya devam ediyor.
 

dodo61

Kilopat
Katılım
28 Nisan 2016
Mesajlar
605
Makaleler
3
Çözümler
14
Yer
Türkiye
Evet o hatayla bende karşılaştım linkteki kodları çalıştırırsan. Herhangi bir hata almazsın. O hata da önemsiz aslında sadece keyi txt dosyayı olarak çıktı veremiyor o kadar.
istersen Gofile - Free file sharing and storage platform burada ki kodlar çalışıyor. Deneyebilirsin.

Reis bendeki orzinal keyi 11Home Pro ile Google'dan buldugum keyle degiştirdim bende bilmiyorum ama 10 Pro galiba yeni fark ettim ama su anda 11 Pro olması lazım key olarak Win etkinleştirilmedi yazısı hala durmaya devam ediyor.
windows 10 keyleri windows 11 ile çalışıyor. Büyük ihtimalle o yüzden windows 10 olarak görünüyor olabilir. Ayarlar > Güncelleştirme ve güvenlik > Etkinleştirme kısmında etkinleştirildi gibi bir ibare var ise sıkıntı yok.

Ekran Alıntısı.PNG

Bu şekil bir ifade var mı?
 
KS
KS
wepaer

wepaer

Attopat
Katılım
25 Kasım 2022
Mesajlar
32
Daha fazla  
Cinsiyet
Kadın
Evet o hatayla bende karşılaştım linkteki kodları çalıştırırsan. Herhangi bir hata almazsın. O hata da önemsiz aslında sadece keyi txt dosyayı olarak çıktı veremiyor o kadar.
İstersen Gofile - Free file sharing and storage platform burada ki kodlar çalışıyor. Deneyebilirsin.

Windows 10 keyleri Windows 11 ile çalışıyor. Büyük ihtimalle o yüzden Windows 10 olarak görünüyor olabilir. ayarlar > güncelleştirme ve güvenlik > etkinleştirme kısmında etkinleştirildi gibi bir ibare var ise sıkıntı yok.

Eki Görüntüle 1587273
Bu şekil bir ifade var mı?

Dostum bana instegramdan yardım etme şansın var mı nasıl yapılcagını bilmiyorum etkinleştirme bölümünde hata veriyor

Dostum bana instegramdan yardım etme şansın var mı nasıl yapılcagını bilmiyorum etkinleştirme bölümünde hata veriyor

Kanka şöyle bir şey var bende.

Adsızd.png
 
Son düzenleme:

dodo61

Kilopat
Katılım
28 Nisan 2016
Mesajlar
605
Makaleler
3
Çözümler
14
Yer
Türkiye
Doğru sürüme ait key olduğuna emin misin? Windows 10 pro versiyonuna home keyi girmeye çalışıyor olabilirsin. Sürümüne uygun key gir.

Merhaba, Windows 11 Home Single Language sürümü vardı ben de ben bunu 11 Pro çekmek istedim. Yapamadım ve şu anda Windows 11 Home Single Language anahtar kodum kayboldu. Bunu tekrar nasıl düzeltirim? Lisansım magazadan aldıgım şekilde orijinal durumdaydı şimdi kayboldu. Çözümü nedir? Tekrar Windows 11 Home Single Language yazılımı yüklesem düzelir mi? PC kişileştiremiyorum cok canımı sıkıyor cözüm nedir?
Eğer sisteme Pro yüklediysen Home Single Language keyi çalışmaz. Aynı şekilde Home yüklediysen Pro Keyi çalışmaz buna dikkat et.
 

Yeni konular

Yukarı