用腳本向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列。
傳回值：
| 值 | 描述 |
| 函數執行完成沒有任何錯誤 | |
| -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()函數一緻。
函數代碼：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 | #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@中。
傳回值：
| 值 | 描述 |
| 函數執行完成沒有任何錯誤 | |
| -101 | 消息不能被編輯 |
| -201 | 當調用"MSRTGetComment()"特征引發一個錯誤 |
| -301 | 當調用"MSRTCreateMsgInstanceWithComment()"特征引發一個錯誤 |
函數代碼：
| 1 2 3 4 5 6 7 | #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腳本建立操作員消息的腳本如下：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | '建立操作員消息 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@中。
傳回值：
無
函數代碼：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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()
函數代碼：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | #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()
函數代碼：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | #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 | 三次電子簽名未通過 |
函數代碼：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | 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 | 三次電子簽名未通過 |
函數代碼：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | 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 |
版權聲明：本文原創發表于部落格園，作者為星墨 本文版權歸作者和部落格園共有，歡迎轉載，但未經作者同意必須保留此段聲明， 且在文章頁面明顯位置給出原文連接配接，否則視為侵權。
原文位址https://www.cnblogs.com/yada/p/11597846.html