ocx控件postmessage消息会消失_短信/邮件推送WinCC报警消息

我经常会被客户问到&＃xff1a;

能不能把系统的异常状态通过WinCC的报警消息推送给我的手机短信、邮件、微信、APP……

当然&＃xff01;可以&＃xff01;

这期简单梳理一下&＃xff1a;报警捕捉、短信/邮件推送。

我扔个“砖”&＃xff0c;等大家的“玉”&＃xff0c;相信有更简单的办法

• 实时捕捉WinCC报警消息

组态报警消息时&＃xff0c;激活“triggers action”属性&＃xff0c;则WinCC运行时&＃xff0c;若有指定消息事件(到来、离开、被确认...)时&＃xff0c;就会触发全局函数“GMsgFunction( )”。

函数 GMsgFunction的传入参数提供了一系列消息数据&＃xff0c;包括消息状态、消息号、时间戳等&＃xff0c;具体内容参见帮助文档中结构体 MSG_RTDATA_STRUCT 的定义。

使用函数“MSRTGetMsgCSData”。先判断消息的状态是否为“到来”&＃xff0c;根据消息号获取消息的组态数据&＃xff0c;具体内容参见结构体 MSG_CSDATA_STRUCT 的定义&＃xff1b;再调用”MSRTGetMsgText”函数根据文本库中的文本 ID 得到消息文本内容&＃xff0c;可把这些信息传给WinCC的内部变量。

    其实&＃xff0c;获得了报警文本&＃xff0c;跟WinCC本质相关的就到这了。至于短信、邮件、微信推送&＃xff0c;无论是哪家的SCADA&＃xff0c;无论用什么编程环境&＃xff0c;其实都大同小异。

• 短信 (SMS) 推送报警消息

• 方法1&＃xff1a;通过串口短信猫

  (以西门子MD720-3为例&＃xff0c;以AT指令方式发送中英文短信)

A.  在WinCC图形编辑器中选择“对象选项板”的“控件”选项卡&＃xff0c;选择“添加/删除”&＃xff0c;在“选择OCX控件”对话框中选择“Microsoft Communications Control”进行注册。然后在WinCC画面中添加MSComm 控件&＃xff1b;

B. 设置串口通信的波特率、奇偶校验、数据位等参数。   

C.  将要发送的报警消息赋值给控件的 Output 属性。注意&＃xff0c;发送前先判断串口是否为打开状态(PortOpen 属性)

D.  发送英文短信:

1)        MSComm控件发送“AT&＃43;CMGF&＃61;1”。设定短消息格式为“文本”&＃xff0c;仅英文。

2)        返回“OK”。

3)        向串口发送“AT&＃43;CMGS&＃61;”13810000000””。手机号码

4)        返回“>”。

5)        向串口发送短信的内容(报警文本)&＃xff0c; MD720-3将短信发送给设定的手机号码。

6)        返回“OK”&＃xff0c;说明短信发送成功。

E.   发送中文短信&＃xff1a;

1)         首先需要设置短信发送方式为 PDU 模式。使用“AT&＃43;CMGF&＃61;0”命令。

2)        其次要向被叫号码发送 PDU 的长度。例如&＃xff0c;使用“AT&＃43;CMGS&＃61;18”命令。

3)         当 MSComm 控件接收到“>”命令后&＃xff0c;向串口发送短信的 PDU 编码字符串。PDU 编码格式如下&＃xff1a;

例如发送: 

>0001000D91683108214365F700080459296C14

• 其中&＃xff0c;红色的数字(3108214365F7)代表对方的手机号码&＃xff0c;在 PDU 格式中&＃xff0c;手机号码每两位需要对调。比如在上面这个例子里&＃xff0c;对方的手机号码为13801234567&＃xff0c;F用来补充7 后面的空位。

• 蓝色的数字(59296C14)是短消息内容的 Unicode 码&＃xff0c;这里5929 代表“天”&＃xff0c;6C14 代表“气”。Unicode码同样可以用来表示一般英文字母和数字&＃xff0c;方法是在英文或数字的 ASCII 码前加 00。中文对应的unicode以及中文转unicode的程序代码&＃xff0c;网上有很多资料&＃xff0c;如&＃xff1a;https://wenku.baidu.com/view/0a57dc6e650e52ea55189882.html

• 紫色的数字(04)代表短消息文本的长度&＃xff0c;它等于其后所有字符个数除以 2。黑色的数字每次发送短消息时都是相同的&＃xff0c;使用时可以照抄。

   PDU 格式发送短消息时&＃xff0c;还必须计算整个 PDU 数据包的长度&＃xff0c;PDU 数据包的长度等于(PDU 数据包字符数-2)/2&＃xff0c;在上面的例子里&＃xff1a;(38-2)/2&＃61;18。       

• 方法2&＃xff1a;通过以太网口短信猫

(以西门子路由器M874-3为例&＃xff0c;其支持联通的3G 卡&＃xff0c;以及移动和联通的2G 卡。据悉此硬件不支持中文短信&＃xff0c;所以若需中文&＃xff0c;那就考虑第三方硬件&＃xff0c;方法类似。)

A. 激活M874-3设置中的“SMS Relay Outgoing”功能。

B. 在WinCC图形编辑器中选择“对象选项板”的“控件”选项卡&＃xff0c;选择“添加/删除”&＃xff0c;在“选择OCX控件”对话框中选择“Microsoft WinSock Control, version 6.0”进行注册。然后在WinCC画面中添加WinSock 控件&＃xff1b;

C.  在GMsgFunction( )全局函数中&＃xff0c;置位一个内部变量Alarm_Coming&＃xff0c;这个变量作为一个全局动作触发器&＃xff1a;建立TCP/IP连接。

D.  在Socket控件的connect事件中发送报警消息

    代码如下&＃xff1a;

• 邮件推送报警消息

通过VBS代码控制outlook 发送邮件

(个人推荐此方式&＃xff0c;省钱; 另外&＃xff0c;很多邮箱都可以绑定手机&＃xff0c;邮件到达有实时短信提醒)

前提&＃xff1a;这台电脑有outlook并能正常发送邮件(已设置好SMTP/POP3服务器, 用户账号等)。WinCC的VBS编程环境中要使能Microsoft Outlook对象库的引用

邮件功能的核心代码如下&＃xff1a;

Dim OutlookObj As Object

Dim OutlookNewMail As Object

Set OutlookObj &＃61; CreateObject("Outlook.Application")

&＃39;创建Outlook应用对象

SetOutlookNewMail &＃61; OutlookObj.CreateItem(olMailItem)

&＃39;创建Outlook邮件对象

OutlookNewMail.To &＃61; To_Addr             

&＃39;收件人地址

OutlookNewMail.cc &＃61; Cc_Addr              

&＃39;抄送人地址

OutlookNewMail.Body &＃61; BodyText       

&＃39;邮件内容&＃xff1a;报警消息文本&＃xff0c;嵌入至此

OutlookNewMail.Send                           

&＃39;执行发送动作

   采用此方式发送邮件&＃xff0c;Outlook会出现“有一个程序正试图以您的名义发送电子邮件”提示&＃xff0c;则需对Outlook进行设置&＃xff1a; &＃39;"工具" -> "信任中心" -> "编程访问" -> 选择"从不向我发出可疑活动警告"

篇幅关系&＃xff0c;先写到这。

下期预告&＃xff1a;《微信/app推送WinCC报警消息》

更多WinCC人机交互内容 

• 或关注公众号:  人机常情 WinCC(扫码)

• 或加入微信群&＃xff1a; WinCC 社区(点此链接)