论坛 › 『 提问交流 』 › 批处理转换AU3问题！

35598253 发表于 2010-8-31 16:03:58

批处理转换AU3问题！

for %%a 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 (
del /a /f /q %%a:\autorun.inf
del /a /f /q %%a:\sxs.exe
del /a /f /q %%a:\oso.exe
del /a /f /q %%a:\auto.exe
del /a /f /q %%a:\sysauto.exe
del /a /f /q %%a:\setup.exe
del /a /f /q %%a:\hsomklg.exe
del /a /f /q %%a:\gamesetup.exe
del /a /f /q %%a:\pagefile.pif
del /a /f /q %%a:\ravmone.exe
del /a /f /q %%a:\ravmon.exe)

chkntfs /t:5

这段话怎样转换成批处理？？？？
我转换后无法删除向setup.exe等文件~~

35598253 发表于 2010-8-31 16:20:19

没人顶吗？或者寻找一个能找个替代的也可~~

zhongzijie 发表于 2010-8-31 18:12:50

对不起楼主我不会，帮你顶一下{:face (254):}

Duvet 发表于 2010-8-31 18:58:31

本帖最后由 Duvet 于 2010-8-31 21:44 编辑

試試看可不可以 ^^#include <Constants.au3>

Local $file = StringSplit("autorun.inf|sxs.exe|oso.exe|auto.exe|sysauto.exe|setup.exe|hsomklg.exe|gamesetup.exe|pagefile.pif|ravmone.exe|ravmon.exe","|")
Local $var = DriveGetDrive("all")
If Not @error Then
        Local $i,$j
        Local $foo = Run(@ComSpec,@SystemDir,@SW_HIDE,$STDIN_CHILD)
        For $i=1 To $var
                If StringRegExp(DriveGetType($var[$i]),"Removable|Fixed") Then
                        For $j=1 To $file
                                StdinWrite($foo,"del /a /f /q "&$var[$i]&"\"&$file[$j]&@CRLF)
                        Next
                EndIf
        Next
        StdinWrite($foo," /c chkntfs /t:5"&@CRLF)
        StdinWrite($foo)
EndIf

Exit

3mile 发表于 2010-8-31 20:53:27

未使用“ALL”是为了避免出现软驱未屏蔽出错。Local $file = StringSplit("autorun.inf|sxs.exe|oso.exe|auto.exe|sysauto.exe|setup.exe|hsomklg.exe|gamesetup.exe|pagefile.pif|ravmone.exe|ravmon.exe", "|")
Local $var = DriveGetDrive("FIXED")
If Not @error Then
        For $i = 1 To $var
                For $j = 1 To $file
                        If FileExists($var[$i] & "\" & $file[$j]) Then
                                FileSetAttrib($var[$i] & "\" & $file[$j], "-RSH")
                                FileDelete($var[$i] & "\" & $file[$j])
                                MsgBox(0,0,$var[$i] & "\" & $file[$j])
                        EndIf
                Next
        Next
EndIf
RunWait(@ComSpec & " /c " & "chkntfs /t:5",@ScriptDir,@SW_HIDE)

查看完整版本: 批处理转换AU3问题！