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

    一、程序功能簡介：
    程序基于vbs+hta編寫。xp系統(tǒng)下(不同顯示器、分辨率)測試通過。
    1、本程序以去除U盤文件夾隱藏屬性功能為主：可以先通過結(jié)束用戶進程（包含病毒進程），然后去除被病毒隱藏的文件夾，同時刪除與文件夾同名的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>
    二、程序下載：