主题：[原创]4种预警方法

以下内容为程序代码:

1 #include ＜SmtpMailer_UDF.au3＞
2
3 Global $c
4
5 ;邮件预警
6 Func mail_alarm()
7 Local $smtpServer = "smtp.139.com"
8 Local $fromName = "Dennis"
9 Local $fromAddress = "888888@139.com"
10 Local $toAddress = "888888@139.com"
11 Local $subject = "预警"
12 Local $body = $content
13 Local $attachFiles = ""
14 Local $ccAddress = ""
15 Local $bccAddress = ""
16 Local $importance = "Normal"
17 Local $username = "888888"
18 Local $password = "888888"
19 Local $port = 25
20 Local $ssl = False
21 Local $isHtmlBody = False
22 _INetSmtpMailCom($smtpSErver, $fromName, $fromAddress, $toAddress, $subject, $body, $attachFiles, $ccAddress, $bccAddress, $importance, $username, $password, $port, $ssl, $isHtmlBody, 0)
23 EndFunc
24
25 ;语音预警
26 Func voice_alarm()
27 $speech = ObjCreate("SAPI.SpVoice")
28 $speech.Speak($content)
29 $speech = ""
30 EndFunc
31
32 ;短信预警
33 Func sms_alarm()
34 Local $smtpServer = "smtp.139.com"
35 Local $fromName = "Dennis"
36 Local $fromAddress = "888888@139.com"
37 Local $toAddress = "888888@139.com"
38 Local $subject = "预警"
39 Local $body = $content
40 Local $attachFiles = ""
41 Local $ccAddress = ""
42 Local $bccAddress = ""
43 Local $importance = "Normal"
44 Local $username = "888888"
45 Local $password = "888888"
46 Local $port = 25
47 Local $ssl = False
48 Local $isHtmlBody = False
49 _INetSmtpMailCom($smtpSErver, $fromName, $fromAddress, $toAddress, $subject, $body, $attachFiles, $ccAddress, $bccAddress, $importance, $username, $password, $port, $ssl, $isHtmlBody, 0)
50 EndFunc
51
52 mail_alarm()
53 voice_alarm()
54 sms_alarm()
55