你好:

     感谢你访问我的 Blog ,本博客只提供博主的技术经验分享,你可以在此做简单的留言和评论,我会抽空回复你;若是要深入交流探讨,请联系QQ:47853253或者加QQ群:12012081


 

万象进程守护2021

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#AccAu3Wrapper_OutFile_x64=万象进程守护2021_x64.exe

#AccAu3Wrapper_Res_Language=2052

#AccAu3Wrapper_Res_requestedExecutionLevel=None

#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#include <FileConstants.au3>

break(0)

Opt("TrayMenuMode", 3)

Opt("TrayIconHide", 1)

Dim $iPidclsmn,$clsmn

Dim $num=0, $num1=0

While 1

$clsmn=FileExists ("c:\windows\syswow64\clsmn.exe")

sleep (3000)

If $clsmn=0 Then 

sleep (5000) 

$num1=$num1+1

if $num1>15 then

FileInstall("FlashOff.exe","c:\windows\FlashOff.exe",$FC_OVERWRITE)

Run(@WindowsDir & "\FlashOff.exe -r")

EndIf

Else

$iPidclsmn=ProcessExists("clsmn.exe")

sleep (3000)

If $iPidclsmn=0 Then

sleep (5000)

$num=$num+1

if $num>10 then

Run(@WindowsDir & "\syswow64\clsmn.exe")

EndIf

if $num>15 then

   FileInstall("FlashOff.exe","c:\windows\FlashOff.exe",$FC_OVERWRITE)

   Run(@WindowsDir & "\FlashOff.exe -r")

EndIf

EndIf

EndIf

WEnd



[本日志由 lq3447 于 2021-06-10 11:31 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 133
发表评论
你没有权限发表留言!