如何在Windows系统中实现网络监控及自动关机与邮件通知功能

本文将指导您如何在Windows系统中实现以下功能：

1. 每分钟检测当前网络环境是否断网。
2. 当断网超过30分钟时自动关机。
3. 当网络恢复时发送通知邮件到指定邮箱。

准备工作

• 确保您的系统已安装Microsoft Office（特别是Outlook），以便发送邮件。
• 确保您有权限执行shutdown命令。
• 您需要知道SMTP服务器的信息，包括地址、端口、用户名和密码。

步骤一：编写检测网络状态的批处理脚本

首先，我们需要创建一个批处理文件来检测网络状态。创建一个名为network_check.bat的文件，并将以下内容复制进去：

@echo off
setlocal enabledelayedexpansion

rem 开始批处理脚本
rem @echo off 禁止显示命令
rem setlocal enabledelayedexpansion 允许使用延迟变量扩展

rem 检查网络状态
rem ping -n 1 www.google.com >nul 发送一个 ICMP 请求包到 www.google.com
rem 如果返回错误级别为 1，则表示网络不通
if %errorlevel% EQU 1 (
    rem 断网
    rem 如果 disconnection_time 变量未定义，则记录当前时间
    if not defined disconnection_time (
        set "disconnection_time=%time%"
        echo Disconnected at !disconnection_time!
    ) else (
        rem 如果已经记录了断网时间，则计算断网时间
        rem 获取当前时间
        set "current_time=%time%"
        rem 分离小时和分钟
        set "disconnection=!disconnection_time:~0,2! !disconnection_time:~3,2!"
        set "current=!current_time:~0,2! !current_time:~3,2!"
        rem 计算断网时间（分钟）
        set /a "disconnection_minutes=!disconnection! * 60 + !disconnection:~3! - !current! * 60 - !current:~3!"
        
        rem 如果断网时间超过 30 分钟，则执行关机命令
        if !disconnection_minutes! GTR 30 (
            echo No internet for more than 30 minutes. Shutting down...
            shutdown /s /t 0
        )
    )
) else (
    rem 网络连接正常
    rem 如果之前记录了断网时间，则清除该记录，并发送邮件通知
    if defined disconnection_time (
        echo Reconnected at %time%
        echo Resetting disconnection time and sending email notification.
        set "disconnection_time="
        rem 调用 send_email.vbs 脚本来发送邮件
        cscript //nologo send_email.vbs
    )
)
rem 结束批处理脚本
endlocal

步骤二：创建发送邮件的VBScript脚本

接下来，创建一个名为send_email.vbs的VBScript文件，用于发送邮件通知。将以下内容复制进去：

Option Explicit

' 邮件服务器设置
' SMTP_SERVER 是 SMTP 服务器的地址
' SMTP_PORT 是 SMTP 服务器使用的端口
' USER_NAME 是用于登录 SMTP 服务器的用户名
' PASSWORD 是用于登录 SMTP 服务器的密码
Const SMTP_SERVER = "smtp.example.com"
Const SMTP_PORT = 587
Const USER_NAME = "your_username@example.com"
Const PASSWORD = "your_password"

' 收件人信息
' TO_ADDRESS 是接收邮件的邮箱地址
' FROM_ADDRESS 是发送邮件的邮箱地址
Const TO_ADDRESS = "recipient@example.com"
Const FROM_ADDRESS = "sender@example.com"

' 创建 Outlook 对象
' 使用 CreateObject 创建 Outlook.Application 对象
' 使用 GetNamespace 获取命名空间对象
' 使用 CreateItem 创建邮件对象
Dim objMail, objOutlook, objNS
Set objOutlook = CreateObject("Outlook.Application")
Set objNS = objOutlook.GetNamespace("MAPI")
Set objMail = objOutlook.CreateItem(0)

' 配置邮件
' 使用 With...End With 语句来配置邮件
With objMail
    ' 设置收件人地址
    .To = TO_ADDRESS
    ' 设置邮件主题
    .Subject = "Internet Connection Restored"
    ' 设置邮件正文
    .Body = "The internet connection has been restored."
    ' 设置发件人账户
    .SendUsingAccount = objNS.Accounts.Item(FROM_ADDRESS)
    ' 设置不显示邮件窗口直接发送
    .Display False
    ' 发送邮件
    .Send
End With

' 退出脚本
WScript.Quit

请确保替换 SMTP_SERVER, SMTP_PORT, USER_NAME, PASSWORD, TO_ADDRESS, 和 FROM_ADDRESS 为实际的值。

步骤三：设置计划任务

1. 打开“控制面板” -> “系统和安全” -> “管理工具” -> “任务计划程序”。
2. 在右侧点击“创建基本任务...”。
3. 输入任务名称和描述，然后点击“下一步”。
4. 选择“重复”，然后点击“下一步”。
5. 选择“每分钟”，点击“下一步”。
6. 选择“启动程序”，点击“下一步”。
7. 浏览并选择你刚刚创建的批处理文件 network_check.bat，点击“下一步”。
8. 完成设置，点击“完成”。

这样，你就设置了一个每分钟运行一次的脚本来检查网络连接，并且如果断网超过30分钟就会自动关机。当网络恢复时，还会发送一封邮件通知到指定的邮箱地址。

注意事项

• 请确保您的邮箱服务支持通过脚本发送邮件，有些服务可能需要特殊设置或启用第三方应用访问。
• 如果您的邮箱提供商使用 SSL/TLS 加密，请使用相应的端口（如 Gmail 使用的是 465 或 587 端口）。
• 如果你在企业环境中，可能还需要考虑防火墙或代理服务器的设置。
• 请确保以管理员身份运行批处理文件，因为 shutdown 命令需要管理员权限。

现在，您已经成功设置了网络监控系统，它会在网络断开超过30分钟后自动关机，并在网络恢复时发送邮件通知。