共18 条记录, 每页显示 10 条, 页签: [1] [2]

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

1楼

z7c9 发表于：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编辑过]

2楼

z7c9 发表于：2013/6/27 0:47:46

test

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

3楼

guotx2010 发表于：2013/6/27 8:45:54

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

4楼

gz12345678gz 发表于：2013/7/19 16:49:21

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

5楼

johnaiz 发表于：2013/7/21 15:51:18

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

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

6楼

waterty 发表于：2014/2/26 16:21:58

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

7楼

h13978515795 发表于：2014/5/2 17:50:44

我怎么实现不了？

8楼

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

9楼

z7c9 发表于：2014/12/7 20:59:58

此主题相关图片如下：aa.png

10楼

z7c9 发表于：2014/12/7 21:29:59

此主题相关图片如下：bb.png

[此贴子已经被作者于2014/12/7 21:31:50编辑过]

共18 条记录, 每页显示 10 条, 页签: [1] [2]