简单U盘修复工具(SURT).hta

来源：互联网发布：mysql insert中文报错编辑：程序博客网时间：2024/04/29 05:46

名称：简单U盘修复工具(SURT).hta

前言：近段时间发现同学U盘出问题的颇多，每次都拿到我这来修复。其实也没什么大问题，只是中毒了，U盘根目录下的所有东西都被改成了“隐藏+系统+只读”属性，自己没办法去掉才来找我。每次都用attrib命令改，改得多了自然就烦了，于是做了鄙作，还望莫笑。

功能：可将U盘根目录下的文件、文件夹加上或去除“隐藏+系统+只读”属性，并具删除autorun.inf文件以避免病毒随磁盘的打开而自动运行的功能，算是一个简单的U盘修复工具，希望能给您提供些许帮助。

图:

代码如下：

<html><head><title>Simple U-disk Repair Tool</title><style>body,button {color:#666666;background-color:#cccccc;font-size:16px;}</style> <HTA:APPLICATION ID="Simple U-disk Repair Tool"APPLICATIONNAME="Simple U-disk Repair Tool"SCROLL="no"SINGLEINSTANCE="yes"WINDOWSTATE="normal"ShowInTaskBar="yes"MaximizeButton="no"MinimizeButton="no"SCROLL="no"NAVIGABLE="yes"BORDER="thin"ICON="%SystemRoot%/system32/cleanmgr.exe"></head><SCRIPT Language="VBScript">On Error Resume Nextwindow.resizeTo 360,230ileft=(window.screen.width-360)/2itop=(window.screen.height-230)/2window.moveTo ileft,itop'动态显示盘符Sub Window_OnloadDim fso, d, dcSet fso = CreateObject("Scripting.FileSystemObject")Set dc = fso.DrivesFor Each d in dcSet objOption = Document.createElement("OPTION")objOption.Text = d.DriveLetter & ":"objOption.Value = d.DriveLetter & ":"DriveList.Add(objOption)NextEnd SubDim nAttr'返回一个 Folder 对象，表示指定驱动器的根文件夹。FunctionShowRootFolder(drvspec)Dim fso, fSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetDrive(drvspec)ShowRootFolder = f.RootFolderEndFunction'操作文件夹FunctionShowFolderList(folderspec,nAttr)Dim fso, f, f1, fc, sSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(ShowRootFolder(folderspec))Set fc = f.SubFoldersFor Each f1 in fcf1.attributes=nAttrNextEndFunction'操作文件FunctionShowFileList(folderspec,nAttr)Dim fso, f, f1, fc, sSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(ShowRootFolder(folderspec))Set fc = f.FilesFor Each f1 in fcf1.attributes=nAttrNextEndFunctionSubRunScriptIf RA_SHOW(0).Checked ThennAttr=RA_SHOW(0).valueElseIf RA_SHOW(1).Checked ThennAttr=RA_SHOW(1).valueEnd IfSet fso = CreateObject("Scripting.FileSystemObject")Set d = fso.GetDrive(DriveList.Value)If d.DriveType=1 ThenIf CB_DELAUTO.Checked ThenIf (fso.FileExists(d & "/autorun.inf")) ThenSet MyFile = fso.GetFile(d & "/autorun.inf")'Delete fileMyFile.Delete(true)End IfEnd IfCall ShowFolderList(d,nAttr)Call ShowFileList(d,nAttr)If vbOK=MsgBox ("操作成功！现在查看效果？",vbOKCancel+vbInformation,_"Simple U-disk Repair Tool") Thenexpldrv="Explorer.exe /e," & DriveList.Valueset ws=CreateObject("WScript.Shell")ws.run expldrvEnd IfElse If vbYes=MsgBox ("此驱动器非可移动磁盘，如遇属性无法更改将出错！是否继续？",_vbYesNo+vbQuestion,"Simple U-disk Repair Tool")  ThenIf CB_DELAUTO.Checked ThenIf (fso.FileExists(d & "/autorun.inf")) ThenSet MyFile = fso.GetFile(d & "/autorun.inf")'Delete fileMyFile.Delete(true)End IfEnd IfCall ShowFolderList(d,nAttr)Call ShowFileList(d,nAttr)If vbOK=MsgBox ("操作成功！现在查看效果？",vbOKCancel+vbInformation,_"Simple U-disk Repair Tool") Thenexpldrv="Explorer.exe /e," & DriveList.Valueset ws=CreateObject("WScript.Shell")ws.run expldrvEnd IfEnd IfEnd IfEndSub</SCRIPT><body><h2 align="center">简单U盘修复工具(SURT)</h2>(1/3)请选择需要操作可移动磁盘：<select size="1" name="DriveList"></select><br />(2/3)<input type="radio" name="RA_SHOW" value="0" checked>全部显示<input type="radio" name="RA_SHOW" value="7">全部隐藏<br />(3/3)<input type="checkbox" name="CB_DELAUTO" value="1" checked>删除"autorun.inf"文件<br /><p align="center"><button onClick="RunScript" accesskey=O>确定(<u>O</u>)</button><button onClick="self.close()" accesskey=Q>退出(<u>Q</u>)</button><br />© <a href="mailto:tunhsiaATgmail.com">Tunhsia</a></p></body></html>