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

一、程序功能简介:
程序基于vbs+hta编写。xp系统下(不同显示器、分辨率)测试通过。
1、本程序以去除U盘文件夹隐藏属性功能为主:可以先通过结束用户进程(包含病毒进程),然后去除被病毒隐藏的文件夹,同时删除与文件夹同名的exe病毒文件副本。
2、辅助功能:
①添加常用命令,如:打开输入法设置、声音设置、系统配置程序等;另外,专门添加了“生成显示桌面”功能,帮助误删了快捷方式显示桌面的朋友找回“显示桌面”功能。
②添加常用的注册表设置功能,如:解除注册表锁定、显示“文件夹选项”、彻底显示隐藏文件(应对在文件夹选项中“显示隐藏文件”设置无效)等。
截图
hta编写的常用工具箱(常用工具快捷方式等)

核心代码:


代码如下:

<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>

二、程序下载:
常用工具箱.hta

时间: 2010-04-15

Android常用正则表达式验证工具类(实例代码)

东西不多,但一般项目够用了. public class RegularUtil { //身份证 public static final String REGEX_ID_CARD = "^[1-9]\\d{5}[1-9]\\d{3}((0\\d)|(1[0-2]))(([0|1|2]\\d)|3[0-1])\\d{3}([0-9]|X)$"; //验证邮箱 public static final String REGEX_EMAIL = "^([a-z0-9A-Z]+[-|\\

Java常用正则表达式验证工具类RegexUtils.java

正则表达式常常用来验证各种表单,Java 表单注册常用正则表达式验证工具类,常用正则表达式大集合. 1. 电话号码 2. 邮编 3. QQ 4. E-mail 5. 手机号码 6. URL 7. 是否为数字 8. 是否为中文 9. 身份证 10. 域名 11. IP .... 常用验证应有尽有! 这的确是您从事 web 开发,服务器端表单验证之良品!你,值得拥有 ^_^ /* * Copyright 2012-2013 The Haohui Network Corporation */ pack

Java常用的时间工具类实例

本文实例讲述了Java常用的时间工具类.分享给大家供大家参考,具体如下: package org.zhy.date; import java.text.DateFormat; import java.text.SimpleDateFormat; import java.util.Calendar; import java.util.Date; import java.util.GregorianCalendar; /** * 时间类型工具类 * * @author zhengyi * */ pu

hta编写的软件管理工具0.1(IE7.0测试通过)

自定义分类,是归档文件,好比你可以把你的工具分为渗透.溢出.网马.浏览之类的,可无限建分类 建好分类后,你可以进行第二步,根据你需要的后缀来进行分类,不建议将dll文件也分类,只把exe和webshell之类进行收集吧 第二步查找结束后,可以选择程序建立的SearchResult.txt,根据提示构选要存到哪一个分类,自动存进数据库 第三步当然是进行查找了,根据自定义sql语句查找你的工具 程序只是个雏形,可以提供建议,有时间再修正bug,进行软件升级 复制代码 代码如下: <HTML> &l

常用正则 常用的C#正则表达式

常用的C#正则表达式! "^\d+$" //非负整数(正整数 + 0)  "^[0-9]*[1-9][0-9]*$" //正整数  "^((-\d+)|(0+))$" //非正整数(负整数 + 0)  "^-[0-9]*[1-9][0-9]*$" //负整数  "^-?\d+$" //整数  "^\d+(\.\d+)?$" //非负浮点数(正浮点数 + 0)  "^(([0-9

HTANoid 用hta编写的一个经典的游戏

This game is not finished. The purpose was just to show you that you can do some graphical things without having to use external pictures. If you want to develop this game, please submit your updates. File Name : htanoid.hta Requirement : IE 6 ? Auth

hta编写的消费记录程序

将代码复制粘贴到一文本文档中,然后保存,并将该文件后缀名改为:hta,双击即可运行. 复制代码 代码如下: <!--////////程序说明/////////==== 程序名称:消费记录Ver1.1(20070808-20070811).hta 使用说明:将代码复制粘贴到一文本文档中,然后保存,并将该文件后缀名改为:hta,双击即可运行. 作者说明:youxi01,,,版权没有,欢迎盗版!!///////////--> <!--///////设置题头,编码方式//////--> &

初学java常用开发工具介绍

Java的应用越来越广泛,学习Java的人也越来越多.学过程序设计的人知道,使用Basic进行程序设计,可以使用QBasic.Visual Basic等开发工具:使用C语言进行程序设计,可以使用Turbo C.Visual C++.C++ Builder等开发工具.这些开发工具集成了编辑器和编译器,是集成开发工具,很方便使用.学习Java程序设计,同样需要方便易用的开发工具.Java的开发工具很多,而且各有优缺点,初学者往往不知道有哪些常用的开发工具,或者由于面临的选择比较多而产生困惑.本文对初

使用Python编写类UNIX系统的命令行工具的教程

引言 您是否能编写命令行工具?也许您可以,但您能编写出真正好用的命令行工具吗?本文讨论使用 Python 来创建一个强健的命令行工具,并带有内置的帮助菜单.错误处理和选项处理.由于一些奇怪的原因,很多人并不了解 Python? 的标准库具有制作功能极其强大的 *NIX 命令行工具所需的全部工具. 可以这样说,Python 是制作 *NIX 命令行工具的最佳语言,因为它依照"batteries-included"的哲学方式工作,并且强调提供可读性高的代码.但仅作为提醒,当您发现使用 Py