Ecran noir à l'affichage du bureau
Résolu/Fermé
teyi
-
8 févr. 2015 à 16:20
lilidurhone Messages postés 43347 Date d'inscription lundi 25 avril 2011 Statut Contributeur sécurité Dernière intervention 31 octobre 2024 - 8 févr. 2015 à 19:31
lilidurhone Messages postés 43347 Date d'inscription lundi 25 avril 2011 Statut Contributeur sécurité Dernière intervention 31 octobre 2024 - 8 févr. 2015 à 19:31
A voir également:
- Ecran noir à l'affichage du bureau
- Ecran noir pc - Guide
- Double ecran - Guide
- Bureau virtuel windows 10 - Guide
- Capture d'écran samsung - Guide
- Capture d'écran whatsapp - Accueil - Messagerie instantanée
2 réponses
luigi024
Messages postés
104
Date d'inscription
jeudi 10 juillet 2014
Statut
Membre
Dernière intervention
28 avril 2016
16
8 févr. 2015 à 16:32
8 févr. 2015 à 16:32
Bonjour, premièrement, a tu fais une mise à jour récemment (j'entends au démarrage précédent)?
Secondement, as-tu installé des logiciels récemment (j'entends, ici, il y a quelques jours)?
Tertièrement, as-tu un cd d'installation windows?
Luigi
Secondement, as-tu installé des logiciels récemment (j'entends, ici, il y a quelques jours)?
Tertièrement, as-tu un cd d'installation windows?
Luigi
lilidurhone
Messages postés
43347
Date d'inscription
lundi 25 avril 2011
Statut
Contributeur sécurité
Dernière intervention
31 octobre 2024
3 807
8 févr. 2015 à 19:31
8 févr. 2015 à 19:31
Si tu as accès à internet télécharge zhpdiag et fais un rapport complet
Ton écran noir vient d'une infection
Ton écran noir vient d'une infection
8 févr. 2015 à 16:38
1- Non je n'ai pas fait de mise à jour récente
2- Oui j'ai téléchargé 1 ou 2 logiciels au dernier démarrage.Pensant qu'il pouvaient être la source du problème je les aient supprimés mais sans succès.
3- Non c'est un pc portable sans récepteur de cd interne
Merci de ta réponse.
8 févr. 2015 à 17:18
8 févr. 2015 à 17:22
8 févr. 2015 à 17:32
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 tu l'enregistre au format ".vbs"
Ensuite tu l'exécute en mode administrateur
En espérant que les "à la ligne" se soient bien mis.
8 févr. 2015 à 17:46