修复缩略图无法显示

最新推荐文章于 2023-05-12 21:21:53 发布

luanxj

最新推荐文章于 2023-05-12 21:21:53 发布

阅读量3.6k

点赞数

分类专栏：休闲文章标签： associations image variables each file c

本文链接：https://blog.csdn.net/luanxj/article/details/1527502

版权

休闲专栏收录该内容

28 篇文章 0 订阅

订阅专栏

修复缩略图无法显示

'RepairImage.vbs
'Start of Image Preview Repair
'This section repairs the associations for Image Preview

Option Explicit

'Declare variables
Dim WSHShell, p1, p2, p3
Set WSHShell = WScript.CreateObject("WScript.Shell")
p2 = "/ShellEx/{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}/"
p3 = "{7376D660-C583-11d0-A3A5-00C04FD706EC}"

For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".wmf")
WSHShell.RegWrite "HKCR/" & p1 & p2, p3
Next

p1 = ".tif"
p3 = "{1AEB1360-5AFC-11d0-B806-00C04FD706EC}"
WSHShell.RegWrite "HKCR/" & p1 & p2, p3
p1 = ".tiff"
WSHShell.RegWrite "HKCR/" & p1 & p2, p3
p1 = ".htm"
p3 = "{EAB841A0-9550-11cf-8C16-00805F1408F3}"
WSHShell.RegWrite "HKCR/" & p1 & p2, p3
p1 = ".html"
WSHShell.RegWrite "HKCR/" & p1 & p2, p3

'Start of Thumbnail Repair

'This section repairs the view in Thumbnail mode of Explorer.

p2 = "/CLSID/"
p3 = "{25336920-03F9-11cf-8FD0-00AA00686F13}"

For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".tif",".tiff",".wmf")
WSHShell.RegWrite "HKCR/" & p1 & p2, p3
Next

MsgBox "Image Preview and Thumbnail View File" & vbCR & "Associations have been restored.", 4096, "Confirmation"

Set WSHShell = Nothing

将以上内容复制到记事本，保存为vbs文件，双击就可以恢复系统无法显示缩略图故障