一、程序功能簡(jiǎn)介：

程序基于vbs+hta編寫(xiě)。xp系統(tǒng)下(不同顯示器、分辨率)測(cè)試通過(guò)。

1、本程序以去除u盤(pán)文件夾隱藏屬性功能為主：可以先通過(guò)結(jié)束用戶(hù)進(jìn)程（包含病毒進(jìn)程），然后去除被病毒隱藏的文件夾，同時(shí)刪除與文件夾同名的exe病毒文件副本。

2、輔助功能：

①添加常用命令，如：打開(kāi)輸入法設(shè)置、聲音設(shè)置、系統(tǒng)配置程序等；另外，專(zhuān)門(mén)添加了“生成顯示桌面”功能，幫助誤刪了快捷方式顯示桌面的朋友找回“顯示桌面”功能。

②添加常用的注冊(cè)表設(shè)置功能，如：解除注冊(cè)表鎖定、顯示“文件夾選項(xiàng)”、徹底顯示隱藏文件（應(yīng)對(duì)在文件夾選項(xiàng)中“顯示隱藏文件”設(shè)置無(wú)效）等。

截圖

<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盤(pán)自動(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

'先清空原來(lái)的u盤(pán)盤(pán)符列表

for i=0 to mydrive.length-1

mydrive.remove(i)

next

'獲取、添加u盤(pán)盤(pán)符列表

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(很遺憾!沒(méi)檢測(cè)到u盤(pán))

end if

end sub

function toggleattribute(drive) '去除u盤(pán)文件隱藏等屬性;

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盤(pán)隱藏文件夾屬性)

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>