WinCC的电子签名与审计追踪
如何写入审计追踪记录
用脚本向Audit中添加记录有两种方法，一种方法是用InserAuditEntryNew函数写入，另一种方法是生成属于“操作员输入消息”类型的报警消息，该报警消息会记录到Audit中。
Audit记录中的TargetName列是操作内容，Reason列是操作员的注释。使用InserAuditEntryNew函数生成的记录在TargetName列的内容默认为VBScripting Runtime或CScripting Runtime，而操作内容只能记录在Reason列处，这与其他记录的形式不一致，效果不好，因此在此不使用InserAuditEntryNew函数。
第二种方法，在报警记录的“系统，无确认”下的“操作员输入消息”中建立报警消息，当这条消息触发后，消息不仅会记录到报警数据库，也会记录到Audit数据库。触发报警消息可以用变量触发，也可以用脚本触发。使用脚本触发可以给消息传递参数，即向@1%s@等文本块中写入值。
WinCC中默认有一条编号为12508141的操作员输入消息，定义如下图，该消息用于记录新值旧值的更改。
12508141消息的内容不完全符合Audit消息记录的需要，新建一条编号为12508142消息。项目中可能会用WinCC控制多台设备，定义文本块@10%s@的作用是记录该操作针对哪台设备，文本块@7%s@记录执行了什么操作。有些项目中不使用Audit trail组件，而是用报警记录的数据库记录审计追踪，因此可在错误点列填上@10%s@，使用报警控件查看时便于筛选。该消息定义如下：
使用C脚本生成操作员消息
WinCC支持C和VB两种脚本，C脚本中提供了GCreateMyOperationMsg()函数生成操作员消息。
函数原型：
int GCreateMyOperationMsg( DWORD dwFlags, DWORD dwMsgNum, char* lpszPictureName, char* lpszObjectName, DWORD dwMyTextID, double doValueOld, double doValueNew, char* pszComment)
参数：
- dwFlags，该参数指定如何生成注释，可用以下常量值，值可以用或运算“|”输入：
|
常数 |
值 |
描述 |
|
FLAG_COMMENT_PARAMETER |
0x00000001 |
文本在运行时直接作为消息输入，没有自己的注释对话框。对注释的指针不能等于“NULL”。 |
|
FLAG_COMMENT_DIALOG |
0x00000003 |
出现一个注释对话框，输入的注释被转移到消息中 |
|
FLAG_TEXTID_PARAMETER |
0x00000100 |
提供文本库中的一个文本ID，将文本插入到消息的过程值中。 |
- dwMsgNum，该参数为消息编号，触发该编号的消息。消息必须属于“操作员输入消息”类型，不可使用其他类型的消息。
- lpszPictureName，该参数未在函数中使用，不起任何作用。
- lpszObjectName，该参数会写入到文本块@1%s@中和szInstance属性中，szInstance属性等同于文本块@10%s@。
- dwMyTextID，该参数是文本库ID，值会被写入到值@8%g@中。如果dwFlags参数为FLAG_TEXTID_PARAMETER，会将文本库中该ID的文本写入到文本块@8%s@中。
- doValueOld，该参数是变量旧值，值会被写入到值@2%g@中，在audit中会写入到OldValue列中。
- doValueNew，该参数是变量新值，值会被写入到值@3%g@中，在audit中会写入到NewValue列中。
- pszComment，该参数是注释字符串，如果dwFlags参数为FLAG_COMMENT_PARAMETER，该字符串会写入到报警的注释中，写入到Audit的Reason列。
返回值：
|
值 |
描述 |
|
0 |
函数执行完成没有任何错误 |
|
-101 |
消息不能被编辑 |
|
-201 |
当调用“MSRTGetComment()”特征引发一个错误 |
|
-301 |
当调用“MSRTCreateMsgInstanceWithComment()”特征引发一个错误 |
GCreateMyOperationMsg()函数生成的消息文本中未使用文本块@7%s@，我们参考GCreateMyOperationMsg函数进行修改，重新创建一个操作员消息函数GCreateMyOperationMsg2()，该函数值用lpszMsg参数代替lpszPictureName参数，lpszMsg参数的值被写入文本块@7%s@中。GCreateMyOperationMsg2()函数配合12508142消息使用。
函数原型：
int GCreateMyOperationMsg2( DWORD dwFlags, DWORD dwMsgNum, char* lpszMsg, char* lpszObjectName, DWORD dwMyTextID, double doValueOld, double doValueNew, char* pszComment)
参数：
- lpszMsg，该参数记录操作消息，会写入文本块@7%s@中。
- 其他参数与GCreateMyOperationMsg()函数一致。
函数代码：
#pragma code ("kernel32.dll")
void GetLocalTime( LPSYSTEMTIME lpSystemTime);
BOOL GetComputerNameA(LPSTR Computername, LPDWORD size);
VOID Sleep(DWORD dwMilliseconds); //RQ:1072746
#pragma code()
#define FLAG_COMMENT_PARAMETER 0x00000001
#define FLAG_COMMENT_DIALOG 0x00000003
#define FLAG_TEXTID_PARAMETER 0x00000100
int GCreateMyOperationMsg2( DWORD dwFlags, DWORD dwMsgNum, char* lpszMsg, char* lpszObjectName, DWORD dwMyTextID, double doValueOld, double doValueNew, char* pszComment )
{
MSG_RTDATA_INSTANCECOMMENT_STRUCT MsgCreateEx;
MSG_RTDATA_STRUCT MsgRTData; // for comment dialog
CMN_ERROR scError;
int iRet= FALSE;
DWORD dwServiceID = 0;
BOOL bOK;
SYSTEMTIME time;
DWORD dwBufSize = 256;
char szComputerName[256] = "";
char szSource[256] = "";
char szMyText[MSG_MAX_TB_CONTENT + 1] = "";
char szTmp[256] = ""; // for diagnosis output
char* pszPrefix; // to define the type of WinCC project
char* lpszCurrentUser;
char* lpszParent;
char * pszServerPrefix;
//RQ:1072746 begin
DWORD dwMaxCheckTime = 5000; // max time to wait 5000ms=5sec.
DWORD dwStepCheckTime = 500; // start stepping waittime with 500ms
DWORD dwReduceStepTime = 100; // reduce the steptime here by 100ms
DWORD dwActWaitedTime = 0;
DWORD dwInx = 0;
//RQ:1072746 end
printf("Start GCreateMyOperationMsg \r\n");
//======================================
// INIT_MESSAGE_STRUCT
//======================================
memset(&MsgCreateEx,0,sizeof(MsgCreateEx));
memset(&MsgRTData,0,sizeof(MsgRTData));
memset(&scError,0,sizeof(scError));
GetLocalTime(&time);
MsgCreateEx.stMsgTime = time;
MsgRTData.stMsgTime = time;
MsgCreateEx.dwMsgNr = dwMsgNum;
MsgRTData.dwMsgNr = dwMsgNum;
MsgCreateEx.wPValueUsed = (WORD)(0x0000 ); // no real process value used
MsgRTData.wPValueUsed = (WORD)(0x0000 );
MsgCreateEx.wTextValueUsed = 0x001F; // text values 1 .. 5 used for textblocks 1 .. 5
MsgRTData.wTextValueUsed = 0x001F; // text values 1 .. 5 used for textblocks 1 .. 5
MsgCreateEx.dwFlags = MSG_FLAG_TEXTVALUES;
MsgRTData.dwFlags = MSG_FLAG_COMMENT | MSG_FLAG_TEXTVALUES;
MsgCreateEx.dwMsgState = MSG_STATE_COME;
MsgRTData.dwMsgState = MSG_STATE_COME;
GetComputerNameA(szComputerName, &dwBufSize);
sprintf(szTmp, "Computername = %s \r\n", szComputerName);
printf(szTmp);
strncpy(MsgCreateEx.szComputerName, szComputerName, sizeof(MsgCreateEx.szComputerName) -1);
lpszCurrentUser = GetTagChar("@NOP::@CurrentUser");
if (NULL != lpszCurrentUser )
{
strncpy( MsgCreateEx.szUser, lpszCurrentUser, sizeof (MsgCreateEx.szUser) - 1);
}
if ( dwFlags & FLAG_TEXTID_PARAMETER)
{
MsgCreateEx.dPValue[7] = dwMyTextID; // TextID
MsgCreateEx.wPValueUsed = 0x0080; // for process value 8
}
MsgCreateEx.wPValueUsed = (WORD)(MsgCreateEx.wPValueUsed | 0x0006);
MsgCreateEx.dPValue[1] = doValueOld; // old value
MsgCreateEx.dPValue[2] = doValueNew; // new value
//======================================
// START_MESSAGE_SERVICE
//======================================
memset(&scError,0,sizeof(scError));
// GetServerPrefix to determine MC or Server
GetServerTagPrefix(&pszServerPrefix, NULL, NULL); //Return-Type: void
if (NULL == pszServerPrefix)
{
printf("Serverapplication or Single Client\r\n");
bOK = MSRTStartMsgService( &dwServiceID, NULL, NULL, 0, NULL, &scError ); // activate service
}
else
{
printf("MultiClient with Prefix : %s\r\n",pszServerPrefix); //Return - Type :char*
bOK = MSRTStartMsgServiceMC( &dwServiceID, NULL, NULL, 0, NULL,pszServerPrefix, &scError ); // activate service
}
if (bOK == FALSE)
{
printf("GCreateMyOperationMsg() - Unable to start message service! \r\n");
sprintf(szTmp, " Error1 = 0x%0x, Errortext = %s \r\n", scError.dwError1, scError.szErrorText);
printf(szTmp);
return (-101);
}
//======================================
//======================================
// PARSE PARAMETERS
//======================================
if ( ( dwFlags & FLAG_COMMENT_PARAMETER ) && ( NULL != pszComment ) )
{
strncpy(MsgCreateEx.szComment, pszComment, sizeof (MsgCreateEx.szComment) - 1);
MsgCreateEx.dwFlags |= MSG_FLAG_COMMENT;
}
if ( dwFlags & FLAG_COMMENT_DIALOG )
MsgCreateEx.dwFlags |= MSG_FLAG_COMMENT;
if (lpszObjectName!= NULL) // = tagname
{
strncpy (szSource, lpszObjectName, sizeof (lpszObjectName) - 1);
strncpy ( MsgCreateEx.szInstance, lpszObjectName, sizeof (MsgCreateEx.szInstance) - 1);
strncpy ( MsgCreateEx.mtTextValue[0].szText, lpszObjectName, sizeof (MsgCreateEx.mtTextValue[1].szText) - 1);
}
if ( szMyText != NULL)
{
strncpy ( MsgCreateEx.mtTextValue[1].szText, szMyText , sizeof (MsgCreateEx.mtTextValue[1].szText) - 1);
}
if ( lpszMsg != NULL)
{
strncpy ( MsgCreateEx.mtTextValue[6].szText, lpszMsg , sizeof (MsgCreateEx.mtTextValue[6].szText) - 1);
}
//======================================
//======================================
// CREATE MESSAGE
//======================================
bOK = MSRTCreateMsgInstanceWithComment(dwServiceID, &MsgCreateEx, &scError) ;
if ( TRUE == bOK)
{
if (FLAG_COMMENT_DIALOG == (dwFlags & FLAG_COMMENT_DIALOG) )
{
BOOL bOkay;
HWND hWnd = FindWindow("PDLRTisAliveAndWaitsForYou", NULL);
//RQ:1072746 begin
MSG_COMMENT_STRUCT mComment;
sprintf( mComment.szUser, MsgCreateEx.szUser, sizeof(mComment.szUser) - 1 );
for (dwInx = 1;
dwActWaitedTime < dwMaxCheckTime;
dwInx++)
{
memset(&scError,0,sizeof(scError));
mComment.dwMsgNr = dwMsgNum;
mComment.stTime = time;
bOkay = MSRTGetComment (dwServiceID, &mComment, &scError);
if (TRUE == bOkay)
{
break;
}
else
{
Sleep(dwStepCheckTime);
printf("#W401: GCreateMyOperationMsg(): pre MSRTGetComment() performance warning: waited=%ld / step=%ld/ round=%ld\r\n", dwActWaitedTime+dwStepCheckTime, dwStepCheckTime, dwInx);
}
dwActWaitedTime += dwStepCheckTime;
if (100 < dwStepCheckTime)
{
dwStepCheckTime -=dwReduceStepTime;
}
}
//RQ:1072746
memset(&scError,0,sizeof(scError));
bOkay= MSRTDialogComment (hWnd, &MsgRTData, &scError);
if (TRUE == bOkay)
{
//MSG_COMMENT_STRUCT mComment; //RQ:1072746
mComment.dwMsgNr = dwMsgNum;
mComment.stTime = time;
sprintf( mComment.szUser, MsgCreateEx.szUser, sizeof(mComment.szUser) - 1 );
memset(&scError,0,sizeof(scError));
bOkay = MSRTGetComment (dwServiceID, &mComment, &scError);
if (TRUE == bOkay)
{
strncpy(MsgCreateEx.szComment, mComment.szText, sizeof (MsgCreateEx.szComment) - 1);
}
}
else
{
printf("#E201: GCreateMyOperationMsg() - Error at MSRTGetComment() szErrorText=\"%s\" error2=%d\r\n", scError.szErrorText, scError.dwError2);
iRet = -201;
}
}
}
if(bOK == FALSE)
{
printf ("#E301: GCreateMyOperationMsg() - Error at MSRTCreateMsgInstanceWithComment() szErrorText=\"%s\"\r\n", scError.szErrorText);
iRet = -301;
}
//======================================
//======================================
// STOP_MESSAGE_SERVICE
//======================================
bOK= MSRTStopMsgService( dwServiceID, &scError);
printf("End GCreateMyOperationMsg \r\n");
return (iRet);
}
C脚本操作员消息函数二次封装
在不要电子签名只需记录操作消息的地方，为了更方便使用，对函数进行二次封装为函数CreateMyOpMsg()。
函数原型：
int CreateMyOpMsg(char* lpszMsg, char* lpszdevice）
参数：
- lpszMsg，该参数记录操作消息，写入文本块@7%s@中。
- lpszdevice，该参数为设备名，写入到文本块@10%s@中。
返回值：
|
值 |
描述 |
|
0 |
函数执行完成没有任何错误 |
|
-101 |
消息不能被编辑 |
|
-201 |
当调用”MSRTGetComment()”特征引发一个错误 |
|
-301 |
当调用”MSRTCreateMsgInstanceWithComment()”特征引发一个错误 |
函数代码：
#include "apdefap.h"
int CreateMyOpMsg(char* lpszMsg, char* lpszdevice）
{
char userComm[1024]="";
return GCreateMyOperationMsg2(0x00000001 ,12508142 , lpszMsg, lpszdevice, 0, 0 , 0 , userComm); //Return-Type: long int
}
用VB脚本生成操作员消息
使用VB脚本创建操作员消息的脚本如下：
\'创建操作员消息 dim myAlarm Set myAlarm = HMIRuntime.Alarms(12508142) MyAlarm.State = 5 \'-------------------------- \'State Alarm Log Status \'1 Came In \'2 Went Out \'5 Came in and comment \'6 Gone and comment \'-------------------------- myAlarm.Comment = userComment myAlarm.UserName = userName myAlarm.ProcessValues(10) = Device myAlarm.ProcessValues(7) = Msg MyAlarm.Create
注意：使用VBS生成的操作员消息，在报警记录中没有计算机名。
VB脚本操作员消息函数二次封装
在不要电子签名只需记录操作消息的地方，为了更方便使用，对函数进行二次封装为函数CreateMyOpMsg()。
函数原型：
Function CreateMyOpMsg(inputMsg, device)
参数：
- inputMsg，该参数记录操作消息，写入文本块@7%s@中。
- device，该参数为设备名，写入到文本块@10%s@中。
返回值：
无
函数代码：
Function CreateMyOpMsg(inputMsg, device)
\'创建操作员消息
dim myAlarm
Set myAlarm = HMIRuntime.Alarms(12508142)
MyAlarm.State = 5
\'--------------------------
\'State Alarm Log Status
\'1 Came In
\'2 Went Out
\'5 Came in and comment
\'6 Gone and comment
\'--------------------------
myAlarm.Comment = userComment
myAlarm.UserName = userName
myAlarm.ProcessValues(10) = Device
myAlarm.ProcessValues(7) = inputMsg
MyAlarm.Create
End Function
如何生成电子签名
C脚本执行电子签名
函数原型：
int EsigDialog(const char * inputMsg, const char * device)
参数：
- inputMsg，该参数为执行该操作的描述字符串，写入到文本块@7%s@中。
- device，该参数为设备名，写入到文本块@10%s@中。
返回值：
| 值 | 描述 |
| -1 | 函数执行遇到错误 |
| 1 | 电子签名通过 |
| 2 | 用户取消了电子签名 |
| 3 | 三次电子签名未通过 |
注意：
该函数依赖函数GCreateMyOperationMsg2()
函数代码：
#include "apdefap.h"
int EsigDialog(const char * inputMsg, const char * device)
{
//获取用户名和计算机名
char *userName = GetTagChar("@NOP::@CurrentUser"); //Return-Type: char*
char *displayedUser = GetTagChar("@NOP::@CurrentUserName"); //Return-Type: char*
char *computerName = GetTagChar("@NOP::@LocalMachineName"); //Return-Type: char*
char *Domain = ""; //如果加入了域，在此填写域名
int nRet = 0;
char szBuf[1024]="";
char myComm[1024]="";
char userComm[1024]="";
VARIANT vtComment;
__object* EsigDlg;
/*---判断用户是否登录---*/
if (strlen(userName) == 0) {
MessageBox(NULL,"用户未登录，请登录后再执行！","Error",MB_SYSTEMMODAL|MB_OK);
return -1;
}
/*---电子签名---*/
EsigDlg = __object_create("CCESigDlg.ESIG");
if (!EsigDlg) {
printf("Failed to create Picture Object\n");
return -1;
}
EsigDlg->forcecomment = FALSE; //非强制注释
nRet = EsigDlg->ShowDialog(userName,displayedUser,Domain,GetLanguage(),&vtComment);
__object_delete(EsigDlg);
/*---提取注释---*/
sprintf(userComm,"%ls",vtComment.u.bstrVal);
VariantClear(&vtComment);
/*---合并注释---*/
/*
if (strlen(inputMsg)>0 && strlen(userComm)>0) {
sprintf(myComm,"%s:%s", inputMsg, userComm);
}
else if (strlen(inputMsg)>0) {
sprintf(myComm,"%s", inputMsg);
}
else if (strlen(userComm)>0) {
sprintf(myComm,"%s", userComm);
}
*/
switch(nRet)
{
case 1:
//InsertAuditEntryNew("","",myComm,0,szBuf);
GCreateMyOperationMsg2(0x00000001, 12508142, inputMsg, device, 0, 0, 0, userComm); //Return-Type: long int
break;
case 2:
break;
case 3:
break;
}
return nRet;
}
C脚本执行电子签名并写入变量新值：
函数原型：
int TagNewValueES(const char *winccTagName,double newValue, const char *description, const char *device)
参数：
- winccTagName，该参数为WinCC变量名，与参数description拼接后写入到文本块@7%s@中。
- newValue，该参数为要写入的新值，只能为数值，不支持字符串，写入到数值块@3%g@中。
- description，该参数为变量描述，说明该变量的含义，与参数winccTagName拼接后写入到文本块@7%s@中。
- device，该参数为设备名，写入到文本块@10%s@中。
返回值：
| 值 | 描述 |
| -1 | 函数执行遇到错误 |
| 1 | 电子签名通过 |
| 2 | 用户取消了电子签名 |
| 3 | 三次电子签名未通过 |
注意：
该函数依赖函数GCreateMyOperationMsg2()
函数代码：
#include "apdefap.h"
int TagNewValueES(const char *winccTagName,double newValue, const char *description, const char *device)
{
//获取用户名和计算机名
char *userName = GetTagChar("@NOP::@CurrentUser"); //Return-Type: char*
char *displayedUser = GetTagChar("@NOP::@CurrentUserName"); //Return-Type: char*
char *computerName = GetTagChar("@NOP::@LocalMachineName"); //Return-Type: char*
char *Domain = "" //如果加入了域，在此填写域名
int nRet = 0;
char szBuf[1024]="";
char myComm[1024]="";
char userComm[1024]="";
char tagDescription[1024]="";
double oldValue;
VARIANT vtComment;
__object* EsigDlg;
/*---判断用户是否登录---*/
if (strlen(userName) == 0) {
MessageBox(NULL,"用户未登陆，请登陆后再执行!","Error",MB_SYSTEMMODAL|MB_OK);
return -1;
}
/*---电子签名---*/
EsigDlg = __object_create("CCESigDlg.ESIG");
if (!EsigDlg) {
printf("Failed to create Picture Object\n");
return -1;
}
EsigDlg->forcecomment = FALSE; //非强制注释
nRet = EsigDlg->ShowDialog(userName,displayedUser,Domain,GetLanguage(),&vtComment);
__object_delete(EsigDlg);
/*---提取注释---*/
sprintf(userComm,"%ls",vtComment.u.bstrVal);
VariantClear(&vtComment);
/*---合并注释---*/
/*
if (strlen(description)>0 && strlen(userComm)>0) {
sprintf(myComm,"%s:%s", description, userComm);
}
else if (strlen(description)>0) {
sprintf(myComm,"%s", description);
}
else if (strlen(userComm)>0) {
sprintf(myComm,"%s", userComm);
}
*/
switch(nRet)
{
case 1:
//获取旧值
//strcpy(oldValue,GetTagChar(winccTagName));
oldValue = GetTagDouble(winccTagName); //Return-Type: double
//写入新值
//SetTagChar(winccTagName,newValue);
SetTagDouble(winccTagName,newValue); //Return-Type: BOOL
//创建操作员消息
//InsertAuditEntryNew(oldValue,newValue,myComm,0,szBuf);
sprintf(tagDescription,"%s %s", winccTagName, description);
GCreateMyOperationMsg2(0x00000001 ,12508141 , tagDescription, device, 0, oldValue , newValue , userComm); //Return-Type: long int
break;
case 2:
break;
case 3:
break;
}
return nRet;
}
VB脚本执行电子签名
函数原型：
Function EsigDialog(inputMsg, device)
参数：
- inputMsg，该参数为执行该操作的描述字符串，写入到文本块@7%s@中。
- device，该参数为设备名，写入到文本块@10%s@中。
返回值：
| 值 | 描述 |
| -1 | 函数执行遇到错误 |
| 1 | 电子签名通过 |
| 2 | 用户取消了电子签名 |
| 3 | 三次电子签名未通过 |
函数代码：
Function EsigDialog(inputMsg, device)
\'获取用户名和计算机名
Dim userName, displayedUser, Domain, computerName
userName = HMIRuntime.Tags("@NOP::@CurrentUser").Read
displayedUser = HMIRuntime.Tags("@NOP::@CurrentUserName").Read
computerName = HMIRuntime.Tags("@NOP::@LocalMachineName").Read
Domain = ""
If userName = "" Then
Msgbox "用户未登陆，请登陆后再执行"
EsigDialog = -1
Exit Function
End If
\'电子签名
Dim myEsig
Dim myComment
Dim userComment
Dim ret
Set myEsig = CreateObject("CCEsigDlg.ESIG")
\'不强制注释
myEsig.forcecomment = False
ret = myEsig.showDialog(userName,displayedUser,Domain, HMIRuntime.Language, userComment)
\' If Trim(inputMsg)<>"" And Trim(userComment)<>"" Then
\' myComment = inputMsg&":"&userComment
\' Elseif Trim(inputMsg)<>"" Then
\' myComment = inputMsg
\' Elseif Trim(userComment)<>"" Then
\' myComment = userComment
\' Else
\' myComment = ""
\' End If
Select Case ret
Case 1 \'用户成功获得验证
\'Call InsertAuditEntryNew("", "", myComment, 0)
\'创建操作员消息
dim myAlarm
Set myAlarm = HMIRuntime.Alarms(12508142)
MyAlarm.State = 5
\'--------------------------
\'State Alarm Log Status
\'1 Came In
\'2 Went Out
\'5 Came in and comment
\'6 Gone and comment
\'--------------------------
myAlarm.Comment = userComment
myAlarm.UserName = userName
myAlarm.ProcessValues(10) = device
myAlarm.ProcessValues(7) = inputMsg
MyAlarm.Create
Case 2 \'用户使用“取消”按钮关闭了对话框。
Case 3 \'用户 3 次验证均失败。
End Select
EsigDialog = ret
End Function
VB脚本执行电子签名并写入新值
函数原型：
Function TagNewValueES(WinccTagName,NewValue,description,device)
参数：
- winccTagName，该参数为WinCC变量名，与参数description拼接后写入到文本块@7%s@中。
- newValue，该参数为要写入的新值，只能为数值，不支持字符串，写入到数值块@3%g@中。
- description，该参数为变量描述，说明该变量的含义，与参数winccTagName拼接后写入到文本块@7%s@中。
- device，该参数为设备名，写入到文本块@10%s@中。
返回值：
| 值 | 描述 |
| -1 | 函数执行遇到错误 |
| 1 | 电子签名通过 |
| 2 | 用户取消了电子签名 |
| 3 | 三次电子签名未通过 |
函数代码：
Function TagNewValueES(WinccTagName,NewValue,description,device)
\'获取用户名和计算机名
Dim userName, displayedUser, Domain, computerName
userName = HMIRuntime.Tags("@NOP::@CurrentUser").Read
displayedUser = HMIRuntime.Tags("@NOP::@CurrentUserName").Read
computerName = HMIRuntime.Tags("@NOP::@LocalMachineName").Read
Domain = ""
If userName = "" Then
Msgbox "用户未登陆，请登陆后再执行"
TagNewValueES = -1
Exit function
End If
\'电子签名
Dim myEsig
Dim myComment
Dim userComment
Dim ret
Set myEsig = CreateObject("CCEsigDlg.ESIG")
\'不强制注释
myEsig.forcecomment = False
ret = myEsig.showDialog(userName,displayedUser, Domain, HMIRuntime.Language, userComment)
\' If Trim(description)<>"" And Trim(userComment)<>"" Then
\' myComment = description&":"&userComment
\' Elseif Trim(description)<>"" Then
\' myComment = description
\' Elseif Trim(userComment)<>"" Then
\' myComment = userComment
\' Else
\' myComment = ""
\' End If
Select Case ret
Case 1 \'用户成功获得验证
\'获取变量旧值
dim OldValue, WinCCTag
Set WinCCTag = HMIRuntime.Tags(WinccTagName)
OldValue = WinCCTag.read
\'给变量写入新值
WinCCTag.Write NewValue
If WinCCTag.LastError <> 0 Then
Msgbox WinCCTag.ErrorDescription
TagNewValueES = -1
Exit Function
End If
\'创建操作员消息
dim myAlarm
set myAlarm = HMIRuntime.Alarms(12508141) \'@10%s@: @7%s@ @102%s@ 新=@3%g@ @8%s@ 旧=@2%g@ @8%s@\'
MyAlarm.State = 5
\'--------------------------
\'State Alarm Log Status
\'1 Came In
\'2 Went Out
\'5 Came in and comment
\'6 Gone and comment
\'--------------------------
myAlarm.Comment = userComment
myAlarm.UserName = userName
myAlarm.ProcessValues(2) = OldValue\'旧值
myAlarm.ProcessValues(3) = NewValue\'新值
myAlarm.ProcessValues(7) = WinccTagName &" "&description \'变量名+变量描述
myAlarm.ProcessValues(10) = device\'设备名
MyAlarm.Create
\'InsertAuditEntryNew(OldValue, NewValue, myComment, 0)
Case 2 \'用户使用“取消”按钮关闭了对话框。
Case 3 \'用户 3 次验证均失败。
End Select
TagNewValueES = ret
End Function
版权声明：本文为yada原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。