Nouvelle installation
houari12
Messages postés
9
Statut
Membre
-
houari12 Messages postés 9 Statut Membre -
houari12 Messages postés 9 Statut Membre -
Salut à tous et à toutes, j'ai besoin de votre aide
J'ai installé Windows 7 il y a plus d'un an et à chaque fois je fais la mise à jour
Hier j'ai réinstallé mon Windows 7 et j'ai fait la mise à jour ... tout était normale
Mais aujourd'hui Quand j'ai allumé mon ordinateur, je trouve que le fond écran de mon PC
est tout noir avec un message qui dit " cette copie Windows n'est pas authentique "
Merci d'avance!!!
J'ai installé Windows 7 il y a plus d'un an et à chaque fois je fais la mise à jour
Hier j'ai réinstallé mon Windows 7 et j'ai fait la mise à jour ... tout était normale
Mais aujourd'hui Quand j'ai allumé mon ordinateur, je trouve que le fond écran de mon PC
est tout noir avec un message qui dit " cette copie Windows n'est pas authentique "
Merci d'avance!!!
2 réponses
-
tu doit l'activer avec une clé
sur le bureau click droit nouveau document texte et entre
ce qui suis ensuite enregistre le key.vbs ( vbs en extension )
Set WshShell = CreateObject("WScript.Shell")
key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
digitalId = WshShell.RegRead(key & "DigitalProductId")
ProductName = "Product Name : " & WshShell.RegRead(key & "ProductName") & vbNewLine
ProductId = "Product Id : " & WshShell.RegRead(key & "ProductId") & vbNewLine
ProductKey = "Install Key : " & Converted(digitalId)
ProductId = ProductName & ProductId & ProductKey
boutons = vbYesNo + vbQuestion
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file ?", boutons, "Windows Infos") then
Save ProductId
End if
Function Converted(id)
Const OFFSET = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = id(x + OFFSET) + Cur
id(x + OFFSET) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i - 1
Converted = Mid(Chars, Cur + 1, 1) & Converted
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
Converted = "-" & Converted
End If
Loop While i >= 0
End Function
Function Save(data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
today = FormatDateTime(Date, vbLongDate) & vbnewline
fName = "OS Key.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline today
f.Writeline data
f.Close
End Function
-
Merci beaucoup .... steph810
mais je n'ais pas compris ou je dois mètre le texte ( key.vbs )
j'aimerais que tu m'explique bien je suis vraiment désolé car je suis débutant
et merci
