WİNDOWS 10 PRO OEM KEY BULMA

5 yıl

Teğmen

Konu Sahibi

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?

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

S

susamli

5 yıl

Onbaşı

Cmd’de bulması gerekiyor hocam. Mağazayla irtibata geçin isterseniz.

< Bu ileti mobil sürüm kullanılarak atıldı > Bu mesaja 1 cevap geldi.

Y

Yaglikasik

5 yıl

Onbaşı

Büyük ihtimalle dolandırılmışsınız.

< Bu ileti mobil sürüm kullanılarak atıldı >

A

Afrikali Sisko

5 yıl

Er

Key bulma programları var denediniz mi?

< Bu ileti mobil sürüm kullanılarak atıldı >

D

DoubleDragon

5 yıl

Yarbay

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

< Resime gitmek için tıklayın >

Bu mesaja 1 cevap geldi.

K

Kolonyali

5 yıl

Teğmen

Konu Sahibi

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ı > Bu mesaja 3 cevap geldi.

Bu mesajda bahsedilenler: @DoubleDragon

K

Kolonyali

5 yıl

Teğmen

Konu Sahibi

Bulmadı, mağaza gittigidiyor’da kapatılmış :(

< Bu ileti mobil sürüm kullanılarak atıldı >

Bu mesajda bahsedilenler: @susamli

D

DoubleDragon

5 yıl

Yarbay

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 >
Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @Kolonyali

G

Guest-ACF0A91A6

5 yıl

Binbaşı

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ı >

Bu mesajda bahsedilenler: @Kolonyali

M

MRT_

5 yıl

Yarbay

Bu programı deneyin.

https://forum.donanimhaber.com/urun-anahtarim-key-hangi-windows-surumu-icin-ogrenin--119017536

M

MRT_

5 yıl

Yarbay

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.

Bu mesaja 1 cevap geldi.

K

Kolonyali

5 yıl

Teğmen

Konu Sahibi

< Resime gitmek için tıklayın >
şöyle bir şey çıktı hocam

Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @MRT_

K

Kolonyali

5 yıl

Teğmen

Konu Sahibi

çok teşekkür ederim hocam, en mantıklısı bu. maili kaydedip eşleştirdim. çok teşekkür ederim.

Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @DoubleDragon

D

DoubleDragon

5 yıl

Yarbay

Microsoft devices'de bilgisayarınızı görüyor musunuz?

Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @Kolonyali

M

MRT_

5 yıl

Yarbay

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.

Bu mesajda bahsedilenler: @Kolonyali

K

Kolonyali

5 yıl

Teğmen

Konu Sahibi

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.

Bu mesaja 2 cevap geldi.

Bu mesajda bahsedilenler: @DoubleDragon

A

aurosonic

5 yıl

Yarbay

İyide zaten kendiniz demissiniz oem key degil mi bu anakarta kaydediyor. Sirf format atsanizda keyiniz silinmez

< Bu ileti DH mobil uygulamasından atıldı >

U

Ucuzcufiko

5 yıl

Binbaşı

Bende oyle almiştim hocam mailimde duruyo kod mailinize bakin

< Bu ileti DH mobil uygulamasından atıldı >

İ

istanbul-15

5 yıl

Binbaşı

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ı >

Bu mesajda bahsedilenler: @Kolonyali