hta编写的常用工具箱(常用工具快捷方式等)

2020-01-29 17:23:36

字体：大中小

来源：转载

供稿：网友

一、程序功能简介：
程序基于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"

上一篇：A notepad made in HTA(hta实现的记事本)

学习交流

错新网站诊断报告让我的网站恢复了排名

海薇网站诊断报告让我的网站恢复了排名...

热门图片

猜你喜欢的新闻

猜你喜欢的关注