DA_mødları_çok_iyi
80+ Gold
- Katılım
- 16 Ağustos 2021
- Mesajlar
- 6,338
- En İyi Cevap
- 3
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 sanaSelamlar 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.
Nasıl?ücretsiz yükseltebilirsin
Nasıl hocam?ücretsiz yükseltebilirsin
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.ZATEN PC DESTEKLIYORSA UCRETSIZ YUKSELTME HAKKI GELIR
konu bitti dağılın
hocam gelmesini beklemeyin siz indirme sitesine gidip yukseltinHocam 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ımHocam 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.
.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ış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