WinCC 通过以太网短信猫 推送报警消息

2022-03-29 17:34:51 浏览数 (2)

  • 方法2:通过以太网口短信猫

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

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

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

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

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

代码如下:

  • 邮件推送报警消息

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

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

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

邮件功能的核心代码如下:

Dim OutlookObj As Object

Dim OutlookNewMail As Object

Set OutlookObj = CreateObject("Outlook.Application")

'创建Outlook应用对象

SetOutlookNewMail = OutlookObj.CreateItem(olMailItem)

'创建Outlook邮件对象

OutlookNewMail.To = To_Addr

'收件人地址

OutlookNewMail.cc = Cc_Addr

'抄送人地址

OutlookNewMail.Body = BodyText

'邮件内容:报警消息文本,嵌入至此

OutlookNewMail.Send

'执行发送动作

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

0 人点赞