网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文：

　

标题 hta编写的常用工具箱(常用工具快捷方式等)
范文
    一、程序功能简介：
    程序基于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"
    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 "恭喜，任务完成!",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("恭喜您!已经去除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>
    二、程序下载：
随便看

　

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。

　

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间：2025/5/13 6:16:41