Common Toolbox written by HTA (common tool shortcuts, etc.) _hta

Introduction to the function of the program:
Programs are written based on Vbs+hta. XP system (different monitor, resolution) test pass.
1, this procedure to remove U Disk folder hidden properties of the main function: You can end the user process (including the virus process), and then remove the folder hidden by the virus, while deleting the folder with the same name exe virus file copy.
2, auxiliary function:
① add commonly used commands, such as: open input Method settings, sound settings, System configuration program, etc., in addition, specifically added the "Build Display desktop" feature, Help mistakenly deleted the shortcut display desktop friends back to the "Show desktop" feature.
② add common registry settings, such as unlocking registry locks, displaying folder options, displaying hidden files completely (should not invalidate the "Show hidden Files" setting in Folder Options), and so on.
screenshot

Core code:

Copy Code code 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" ' Show Folder Options '

Regpath (4) = "Hklm\software\microsoft\windows\currentversion\explorer\"
Regpath (4) =regpath (4) & "Advanced\folder\showall\tyre"
Data (4) = "RADIO" ' Show ' Show hidden Files '

Regpath (5) =regp& "Explorer\nodrivetypeautorun" ' Prohibit automatic running of u disk
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" for display folder changes to take effect

addp= "Control appwiz.cpl" ' Add/Remove Programs
sound= "rundll32.exe shell32.dll,control_rundll mmsys.cpl @1" ' Voice control
Language= "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1" area (Input method) settings
options= "rundll32.exe shell32.dll,options_rundll 0" folder option
System= "Control sysdm.cpl" ' System Properties
tasks= "Control Schedtasks" ' Scheduled 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"
Next
Mtable.tbodies (n). style.display= "Block"
End Function


Sub Regseleall_onclick ()
If regseleall.value= "Select All" Then
For I=1 to Regtable.rows.length-1
Regtable.rows (i). Cells (0). Children (0). checked=true
Next
Regseleall.value= "All do not choose"
Else
For I=1 to Regtable.rows.length-1
Regtable.rows (i). Cells (0). Children (0). Checked=false
Next
Regseleall.value= "Select All"
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 "Congratulations, Mission accomplished!", vbokonly+vbexclamation, "hint."
End Sub

Sub GetDriveName
' First empty the original USB disk letter list
For I=0 to Mydrive.length-1
Mydrive.remove (i)
Next

' Get, add a USB disk letter list
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 ("Sorry! No USB flash drive detected")
End If
End Sub

Function Toggleattribute (drive) ' Remove U disk file hidden and other attributes;
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 ("Congratulations! already removed U disk hidden folder Properties")
End Function

function open (OBJ) ' Run command
Wsh.run (OBJ)
End Function

Sub getdesktop () ' Generate Show Desktop '
Strdesktop=wsh. Specialfolders ("desktop")
Set Str=fso.getfolder (Strdesktop)
path=str.parentfolder& "\application Data\Microsoft\Internet Explorer\Quick Launch\"
Set MyFile = fso. CreateTextFile (path& "Show Desktop. 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>

Second, download the program:
Common Toolbox. HTA