1. Introducción a las funciones del programa:
El programa está escrito basado en VBS+HTA. La prueba se pasó bajo el sistema XP (diferentes pantallas, resoluciones).
1. Este programa utiliza principalmente la función de eliminar los atributos ocultos de las carpetas de disco U: puede poner primero el proceso del usuario (incluidos los procesos de virus), luego eliminar la carpeta oculta por el virus y eliminar la copia del archivo de virus EXE con el mismo nombre que la carpeta.
2. Funciones auxiliares:
① Agregue comandos comunes, como: Apertura de la configuración del método de entrada, configuración de sonido, programas de configuración del sistema, etc.; Además, la función de "Generar pantalla de escritorio" se ha agregado especialmente para ayudar a amigos que eliminaron accidentalmente el escritorio de pantalla de acceso directo para recuperar la función "Mostrar escritorio".
② Agregue funciones de configuración de registro comúnmente utilizadas, como: desbloquear el registro, mostrar "opciones de carpeta", mostrar completamente archivos ocultos (la configuración de "mostrar archivos ocultos" en las opciones de carpeta no debe ser válida).
captura de pantalla
Código central:
El código es el siguiente:
<script language = "VBScript">
En el currículum de error siguiente
Dim FSO, WSH
Establecer fso = createObject ("scripting.filesystemObject")
establecer wsh = createObject ("wscript.shell")
Dim Regpath (8)
DIM DATOS (8)
Regp = "HKCU/Software/Microsoft/Windows/CurrentVersion/Politicies/"
Regpath (1) = Regp & "System/DisableRegistryTools"
Datos (1) = "00000000"
Regpath (2) = Regp & "System/DisableTaskMg"
Datos (2) = "00000000"
Regpath (3) = Regp & "Explorer/nofoldenOptions"
Datos (3) = "0000000000" 'Muestra "Opciones de carpeta"
Regpath (4) = "HKLM/Software/Microsoft/Windows/CurrentVersion/Explorer/"
Regpath (4) = regpath (4) y "avanzado/carpeta/showall/neumático"
Datos (4) = "Radio" 'Show'show Archivo oculto'
Regpath (5) = Regp & "Explorer/NodrivetyPeautorun" 'Desactive la operación automática de la unidad flash USB
Datos (5) = "00000000B5"
Regpath (6) = "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt"
Datos (6) = "00000000"
Regpath (7) = Regp & "Explorer/Restrictrun" 'Política de grupo de desbloqueo
Datos (7) = "00000000"
Regpath (8) = "HKLM/Software/Microsoft/Windows/CurrentVersion/Explorer/"
Regpath (8) = Regpath (4) y "avanzado/carpeta/showall/checkedValue"
Datos (8) = "00000001" 'Deje que la modificación de la carpeta de visualización surja
Addp = "Control appwiz.cpl" 'Agregar/eliminar programa
Sonido = "rundll32.exe shell32.dll, control_rundll mmsys.cpl @1" 'Control de sonido
Lenguaje = "rundll32.exe shell32.dll, control_rundll intl.cpl ,, 1" 'Área (método de entrada) Configuración
Opciones = "rundll32.exe shell32.dll, options_rundll 0" 'Opciones de carpeta
System = "Control sysdm.cpl" 'Propiedades del sistema
Tareas = "Control Schedstasks" 'Tareas de programación
Sub Window_onload
Window.Resizeto 500,350
Ileft = (Window.screen.Width-500)/2
iTop = (Window.screen.Height-350)/2
Window.moveto Ileft, ITOP
Final
Función secboard (n)
para i = 0 a sectable.cells.length-1
sectable.cells (i) .classname = "sec1"
próximo
sectable.cells (n) .classname = "sec2"
para i = 0 a mtable.tbodies.length-1
mtable.tbodies (i) .style.display = "Ninguno"