Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

Windows 10


ahmedinejad

Öne çıkan mesajlar

said:
Paste this into notepad:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId"))

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

Then save as type to "all files", change the name to "productkey.vbs", save it and open it.
Link to comment
Sosyal ağlarda paylaş

  • 2 hafta sonra ...
şu win-1,2,3 muhabbetini win-d,r,f,e'yle beraber öğrenmiştim. onu bilip bunu bilmeyen olması garibime gitti. benim esas task manager'ı ctrl-alt-del veya ctrl-esc yerine task bar'dan sağ tık yapıp açabildiğimizi öğrendiğimde aklım gitmişti. resmen BOŞA GEÇEN YILLARIM diye rage'lemiştim sdf

seçili pencereyi windows-ok tuşlarıyla sağa sola yukarı falan da çarpabiliyorsunuz bu arada.
Link to comment
Sosyal ağlarda paylaş

  • 1 ay sonra ...
×
×
  • Yeni Oluştur...