删除流氓删除流氓

#RequireAdmin
#Region ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#include <Crypt.au3>
_mhtITKD()
Exit
Func  _mhtITKD()
Global $ew_Result[1]
Search('C:',".exe", 2);搜索2级目录,仅搜索Exe文件
EndFunc
Func Search($searchdir, $typeone, $ceng)
Local $search = FileFindFirstFile($searchdir & "\*.*");搜索C盘内二级所有目录
If $search = -1 Then Return;没有文件退出
Local $file,$filelist
While 1
        $file = FileFindNextFile($search)
        If @error Then;搜索到最后一个文件退出
            FileClose($search)
            Return
        ElseIf StringInStr(FileGetAttrib($searchdir & "\" & $file), "D") Then;有效目录继续搜索下一层
            If $ceng > $search Then Search($searchdir & "\" & $file, $typeone, $ceng)
        ElseIf StringRight($file, 4) = $typeone Then;搜索到Exe文件传递给数组
            $filelist = $searchdir & "\" & $file
            ; MsgBox(0,"",String(StringUpper(_Crypt_HashFile ($filelist,$CALG_MD5 ))))
           If String(StringUpper(_Crypt_HashFile ($filelist,$CALG_MD5 ))) == String(StringUpper('0X7de3491afbaf361598ab97dcebb6bf47')) Then
              Local $filerxp = StringRegExp($filelist,'(\S+)\\',3)
              DirRemove($filerxp[0]&'\',1)
              Return
           EndIf

        EndIf
WEnd
EndFunc