减小字体
增大字体- ·上一篇文章：c语言执行dos命令
- ·下一篇文章：c语言创建批处理文件 并加到启动项
- ·百度中搜索更多的关于“让winxp支持htm文件的缩略图”相关内容
- ·谷歌中搜索更多的关于“让winxp支持htm文件的缩略图”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
让winxp支持htm文件的缩略图
winxp没有对htm缩略图
把一下代码存为xxx.vbs,双击运行就支持了
'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
