以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [原创]4种预警方法  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=53399)
--  作者：z7c9
--  发布时间：2013/6/27 0:44:13
--  [原创]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
[此贴子已经被作者于2013/6/27 0:45:48编辑过]
--  作者：z7c9
--  发布时间：2013/6/27 0:47:46
--  
test
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130627004618.png
图片点击可在新窗口打开查看
--  作者：guotx2010
--  发布时间：2013/6/27 8:45:54
--  
很好，短信其实是139邮箱，通过139邮箱短信功能实现短信提醒。
--  作者：gz12345678gz
--  发布时间：2013/7/19 16:49:21
--  
给个很详细的实例嘛，好跟着画下
--  作者：johnaiz
--  发布时间：2013/7/21 15:51:18
--  

我个人觉得这样写并不算很好。

最好还是写成函数的形式把content作为参数。再加上一些其他相应的参数比如表示预警优先级的。这样传递信息也可以更灵活一些。
--  作者：waterty
--  发布时间：2014/2/26 16:21:58
--  
请问这个短信预警，可否直接写成自定义函数中使用。
--  作者：h13978515795
--  发布时间：2014/5/2 17:50:44
--  

我怎么实现不了？

 
--  作者：z7c9
--  发布时间：2014/12/7 20:50:11
--  
qt版：

#include <QCoreApplication>
#include <QtSpeech.h>
#include "ssmtp.h"

using namespace QtSpeech_v1;

QString c;

//邮件预警
void mailAlarm(){
    MIMEmessage message;
    message.setSender("888888@139.com");
    message.addRcpt("888888@139.com");
    message.setSubject("预警");
    message.addPlainTextPart(content);

    SSMTP smtp("smtp.139.com",25,false);
    smtp.setLogin("888888");
    smtp.setPass("888888");
    smtp.send(&message);
}

//语音预警
void voiceAlarm(){
    QtSpeech voice;
    voice.say(content);
}

//短信预警
void smsAlarm(){
    MIMEmessage message;
    message.setSender("888888@139.com");
    message.addRcpt("888888@139.com");
    message.setSubject("预警");
    message.addPlainTextPart(content);

    SSMTP smtp("smtp.139.com",25,false);
    smtp.setLogin("888888");
    smtp.setPass("888888");
    smtp.send(&message);
}

int main(int argc, char *argv[])
{
    QCoreApplication a(argc, argv);

    mailAlarm();
    voiceAlarm();
    smsAlarm();

    return a.exec();
}


--  作者：z7c9
--  发布时间：2014/12/7 20:59:58
--  

图片点击可在新窗口打开查看此主题相关图片如下：aa.png
图片点击可在新窗口打开查看
--  作者：z7c9
--  发布时间：2014/12/7 21:29:59
--  Python版


图片点击可在新窗口打开查看此主题相关图片如下：bb.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014/12/7 21:31:50编辑过]