internetten 10-15 liraya windows 10 pro key'i satın almıştım. aldıktan sonra etkinleştirdim. şimdi üstünden aylar geçti o ve key'e ihtiyacım var. cmd'den powershell "(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey" komutunu girince kodumu vermiyor. başka key bulucu programlarla denediğimde yine key çıkmıyor. ama bilgisayarım "windows 10 pro etkinleştirildi" diye yazıyor. acaba oem keylerde normal mi bu durum? |
WİNDOWS 10 PRO OEM KEY BULMA
-
-
Cmd’de bulması gerekiyor hocam. Mağazayla irtibata geçin isterseniz.
< Bu ileti mobil sürüm kullanılarak atıldı > -
Büyük ihtimalle dolandırılmışsınız.
< Bu ileti mobil sürüm kullanılarak atıldı > -
Key bulma programları var denediniz mi?
< Bu ileti mobil sürüm kullanılarak atıldı > -
Aslında key girmeden temiz Windows kurulumu yaptığınızda ilk internete bağlandığızda otomatik olarak etkinleşmesi lazım.
Ama her ihtimale karşı lisans keyinizi bulup bir yere not edin, lazım olur. Bunun için çeşitli programlar var. Mesela ProduKey programını kullanabilirsiniz.
https://www.nirsoft.net/utils/product_cd_key_viewer.html
-
Hocam bu programla denedim, “product key was not found” yazıyor. Bilgisayara temiz kurumla windows 10 yükleyeceğim acaba otomatik olarak key yine aktif olur mu
< Bu ileti mobil sürüm kullanılarak atıldı > -
Bulmadı, mağaza gittigidiyor’da kapatılmış :(
< Bu ileti mobil sürüm kullanılarak atıldı > -
Aslında key girmeden temiz kurulum yapınca internete ilk bağlantıda otomatik olarak Windows etkinleşiyor. Sizin de etkinleşmesi lazım.
İsterseniz daha sağlam olsun diye format atmadan önce bilgisayarı Windows Cihazlara ekleyin otomatik etkinleştirme olmazsa Microsoft hesabınızla oturum açarsınız Windows etkinleştirmesi daha garanti olur. Herhangi bir problem çıkarsa da Microsoft'tan daha iyi destek alırsınız.
Cihazı Microsoft hesabına bağlayabilmeniz için hotmail veya outlook live hesabınızın olması yeterlidir. Yoksa outlook live gidip ücretsiz hesap açabilirsiniz.
Windows 10'da Ayarlar > Hesaplar > Bilgileriniz'e girin. Burada Microsoft hesabı ile oturum aç'ı seçin. Bilgisayarda Microsoft hesabı ile oturum açtıktan sonra Microsoft devices'de bilgisayarınızı görebilmeniz lazım. [Microsoft devices'in buraya linkini yazmaya çalışıyorum ama değişik çıkıyor. Bir türlü yazamadım.]
Format atıp temiz kurulum yapınca otomatik etkinleştirme olmazsa Microsoft hesabınızla giriş yaptığınızda bilgisayarınızı tanıyacaktır.
Bundan sonra ister Microsoft hesabı ile devam edersiniz isterseniz yerel hesaba geçiş yaparsınız.
Bu yöntem de işe yaramazsa Microsoft'u arayıp destek isteyebilirsiniz. Durumu anlatırsınız bilgisayarım Microsoft cihazlarında görünüyor dersiniz, lisanslı olduğunuzu daha rahat ispatlamış olursunuz. Ama Microsoft destekle konuşurken 10-15 TL aldığınızı söylemeyin. Onun yerine "Her zaman format attığımda otomatik olarak etkinleşiyordu, lisans anahtarını hiç kullanmadığım için kayboldu gitti. Ne olduysa şimdi etkinleşmedi. İlgilenir misiniz?" dersin.
< Bu mesaj bu kişi tarafından değiştirildi DoubleDragon -- 29 Ekim 2020; 22:40:20 >
-
Bende GG dan pro key aldim (oem) anakarta gomuluyo etkinlestirmede.Sanirim 10 sefer format atmisimdir:) Windows 10 un farkli versiyonlari kurarak en stabili bulmaya calistim Herneyse formattan sonra ilk internet baglantisinda kendi otomatik aktif oldu hic elimi bile vurmadim biseye.Buyuk ihtimalle szinkide olacakdir.
< Bu ileti mobil sürüm kullanılarak atıldı > -
-
Const HKEY_LOCAL_MACHINE = &H80000002
WinKey = GetWinKey
OfficeKeys = GetOfficeKey("10.0") & GetOfficeKey("11.0") & GetOfficeKey("12.0") & GetOfficeKey("14.0") & GetOfficeKey("15.0")
If Msgbox(WinKey & vbnewline & vbnewline & OfficeKeys & vbnewline & "Tüm anahtarları ProductKeys.txt dosyasına kayıt etmek istiyor musunuz?", vbyesno, "Windows Ürün Anahtarları by MRT_") = vbyes then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("ProductKeys.txt", True)
objTextFile.Write WinKey & vbnewline & vbnewline & OfficeKeys
objTextFile.Close
end if
Function GetOfficeKey(sVer)
On Error Resume Next
Dim arrSubKeys
Set wshShell = WScript.CreateObject( "WScript.Shell" )
sBit = wshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
if sBit <> "%ProgramFiles(x86)%" then
sBit = "Software\wow6432node"
else
sBit = "Software"
end if
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.EnumKey HKEY_LOCAL_MACHINE, sBit & "\Microsoft\Office\" & sVer & "\Registration", arrSubKeys
Set objReg = Nothing
if IsNull(arrSubKeys) = False then
For Each Subkey in arrSubKeys
if lenb(other) < 1 then other = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")
if ucase(right(SubKey, 7)) = "0FF1CE}" then
Set wshshell = CreateObject("WScript.Shell")
key = ConvertToKey(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\DigitalProductID"))
oem = ucase(mid(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductID"), 7, 3))
edition = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")
if err.number <> 0 then
edition = other
err.clear
end if
Set wshshell = Nothing
if oem <> "OEM" then oem = "Retail"
if lenb(final) > 1 then
final = final & vbnewline & final
else
final = edition & " " & oem & ": " & key
end if
end if
Next
GetOfficeKey = final & vbnewline
End If
End Function
Function GetWinKey()
Set wshshell = CreateObject("WScript.Shell")
edition = wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
oem = ucase(mid(wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID"), 7, 3))
key = GetKey("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
set wshshell = Nothing
if oem <> "OEM" then oem = "Retail"
GetWinKey = edition & " " & oem & ": " & key
End Function
Function GetKey(sReg)
Set wshshell = CreateObject("WScript.Shell")
GetKey = ConvertToKey(wshshell.RegRead(sReg))
Set wshshell = Nothing
End Function
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
Yukarıdaki kodu bir metin belgesine kopyalayıp yapıştırın ve key.vbs olarak kayıt edin. Sonra dosyayı çift tıklayıp çalıştırın.
-
şöyle bir şey çıktı hocam
-
çok teşekkür ederim hocam, en mantıklısı bu. maili kaydedip eşleştirdim. çok teşekkür ederim.
-
Microsoft devices'de bilgisayarınızı görüyor musunuz?
-
Kayıt defterinde de keyin yazıyor olması gerekiyor aslında.
Kayıt defterine gir şu yolu izle.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform
BackupProductKeyDefault kayıt girdisinin sağında yazıyor olacak.
-
evet bilgisayarın modeli yazıyor. tıkladığımda da windows gözüküyor, cihazımı bul gibi detaylar var.
ikinci defa girmek istediğimde değişik bir hata verdi sıkıntı var sanırım sitede.
-
İyide zaten kendiniz demissiniz oem key degil mi bu anakarta kaydediyor. Sirf format atsanizda keyiniz silinmez
< Bu ileti DH mobil uygulamasından atıldı > -
Bende oyle almiştim hocam mailimde duruyo kod mailinize bakin
< Bu ileti DH mobil uygulamasından atıldı > -
Hocam eminimki düşünmüşsünüzdür ama ben her ihtimale yazayım dedim.Gittigidiyorda aktif olan mail adresine gelen ...kullanıcısı size mesaj yolladı mailini bulursanız rahat edebilirsiniz.
< Bu ileti DH mobil uygulamasından atıldı >
Benzer içerikler
- güncelleştirmeler üzerinde çalışılıyor bilgisayarınızı kapatmayın
- hizmet ana bilgisayarı ağ hizmeti
- windows 10 bluetooth görmüyor
- en iyi windows 10 sürümü
- hpet kaldırma
- değişken yenileme hızı açılmalı mı
- freedos nedir
- windows 11 arka plan
- klavyede olmayan semboller
- komut istemi
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X