1. Introdução às funções do programa:
O programa é escrito com base no VBS+HTA. O teste foi passado no sistema XP (diferentes displays, resoluções).
1. Este programa usa principalmente a função da remoção de atributos ocultos das pastas de disco U: você pode primeiro terminar o processo do usuário (incluindo processos de vírus) e depois remover a pasta oculta pelo vírus e excluir a cópia do arquivo de vírus EXE com o mesmo nome da pasta.
2. Funções auxiliares:
① Adicione comandos comuns, como: abrindo configurações de método de entrada, configurações de som, programas de configuração do sistema, etc.; Além disso, a função "Gereate Display Desktop" foi adicionada especialmente para ajudar os amigos que acidentalmente excluíram a área de trabalho de exibição de atalho para recuperar a função "Show Desktop".
② Adicione as funções de configuração de registro comumente usadas, como: desbloquear o registro, exibir "opções de pasta", exibindo completamente os arquivos ocultos (a configuração de "Mostrar arquivos ocultos" nas opções de pasta deve ser inválida).
Captura de tela
Código central:
O código é o seguinte:
<Script Language = "VBScript">
em erro de erro em seguida
Dim FSO, WSH
Set fso = createObject ("script.filesystemoBject")
set wsh = createObject ("wscript.shell")
Dim Regpath (8)
Dados fracos (8)
Regp = "hkcu/software/microsoft/windows/currentversion/políticas/"
RegPath (1) = Regp & "System/DisabregistryTools"
Dados (1) = "00000000"
Regpath (2) = regp & "System/desableTaskmg"
Dados (2) = "00000000"
RegPath (3) = Regp & "Explorer/Nofolderoptions"
Dados (3) = "00000000" 'Exibe "Opções da pasta"
Regpath (4) = "hklm/software/microsoft/windows/currentversion/explorer/"
RegPath (4) = RegPath (4) e "Advanced/Pasder/Showall/Tire"
Data (4) = "Radio" 'Show'Show Hidden File'
RegPath (5) = Regp & "Explorer/NodRivetyPeautorun" 'Desative a operação automática da unidade flash USB
Dados (5) = "000000b5"
Regpath (6) = "hkcu/software/microsoft/windows/currentversion/explorer/avançado/hidefileext"
Dados (6) = "00000000"
RegPath (7) = Regp & "Explorer/Restrictrun" 'Política de grupo de desbloqueio
Dados (7) = "00000000"
Regpath (8) = "hklm/software/microsoft/windows/currentversion/explorer/"
RegPath (8) = RegPath (4) e "Advanced/Pasder/Showall/CheckedValue"
Dados (8) = "00000001" 'Deixe a modificação da pasta de exibição entrar em vigor
Addp = "Control Appwiz.cpl" 'Adicionar/Remover Programa
Sound = "rúnDll32.exe shell32.dll, control_rundll mmsys.cpl @1" 'controle de som
Idioma = "rúnDll32.exe shell32.dll, control_rundll intl.cpl ,, 1" 'configurações de área (método de entrada)
Options = "rúnDll32.exe shell32.dll, options_rundll 0" 'opções de pasta
System = "Control SysdM.CPL" 'Propriedades do sistema
Tasks = "Control SchedTasks" 'Tarefas de cronograma
Sub Window_onLoad
Window.Resizeto 500.350
Ileft = (Window.screen.width-500)/2
itop = (window.screen.height-350)/2
Window.moveto Ileft, Itop
Final sub
Função secboard (n)
para i = 0 a seita.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 = "nenhum"