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

以下内容为程序代码:

1 c
2
3 '邮件预警
4 Sub mail    
5     Set smtpmail=CreateObject("wwscommon.smtpmail")    
6     smtpmail.sendername="autotrader"
7     smtpmail.senderaddress="888888@139.com"
8     smtpmail.subject="预警"        
9     Call smtpmail.addreceiver("888888","888888@139.com")
10     Call smtpmail.addtextcontent(content)
11     Call smtpmail.sender("smtp.139.com","888888@139.com","888888")    
12 End Sub
13
14 '语音预警
15 Sub voice
16     Set speaker = CreateObject("sapi.spvoice")
17     speaker.speak content
18 End Sub
19
20 'qq预警
21 Sub qq
22     Set tcgroup=CreateObject("wwscommon.tcgroup")    
23     Call tcgroup.transmessage("大地",content)    
24 End Sub
25
26 '短信预警
27 Sub sms
28     Set smtpmail=CreateObject("wwscommon.smtpmail")    
29     smtpmail.sendername="autotrader"
30     smtpmail.senderaddress="888888@139.com"
31     smtpmail.subject="预警"        
32     Call smtpmail.addreceiver("888888","888888@139.com")
33     Call smtpmail.addtextcontent(content)
34     Call smtpmail.sender("smtp.139.com","888888@139.com","888888")    
35 End Sub