中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

一、程序功能簡介：

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

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

2、輔助功能：

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

②添加常用的注冊表設(shè)置功能，如：解除注冊表鎖定、顯示“文件夾選項”、徹底顯示隱藏文件（應(yī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"    '顯示“文件夾選項”

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 " '區(qū)域(輸入法)設(shè)置

Options="rundll32.exe shell32.dll,Options_RunDLL 0" '文件夾選項

system="control sysdm.cpl" '系統(tǒng)屬性

tasks="control schedtasks" '計劃任務(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) '運行命令

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>

二、程序下載：

更多信息請查看IT技術(shù)專欄