Windows 守护进程

最新推荐文章于 2024-02-27 15:10:46 发布

scan724

最新推荐文章于 2024-02-27 15:10:46 发布

阅读量722

点赞数

CC 4.0 BY-SA版权

分类专栏： zj-脚本

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/48135899

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

这段代码使用Win32::Process::Info模块获取Windows系统的进程信息，查找特定进程（如360Safe.exe）是否运行。如果进程不在运行，则发送邮件通知并尝试启动该进程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

*use Win32::Process::Info;
use Sys::Hostname;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
use Net::SMTP;
sub send_mail{
if (@_ != 2){print "请输入2个参数\n";exit 1};
    ($m,$n) = @_; #将参数赋值给变量  
    my $to_address  = $m;
my $CurrTime = time2iso(time());
    my $to_address  = $m;
 my $mail_user   = 'zhaoyangjian@zjcap.cn';
    my $mail_pwd    = 'zj806355';
    my $mail_server = 'smtp.exmail.qq.com';
    my $from    = "From: $mail_user\n";
    my $subject = "Subject: zjcap info\n";
    my $info = "$CurrTime--$n";
     my $message = <<CONTENT; 
     $info
CONTENT
    my $smtp = Net::SMTP->new($mail_server);
    $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
    $smtp->mail($mail_user);
    $smtp->to($to_address);
    $sm

了解本专栏