AU3 监控本地服务。自动邮件通知

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#include <SmtpMailer.au3>
#Include <ServiceControl.au3>
#Include <Array.au3>
#include<acn_net.au3>
Local $alarmtype[2]
$alarmtype[1]='服务挂了'
$sServiceName="MYSQL"
$Ip=BinaryToString(_networkgetinternetip())
While 1
	 $server_status=_ServGetDetails($sServiceName)
	 $mailflag=StringCompare($server_status[4],"Running") ;服务停止 StringCompare($server_status[4],"Running")不等于0 
	If $mailflag  Then    
		$s_Subject=$sServiceName&$alarmtype[1] & $Ip
		sendmail()
	EndIf
	
	Sleep(5*60*1000)
WEnd  ;为真停止运行			
			
Func sendmail()
        $s_SmtpServer = "smtp.126.com" ;SMTP服务器
        $s_FromName = "liuz" ;邮件发送人
        $s_FromAddress = "*****@126.com" ;邮件发送者地址
        $s_ToA