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

AutoIt3(AU3源码)搜索全盘目录下的XX程序并调用执行

AutoIT3 奇跡の海 2年前 (2017-05-31) 439次浏览 已收录 0个评论 扫描二维码

AutoIt3(AU3源码)搜索全盘目录下的XX程序并调用执行

简介

搜索全盘目录下的XX程序并调用执行,可用于系统封装时调用驱动程序!

源码

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=C:\WINDOWS\system32\SHELL32.dll
#PRE_Outfile=D:\Users\Administrator\桌面\soft.exe
#PRE_UseUpx=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <array.au3>
#include <file.au3>
; #NoTrayIcon
$g_szVersion = "test"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
Dim $i, $Drive
For $i = 67 To 90
        $Drive = Chr($i)
        If FileExists($Drive & ":\" & "software" & "\" & "软件安装助理.exe") Then
                Runwait($Drive & ":\" & "software" & "\" & "软件安装助理.exe")
				Sleep(1000)
			Else
; 搜索全盘开始 。。。
Local $Number=0
Local $a_Files[1]
Local $a_TempDrivers
Local $a_TempFolders
Local $a_TempFiles

;枚举硬盘
$a_TempDrivers=DriveGetDrive("ALL")

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],"*.exe",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
        If StringInStr($a_Files[$i],"软件安装助理.exe") Then 
                 Run($a_Files[$i])  ;执行
        EndIf
	Next
	
; 搜索全盘结束 。。。

                ExitLoop
        EndIf
	Next

;While 1
;    If ProcessExists("WanDrv.exe") Then
;		Sleep(1000)
;    Else
;	If Not ProcessExists("WanDrv.exe") Then
;		ProcessClose("WanDrv_XP.exe")
;		Exit
;		ExitLoop
;	EndIf
;			EndIf
;WEnd

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

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

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

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