欢迎来到西门子工业支持中心网站!
欢迎来到西门子工业支持中心网站!
悬赏:1西币 | 解决时间:2016-01-05 19:09
产品版区:
SIMATIC WinCC
zenchangping
zenchangping - 初级技术员  第5级
有一个wincc系统,我建立三个用户,甲方要求wincc能够记录某个用户在莫个时段的登录时间,请问这个功能应该如何才能实现?
小程序:
最佳答案
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set ObjEXceLapp = Nothing
End If
Dim ObjExcelApp1
Set objExcelApp1= CreateObject("Excel.Application")
objExcelApp1.Workbooks.Open fname
Dim j
j=2
Do While objExcelApp1.worksheets ("sheet1").Cells(j, 1).VAlue<>""
j=j+1
Loop
objExcelApp1.worksheets ("sheet1").Cells(j, 1).VAlue =Now
objExcelApp1.worksheets ("sheet1").Cells(j, 2).VAlue = "Login:"
objExcelApp1.worksheets ("sheet1").Cells(j, 3).VAlue = HMIRuntime.Tags("@LocalMachineName").read
objExcelApp1.worksheets ("sheet1").Cells(j, 4).VAlue = HMIRuntime.Tags("@CurrentUser").read
objExcelApp1.worksheets ("sheet1").Cells(j, 5).VAlue = HMIRuntime.Tags("logindate").read
objExcelApp1.worksheets ("sheet1").Cells(j, 6).VAlue = HMIRuntime.Tags("logintime").read
objExcelApp1.ActiveWorkbook.Save
objExcelApp1.Workbooks.Close
objExcelApp1.Quit
Set ObjEXceLapp1 = Nothing
-------------------------------------------------------------------------------------------
全局脚本的触发器就是Login这个变量了。
这个脚本是把所有登陆信息写到Excel表格里面了,这个脚本改改还可以做为数据存储用。
最后附送一个登陆脚本(C语言的):
#pragma code("useadmin.dll")
#include "PWRT_API.H"
#pragma code()
PWRTLogout();
SetTagBit("login",0);
if (PWRTSilentLogin(GetTagChar("user"), GetTagChar("password")))
{
int r;
r=MessageBox(NULL,"Login?","Prompt Dialog Box",MB_YESNO|MB_ICONQUESTION|MB_SYSTEMMODAL);
if (r==6)
{
SetTagChar("logindate",GetTagChar("dates"));
SetTagChar("logintime",GetTagChar("times"));
SetTagBit("login",1);
SetTagBit("logout",0);
OpenPicture("main.Pdl");
}
else
{
PWRTLogout();
SetTagBit("login",0);
}
}
else
{
int t;
t=MessageBox(NULL,"Password Error!","Prompt Dialog Box",MB_OK|MB_ICONWARNING|MB_SYSTEMMODAL);
}
回答者:
loyal
回答时间:2016-01-02 19:17
提问者对于答案的评价:
这个没有试,不过谢谢啦