Ucuz Windows 11 key Önerisi.

[DA_mødları_çok_iyi]

Selamlar bilgisayarımı Windows 11 e yükseltmeyi düşünüyorum. Ucuz key nereden bulabilirim? Şu an win 10 um lisanslı ancak keyimi bulamıyorum göstermiyor.

 

[Ahmet Sevinç]

Selamlar bilgisayarımı Windows 11 e yükseltmeyi düşünüyorum. Ucuz key nereden bulabilirim? Şu an win 10 um lisanslı ancak keyimi bulamıyorum göstermiyor.

hocam retail istersen 50tl ye buluruz sana

 

[BenRoboTdeğilİm]

ücretsiz yükseltebilirsin

 

[Meran]

ücretsiz yükseltebilirsin

Nasıl?

 

[DA_mødları_çok_iyi]

ücretsiz yükseltebilirsin

Nasıl hocam?

 

[Sagittarius]

ZATEN PC DESTEKLIYORSA UCRETSIZ YUKSELTME HAKKI GELIR

konu bitti dağılın

 

[DA_mødları_çok_iyi]

ZATEN PC DESTEKLIYORSA UCRETSIZ YUKSELTME HAKKI GELIR

konu bitti dağılın

Hocam pc im destekliyor fakat gelmedi. Arkadaşıma yükseltme hakkı gelmiş ancak şu an onda da gözükmüyor yani o istediği zaman kafasına göre geliyor.

 

[Caelius]

Hocam pc im destekliyor fakat gelmedi. Arkadaşıma yükseltme hakkı gelmiş ancak şu an onda da gözükmüyor yani o istediği zaman kafasına göre geliyor.

hocam gelmesini beklemeyin siz indirme sitesine gidip yukseltin

 

[KaraSex]

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

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

 

[Sagittarius]

Hocam pc im destekliyor fakat gelmedi. Arkadaşıma yükseltme hakkı gelmiş ancak şu an onda da gözükmüyor yani o istediği zaman kafasına göre geliyor.

Sen yukselt eger w10 key microsoft hesabinda aktive ise microsoft hesabiyla giris yap orjinal gelmesi lazım

 

[KaraSex]

yukardaki kodları not defteriyle farklı kaydet yap key.vbs olarak kaydet gösterir keyini

 

[Sagittarius]

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

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

.

 

[Quill]

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

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

Adam serial key algoritmasını atmış