Bienvenue sur le forum Settlers Combat.
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -50%
-50% Baskets Nike Air Huarache
Voir le deal
64.99 €

trouver sa clef de windows

Aller en bas

trouver sa clef de windows  Empty trouver sa clef de windows

Message par modérateur LOU0000 Dim 5 Fév - 21:08

ouvrir  un bloc-note vierge

copier dedans



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



puis enregistrer sous bureau par exemple et type tous les fichier et le nom du fichier CléWindows.vbs puis enregister



sa le mettra sur le bureau en forme de fichier  d une grande lettre S trouver sa clef de windows  4279-711

puis cliquer dessus 2 fois et voila la clef sa-fiche  trouver sa clef de windows  4279-810
modérateur LOU0000
modérateur LOU0000
Admin

Messages : 126
Date d'inscription : 09/12/2016

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum