欢迎来到西门子工业支持中心网站！
欢迎来到西门子工业支持中心网站！
悬赏:
1西币 | 解决时间：2016-01-05 19:09
产品版区：
SIMATIC WinCC
zenchangping
有一个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
提问者对于答案的评价：
这个没有试，不过谢谢啦
在登陆对话框中，写一份脚本。
在脚本中将当前时间写到日子文件中，把用户名、时间等你关心的内容都写入日志。
net_submarine
2016-01-02 10:34
方法1，登录注销时写用户、时间等信息到一个文件中；
方法2，建立一个内部变量，把不同用户用1、2、3的数字来表示，然后用变量归档记录。
=^_^=
2016-01-02 11:28
楼上的强悍啊，学习了
胜邪99
2016-01-03 14:48
现赠您1张1847体验会员卡，可免费领取，畅学1847会员内容，是否领取？
学技术视频
查海量资料
论话题经验
问常见问题
西门子官方商城
自动化系统
我要提问
回答问题
