hta编写的常用工具箱(常用工具快捷方式等)

摘要：一、程序功能简介：程序基于vbs+hta编写。xp系统下(不同显示器、分辨率)测试通过。1、本程序以去除U盘文件夹隐藏属性功能为主：可以先通...

一、程序功能简介：

程序基于vbs+hta编写。xp系统下(不同显示器、分辨率)测试通过。

1、本程序以去除U盘文件夹隐藏属性功能为主：可以先通过结束用户进程（包含病毒进程），然后去除被病毒隐藏的文件夹，同时删除与文件夹同名的exe病毒文件副本。

2、辅助功能：

①添加常用命令，如：打开输入法设置、声音设置、系统配置程序等；另外，专门添加了“生成显示桌面”功能，帮助误删了快捷方式显示桌面的朋友找回“显示桌面”功能。

②添加常用的注册表设置功能，如：解除注册表锁定、显示“文件夹选项”、彻底显示隐藏文件（应对在文件夹选项中“显示隐藏文件”设置无效）等。

截图

核心代码：

复制代码代码如下:

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"

secTable.cells(n).className="sec2"

for i=0 to mTable.tBodies.length-1

mTable.tBodies(i).style.display="none"

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

RegSeleAll.value="全不选择"

else

for i=1 to RegTable.rows.length-1

RegTable.rows(i).cells(0).children(0).checked=false

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

msgbox "恭喜，任务完成!",vbokonly+vbexclamation,"提示"

End Sub

Sub GetDriveName

'先清空原来的U盘盘符列表

for i=0 to Mydrive.length-1

Mydrive.remove(i)

'获取、添加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

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")

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

if fso.fileexists(VirusP&ProcName) then fso.deletefile(VirusP&ProcName)

End Sub

</script>

二、程序下载：

常用工具箱.hta