hta編寫的常用工具箱(常用工具快捷方式等)

一、程序功能簡介：

程序基於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="HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/"

RegPath(1)=RegP&"system/DisableRegistryTools"

Data(1)="00000000"

RegPath(2)=RegP&"system/DisableTaskMg"

Data(2)="00000000"

RegPath(3)=RegP&"Explorer/NoFolderOptions"

Data(3)="00000000"'顯示“文件夾選項”

RegPath(4)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"

RegPath(4)=RegPath(4)&"Advanced/Folder/SHOWALL/TYRE"

Data(4)="RADIO" '顯示'顯示隱藏文件'

RegPath(5)=RegP&"Explorer/NoDriveTypeAutoRun" '禁止U盤自動運行

Data(5)="000000B5"

RegPath(6)="HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt"

Data(6)="00000000"

RegPath(7)=RegP&"Explorer/RESTRICTRUN" '解鎖組策略

Data(7)="00000000"

RegPath(8)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"

RegPath(8)=RegPath(4)&"Advanced/Folder/SHOWALL/CheckedValue"

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"