Common toolboxes written by hta (common tool shortcuts, etc.)

1. Introduction to program functions:

The program is written based on vbs+hta. The test was passed under the xp system (different displays, resolutions).

1. This program mainly uses the function of removing hidden attributes of U disk folders: you can first end the user process (including virus processes), then remove the folder hidden by the virus, and delete the copy of the exe virus file with the same name as the folder.

2. Auxiliary functions:

① Add common commands, such as: opening input method settings, sound settings, system configuration programs, etc.; In addition, the "Generate Display Desktop" function has been specially added to help friends who accidentally deleted shortcut display desktop to retrieve the "Show Desktop" function.

② Add commonly used registry setting functions, such as: unlocking the registry, displaying "folder options", completely displaying hidden files (the setting of "Show hidden files" in the folder options should be invalid).

screenshot

Core code:

The code is as follows:

<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"' displays "Folder Options"

RegPath(4)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"

RegPath(4)=RegPath(4)&"Advanced/Folder/SHOWALL/TYRE"

Data(4)="RADIO" 'Show'Show Hidden File'

RegPath(5)=RegP&"Explorer/NoDriveTypeAutoRun" 'Disable the automatic operation of the USB flash drive

Data(5)="000000B5"

RegPath(6)="HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt"

Data(6)="00000000"

RegPath(7)=RegP&"Explorer/RESTRICTRUN" 'Unlock group policy

Data(7)="00000000"

RegPath(8)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"

RegPath(8)=RegPath(4)&"Advanced/Folder/SHOWALL/CheckedValue"

Data(8)="00000001" 'Let the display folder modification take effect

ADDP="control appwiz.cpl" 'Add/remove program

Sound="rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1" 'Sound Control

Language="rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1 " 'area (input method) settings

Options="rundll32.exe shell32.dll,Options_RunDLL 0" 'Folder Options

system="control sysdm.cpl" 'System Properties

tasks="control schedtasks" 'Schedule tasks

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"