一、程序功能簡介：
程序基于vbs+hta編寫。xp系統(tǒng)下(不同顯示器、分辨率)測試通過。
1、本程序以去除u盤文件夾隱藏屬性功能為主：可以先通過結(jié)束用戶進(jìn)程（包含病毒進(jìn)程），然后去除被病毒隱藏的文件夾，同時(shí)刪除與文件夾同名的exe病毒文件副本。
2、輔助功能：
①添加常用命令，如：打開輸入法設(shè)置、聲音設(shè)置、系統(tǒng)配置程序等；另外，專門添加了“生成顯示桌面”功能，幫助誤刪了快捷方式顯示桌面的朋友找回“顯示桌面”功能。
②添加常用的注冊表設(shè)置功能，如：解除注冊表鎖定、顯示“文件夾選項(xiàng)”、徹底顯示隱藏文件（應(yīng)對在文件夾選項(xiàng)中“顯示隱藏文件”設(shè)置無效）等。
截圖
<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'顯示“文件夾選項(xiàng)”
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盤自動(dòng)運(yùn)行
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 '區(qū)域(輸入法)設(shè)置
options=rundll32.exe shell32.dll,options_rundll 0 '文件夾選項(xiàng)
system=control sysdm.cpl '系統(tǒng)屬性
tasks=control schedtasks '計(jì)劃任務(wù)
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 恭喜，任務(wù)完成!,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(恭喜您!已經(jīng)去除u盤隱藏文件夾屬性)
end function
function open(obj) '運(yùn)行命令
wsh.run(obj)
end function
sub getdesktop() '生成顯示桌面
strdesktop=wsh.specialfolders(desktop)
set str=fso.getfolder(strdesktop)
path=str.parentfolder&\application data\microsoft\internet explorer\quick 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%)&\system32\dllcache\recycler.{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>