此脚本作用是干什么的,请教大家了-专业自动化论坛-中国工控网论坛

此脚本作用是干什么的,请教大家了点击：857 | 回复：8

精华：0帖
求助：0帖
帖子：159帖 | 3098回
年度积分：4
历史总积分：21261
注册：2007年2月02日

发表于：2007-09-14 13:39:00

楼主

#include "apdefap.h"

int gscAction( void )
{
// WINCC:TAGNAME_SECTION_START
// syntax: #define TagNameInAction "DMTagName"
// next TagID : 1
#define TAG_0 "@STRAND1@AlternateConnectionAddress"
#define TAG_1 "@STRAND1@ConnectionEstablishMode"
#define TAG_2 "@STRAND1@ConnectionState"
#define TAG_3 "@STRAND1@ForceConnectionAddress"
// WINCC:TAGNAME_SECTION_END

// WINCC:PICNAME_SECTION_START
// syntax: #define PicNameInAction "PictureName"
// next PicID : 1
// WINCC:PICNAME_SECTION_END

#pragma code("msrtcli.dll")
#include "msrtapi.h"
#pragma code()

#pragma code( "kernel32.dll" )
VOID GetLocalTime(LPSYSTEMTIME lpSystemTime);
#pragma code()

static int Mld_Main = 0;
static int Mld_Res = 0;

DWORD ServiceID = 0;
static BOOL InitFirst = TRUE;

static MSG_RTCREATE_STRUCT  MsgCreate;
CMN_ERROR Error;

if ( InitFirst == TRUE )
{
memset( &MsgCreate, 0, sizeof (MSG_RTCREATE_STRUCT) );
MsgCreate.dwMsgState = MSG_STATE_COME;
MsgCreate.wTextValueUsed = 1;
sprintf( MsgCreate.mtTextValue[0].szText, "连接通信通道名" );
SetTagChar( TAG_0, "H1,08 00 06 96 14 73,,0,3,02" );   这里的是MAC地址
InitFirst = FALSE;
}

if (  GetTagDWordWait( TAG_1 ) == 0  )
{
Mld_Main = 0;
Mld_Res = 0;
return 0;
}
else
{
GetLocalTime( &MsgCreate.stMsgTime );
MSRTStartMsgService ( &ServiceID, NULL, NULL, MSG_NOTIFY_MASK_ARCHIV, NULL, &Error );

if (  GetTagDWordWait( TAG_2 ) == 0  )
{
     if (  GetTagDWordWait( TAG_3 ) == 0  )
{
if ( Mld_Main == 0 )
{
MsgCreate.dwMsgNr = 1012222;
MSRTCreateMsg( ServiceID, &MsgCreate, &Error );
Mld_Main = 1;
}
}
else
{
if ( Mld_Res == 0 )
{
MsgCreate.dwMsgNr = 1012224;
MSRTCreateMsg( ServiceID, &MsgCreate, &Error );
Mld_Res = 1;
}
}

   if (  GetTagDWordWait( TAG_2 ) == 0  )
{
if (  GetTagDWordWait( TAG_3 ) == 0  )
{
   SetTagDWord( TAG_3, 1 );
}
else
{
SetTagDWord( TAG_3, 0 );
}
}
}
else
{
if (  ( Mld_Main != 0 )  ||  ( Mld_Res != 0 )  )
{
Mld_Main = 0;
Mld_Res = 0;

if (  GetTagDWordWait( TAG_3 ) ==&

分享到：