[Résolu] Ouverture impossible des fichiers images/vidéos

[pear]

Hello Tonton,

Je crois que le transfert était prématuré, car il n'y probablement plus d'infection.

 

Luccio, essayez ceci:

 

Si les procédures habituelles ne marchent pas:

Mes Images->Affichage->Miniatures.

 

Démarrer->Exécuter, et tapez:

regsvr32 shimgvw.dll

 

 

En cas d'échec:

Tentez ceci

 

 

 

Copiez collez dans le bloc notes, enregistrez sous Miniat.vbs sur le bureau et double cliquez desus.

' ----------------------------------------------------------

' Script de restauration de l'affichage des miniatures d'images

' dans l'explorateur de Windows

' Ce défaut est du à la disparition (ou corruption) d'une clef

' dans la basse de registre :

' HKEY_CLASSES_ROOT\.xxx\ShellEx

' HKEY_CLASSES_ROOT\.xxx\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}

' valeur par défaut : {7376D660-C583-11d0-A3A5-00C04FD706EC}

'

' Syntaxe:

' restorepreview

'

' JC BELLAMY © 2003

' ----------------------------------------------------------

On error Resume Next

Dim shell

Set shell = WScript.CreateObject("WScript.Shell")

 

Ext = array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".wmf")

SubKey="{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\"

Value ="{7376D660-C583-11d0-A3A5-00C04FD706EC}"

 

TestHost

 

For i = LBound(Ext) To Ubound(Ext)

Key="HKCR\" & Ext(i) & "\ShellEx\" & Subkey

Erreur=false

valdef=shell.RegRead(Key)

If err.number<>0 Then

Erreur=true

err.clear

Else

If valdef<>Value Then Erreur=true

end if

Msg="Extension " & Ext(i)

If Erreur Then

shell.RegWrite Key,Value

Result=""

If err.number<>0 Then

Result=" non"

err.clear

end if

Result=Result & " corrigée"

else

Result=" OK"

End If

wscript.echo Msg & chr(9) & Result

Next

Wscript.quit

'--------------------------------------------------------------------

'Sous-programme de test du moteur

'Vu les sorties générées, c'est CSCRIPT (et non pas WSCRIPT)

'qui doit être utilisé de préférence

Sub TestHost

dim rep

strappli=lcase(Wscript.ScriptFullName)

strFullName =lcase(WScript.FullName)

i=InStr(1,strFullName,".exe",1)

j=InStrRev(strFullName,"\",i,1)

strCommand=Mid(strFullName,j+1,i-j-1)

if strCommand<>"cscript" then

rep=MsgBox( _

"Ce script doit être lancé avec CSCRIPT" & VBCRLF & _

"Cela peut être rendu permanent avec la commande" & VBCRLF & _

"cscript //H:CScript //S /Nologo" & VBCRLF & _

"Voulez-vous que ce soit fait automatiquement?", _

vbYesNo + vbQuestion,strappli)

if rep=vbYes then

nomcmd="setscript.bat"

Set ficcmd = fso.CreateTextFile(nomcmd)

ficcmd.writeline "@echo off"

ficcmd.writeline "cscript //H:CScript //S /Nologo"

ficcmd.writeline "pause"

ficcmd.writeline strappli

ficcmd.writeline "pause"

ficcmd.close

shell.Run nomcmd, SW_SHOWNORMAL,true

end if

WScript.Quit

end if

end sub

'--------------------------------------------------------------------

Modifié le 21 janvier 2013 par pear

[luccio79]

Bonjour Pear,

 

éxécution de l'option n°1: impossible d'ouvrir le dossier image... retour sur le bureau.

 

Exécution de l'option n°2: pas de problème à l'éxécution, mais résultat intangible.

 

Exécution de l'option n°3: Tout c'est bien déroulé, téléchargement de restorepreview.vbs, enregistrement de votre script sous bloc-note avec le nom miniat.vbs, double clic dessus, réponse oui à tous les changements, et .... pas de changement!!!

 

Si vous avez d'autres idées, je prends!!

 

Merci encore,

luccio79

[pear]

Tentez ceci

[luccio79]

Re-bonsoir Pear,

 

j'ai tout retenté, et toujours pas de résultat, ça en devient très agaçant!!! En tout cas merci beaucoup de vous pencher sur mon "cas"!

 

J'espère qu'il vous reste encore quelques idées pour remédier à ce problème!

[pear]

Eh non, la seule idée qui me reste:

retour sur votre sujet initial.

Je ne vois pas d'infection.

[luccio79]

Ok, merci beaucoup je vais contacter Dylav pour la suite des évènements!!!

Merci pour votre aide! Bonne continuation!

Au moins, je sais que mon PC n'est pas infecté!!!

[Dylav]

Bonsoir luccio, pear,

 

Luccio, tu peux réveiller ton vieux sujet d'il y a un an, dans la section Software. Ou, mieux, tu ouvres un nouveau sujet dans la section Software, où tu rappelles ton problème récurrent et les pistes déjà explorées (en ajoutant des liens vers le sujet de janvier 2012, et vers celui-ci).

 

Des helpers comme Tonton, ab-web, bleuet, vont s'y intéresser à nouveau...

[luccio79]

Bonjour,

désolé de ne pas avoir répondu plus tôt, mais boulot oblige!!!

Sinon, je pars de ce pas vers la section software "historique" et je vais tenter de trouver cette soluce.

Merci Dylav et Pear! A bientôt

[Tonton]

Bonjour luccio79 (bonjour pear ),

 

Le problème semble avoir trouvé sa solution sur le plan de la désinfection.

 

Si tel est effectivement le cas, afin de signaler de façon claire à ceux qui ont un problème similaire qu'ils ont peut-être une solution toute trouvée, et aux autres contributeurs qu'il est inutile de continuer à chercher une solution, je te remercie de bien vouloir passer le sujet en [Résolu].

 

C'est très simple; voici comment faire :

 

 

Merci et bonne continuation,

Tonton

[Tonton]

La suite là-bas >>>