• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(AU3)源码全盘扫描并执行删除文件(推广)

AutoIT3 奇跡の海 1年前 (2017-09-11) 338次浏览 已收录 0个评论 扫描二维码

AutoIt3(AU3)源码全盘扫描并执行删除文件(推广)

源码简介

许多在系统中的恶意或推广文件十分烦人,查找有不容易,而且开机自动安装。以下代码及时枚举盘符,查找文件,并执行删除

源码

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=C:\Windows\syswow64\SHELL32.dll|-132
#PRE_Outfile=D:\Users\Miracles\Desktop\TG1.exe
#PRE_UseUpx=n
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <array.au3>
#include <file.au3>
Local $Number=0
Local $a_Files[1]
Local $a_TempDrivers
Local $a_TempFolders
Local $a_TempFiles
;枚举硬盘
$a_TempDrivers=DriveGetDrive("FIXED")
If IsArray($a_TempDrivers) Then 
;~         _ArrayDisplay($a_TempDrivers)
        Local $i
        For $i=1 To UBound($a_TempDrivers)-1
                ;若硬盘可用
                If DriveStatus ($a_TempDrivers[$i])="READY" Then 
                        ;枚举该盘下的一级子目录
                        $a_TempFolders=_FileListToArray($a_TempDrivers[$i],"*",2)
                        If IsArray($a_TempFolders) Then 
                                Local $j
                                For $j=1 To UBound($a_TempFolders)-1
                                        ;枚举子目录下的exe文件
                                        $a_TempFiles=_FileListToArray($a_TempDrivers[$i]&"\"&$a_TempFolders[$j],"*.vbs",1)
                                        If IsArray($a_TempFiles) Then 
                                                ;添加到数组$a_TempFiles
                                                Local $k
                                                For $k=1 To UBound($a_TempFiles)-1
                                                        $Number+=1
                                                        ReDim $a_Files[$Number+1]
                                                        $a_Files[$Number]=$a_TempDrivers[$i]&"\"&$a_TempFolders[$j]&"\"&$a_TempFiles[$k]
                                                Next
                                        EndIf
                                Next
                        EndIf        
                EndIf
        Next
EndIf 

; _ArrayDisplay($a_Files)

Local $i
For $i=1 To UBound($a_Files)-1
	 ;MsgBox(4096,"1213",$a_Files[$i])
	 
       ; If StringInStr($a_Files[$i],"qqpcmgr_v12.6.18848.203_120000290_1.exe") Then 
                 ;Run($a_Files[$i])  ;执行
				 ;MsgBox(4096,"1213",$a_Files[$i])
		;		 $Filepathtg = StringReplace($a_Files[$i], "qqpcmgr_v12.6.18848.203_120000290_1.exe", "") ;从获得的进程全名中去掉后缀名 .exe
				 ;MsgBox(4096,"1213",$Filepathtg)
				 ;FileDelete ( $a_Files[$i] )
				 ;DirRemove($Filepathtg,1)
       ; EndIf
	   
	         If StringInStr(FileRead($a_Files[$i]),"2345Explorer_227975_silence") Then 
                 ;Run($a_Files[$i])  ;执行
				 ;MsgBox(4096,"1213",$a_Files[$i])
				 
				 ;$file = "temp.txt"
                 $CountLines = _FileCountLines($a_Files[$i])
                 $line = FileReadLine($a_Files[$i],$CountLines-1)
				 ;MsgBox(1,1,$line)
                 $txt1='set sFolder=objFso.getfolder("'
                 $txt2='")'
                 $Filepathtg = StringReplace($line, $txt1, "") ;从获得的进程全名中去掉后缀名 .exe
                 ;MsgBox(1,1,$Filepathtg)
                 $Filepathtg2 = StringReplace($Filepathtg, $txt2, "\") ;从获得的进程全名中去掉后缀名 .exe
                 ;MsgBox(1,1,$Filepathtg2)
		;		 $Filepathtg = StringReplace($a_Files[$i], "qqpcmgr_v12.6.18848.203_120000290_1.exe", "") ;从获得的进程全名中去掉后缀名 .exe
				 ;MsgBox(4096,"1213",$Filepathtg)
				 FileDelete ( $a_Files[$i] )
				 DirRemove($Filepathtg2,1)
        EndIf
	   
	Next

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(AU3)源码全盘扫描并执行删除文件(推广)!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址