一、程序功能簡介:
程序基於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"