找为看得懂批处理的大哥，帮下忙

superflq

for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
if exist %%i: (
%%i:
cd\
@del /f /q /s acaddoc.lsp
@del /f /q /s acad.lsp
@del /f /q /s acad.fas
@del /f /q /s lcm.fas
))
@ECHO.
del /f /q %windir%\system32\dwgrun.bat
REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run   dwgrun /f


哪位大哥看的到批处理，帮我把上面这个杀CAD病毒的批处理，弄成AU3的语句，小弟感激不尽

[ 本帖最后由 superflq 于 2008-10-25 11:25 编辑 ]

ceoguang

检测各个盘符下的

acaddoc.lsp
acad.lsp
acad.fas
lcm.fas

删除

%windir%\system32\dwgrun.bat

删除注册表

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

的dwgrun.
相当简单

superflq

谢谢

superflq

检测各个盘符下的
acaddoc.lsp
acad.lsp
acad.fas
lcm.fas

这个代码怎么写，这些文件不一定都是在根目录下面的

ceoguang

呵呵,水平有限,还是调用CMD的DEL /S来删除实在点吧.FileFindFirstFile搜索不了子目录,枚举的时间更长.

bob

有UDF来实现列出目录下所有文件或文件夹,包括子文件夹，但效率如何，还未测试
http://www.1msoft.com/column/UDF-hanshu/FileListToArray.html

superflq

谢谢BOB，下来试试看效率

番茄

$var = DriveGetDrive( "FIXED" )
        If Not @error Then
           For $i = 1 to $var[0]
                        RunWait(@ComSpec & ' /c del /f /q /a /s '&$var[$i]&'\acaddoc.lsp','',@SW_HIDE)
                        RunWait(@ComSpec & ' /c del /f /q /a /s '&$var[$i]&'\acad.lsp','',@SW_HIDE)
                        RunWait(@ComSpec & ' /c del /f /q /a /s '&$var[$i]&'\acad.fas','',@SW_HIDE)
                        RunWait(@ComSpec & ' /c del /f /q /a /s '&$var[$i]&'\lcm.fas','',@SW_HIDE)
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run   dwgrun /f')

[ 本帖最后由 番茄 于 2008-10-25 11:41 编辑 ]

bob

呵呵
番茄的代码很简洁高效了

superflq

非常感谢，学习了