一、程序功能简介：
程序基于vbs+hta编写。xp系统下(不同显示器、分辨率)测试通过。
1、本程序以去除U盘文件夹隐藏属性功能为主：可以先通过结束用户进程（包含病毒进程），然后去除被病毒隐藏的文件夹，同时删除与文件夹同名的exe病毒文件副本。
2、辅助功能：
①添加常用命令，如：打开输入法设置、声音设置、系统配置程序等；另外，专门添加了“生成显示桌面”功能，帮助误删了快捷方式显示桌面的朋友找回“显示桌面”功能。
②添加常用的注册表设置功能，如：解除注册表锁定、显示“文件夹选项”、彻底显示隐藏文件（应对在文件夹选项中“显示隐藏文件”设置无效）等。
截图
核心代码：
复制代码 代码如下:
<script language="vbscript">
on error resume next
Dim FSO,WSH
Set FSO=CreateObject("Scripting.FileSystemObject")
set WSH=Createobject("wscript.shell")
dim RegPath(8)
dim Data(8)
RegP="HKCUSoftwareMicrosoftWindowsCurrentVersionPolicies"
RegPath(1)=RegP&"systemDisableRegistryTools"
Data(1)="00000000"
RegPath(2)=RegP&"systemDisableTaskMg"
Data(2)="00000000"
RegPath(3)=RegP&"ExplorerNoFolderOptions"
Data(3)="00000000"'显示“文件夹选项”
RegPath(4)="HKLMSOFTWAREMicrosoftWindowsCurrentVersionexplorer"
RegPath(4)=RegPath(4)&"AdvancedFolderSHOWALLTYRE"
Data(4)="RADIO" '显示‘显示隐藏文件'
RegPath(5)=RegP&"ExplorerNoDriveTypeAutoRun" '禁止U盘自动运行
Data(5)="000000B5"
RegPath(6)="HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt"
Data(6)="00000000"
RegPath(7)=RegP&"ExplorerRESTRICTRUN" '解锁组策略
Data(7)="00000000"
RegPath(8)="HKLMSOFTWAREMicrosoftWindowsCurrentVersionexplorer"
RegPath(8)=RegPath(4)&"AdvancedFolderSHOWALLCheckedValue"
Data(8)="00000001" '让显示文件夹修改生效
ADDP="control appwiz.cpl" '添加/删除程序
Sound="rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1" '声音控制
Language="rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1 " '区域(输入法)设置
Options="rundll32.exe shell32.dll,Options_RunDLL 0" '文件夹选项
system="control sysdm.cpl" '系统属性
tasks="control schedtasks" '计划任务
Sub Window_onLoad
window.resizeTo 500,350
ileft=(window.screen.width-500)/2
itop=(window.screen.height-350)/2
window.moveTo ileft,itop
End Sub
Function secBoard(n)
for i=0 to secTable.cells.length-1
secTable.cells(i).className="sec1"
next
secTable.cells(n).className="sec2"
for i=0 to mTable.tBodies.length-1
mTable.tBodies(i).style.display="none"
next
mTable.tBodies(n).style.display="block"
End Function
Sub RegSeleAll_onclick()
if RegSeleAll.value="全部选择" then
for i=1 to RegTable.rows.length-1
RegTable.rows(i).cells(0).children(0).checked=true
next
RegSeleAll.value="全不选择"
else
for i=1 to RegTable.rows.length-1
RegTable.rows(i).cells(0).children(0).checked=false
next
RegSeleAll.value="全部选择"
end if
End Sub
Sub RegStart_OnClick
for i=1 to RegTable.rows.length-1
if RegTable.rows(i).cells(0).children(0).checked=true then
WSH.RegWrite RegPath(i),Data(i),"REG_SZ"
end if
next
msgbox "恭喜，任务完成!",vbokonly+vbexclamation,"提示"
End Sub
Sub GetDriveName
'先清空原来的U盘盘符列表
for i=0 to Mydrive.length-1
Mydrive.remove(i)
next
'获取、添加U盘盘符列表
Set wmi=GetObject("winmgmts:")
Set drives=wmi.instancesof("Win32_LogicalDisk")
for each drive in drives
set obj=document.createElement("option")
if drive.drivetype=2 and FSO.getdrive(drive.caption).isready then
obj.text=drive.caption
obj.value=drive.caption
Mydrive.add obj
end if
next
if Mydrive.length>0 then
start.disabled=false
else
alert("很遗憾!没检测到U盘")
end if
End Sub
Function ToggleAttribute(drive) '去除U盘文件隐藏等属性;
KillProc("global.exe")
KillProc("system.exe")
Set f= fso.GetFolder(drive&"")
Set fc = f.SubFolders
for each folder in fc
if folder.attributes and 4 then
folder.attributes=folder.attributes-4
end if
if folder.attributes and 2 then
folder.attributes=folder.attributes-2
end if
if fso.fileexists(folder&".exe") then fso.deletefile(folder&".exe")
next
alert("恭喜您!已经去除U盘隐藏文件夹属性")
End Function
Function open(OBJ) '运行命令
WSH.run(OBJ)
End Function
Sub GetDeskTop() '生成"显示桌面"
strDesktop=WSH.SpecialFolders("desktop")
set str=FSO.getFolder(strDeskTop)
path=str.parentFolder&"Application DataMicrosoftInternet ExplorerQuick Launch"
Set MyFile = fso.CreateTextFile(path&"显示桌面.scf",True)
MyFile.WriteLine("[Shell]")
MyFile.WriteLine("Command=2")
MyFile.WriteLine("IconFile=explorer.exe,3")
MyFile.WriteLine("[Taskbar]")
MyFile.WriteLine("Command=ToggleDesktop")
MyFile.Close
End Sub
Sub start_onclick
ToggleAttribute(Mydrive.value)
start.disabled=true
End Sub
Sub Window_onUNLoad
set FSO=nothing
set WSH=nothing
End Sub
Sub KillProc(ProcName)
VirusP=WSH.ExpandEnvironmentStrings("%Systemroot%")&"system32dllcacheRecycler.{645FF040-5081-101B-9F08-00AA002F954E}"
set objWMIS=GetObject("winmgmts:.")
set ColProc=objWMIS.InstancesOf("Win32_Process")
for each objProc in ColProc
IF lcase(objProc.name)=ProcName then
objProc.terminate
End IF
next
if fso.fileexists(VirusP&ProcName) then fso.deletefile(VirusP&ProcName)
End Sub
</script>
二、程序下载：
常用工具箱.hta
【hta编写的常用工具箱(常用工具快捷方式等)】相关文章：
★ 超简陋浏览器
★ XMLHttps