[原创]4种预警方法 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [原创]4种预警方法

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有12290人关注过本帖树形打印复制链接主题：[原创]4种预警方法

z7c9

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

[原创]4种预警方法 发帖心情

Post By：2013/6/27 0:44:13 [只看该作者]

以下内容为程序代码:

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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

Post By：2013/6/27 0:47:46 [只看该作者]

test

此主题相关图片如下：qq截图20130627004618.png

guotx2010

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：蜘蛛侠帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33

Post By：2013/6/27 8:45:54 [只看该作者]

很好，短信其实是139邮箱，通过139邮箱短信功能实现短信提醒。

gz12345678gz

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：325 积分：14838 威望：0 精华：0 注册：2012/2/24 10:32:45

Post By：2013/7/19 16:49:21 [只看该作者]

给个很详细的实例嘛，好跟着画下

johnaiz

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：18 积分：0 威望：0 精华：0 注册：2013/6/27 16:26:36

Post By：2013/7/21 15:51:18 [只看该作者]

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

最好还是写成函数的形式把content作为参数。再加上一些其他相应的参数比如表示预警优先级的。这样传递信息也可以更灵活一些。

waterty

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：29 积分：5 威望：0 精华：0 注册：2013/5/24 20:31:47

Post By：2014/2/26 16:21:58 [只看该作者]

请问这个短信预警，可否直接写成自定义函数中使用。

h13978515795

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：6 积分：25 威望：0 精华：0 注册：2011/6/21 8:15:32

Post By：2014/5/2 17:50:44 [只看该作者]

我怎么实现不了？

z7c9

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

Post By：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();
}