wincc7.0用户登录修改密码配置用户退出登陆

效果图 配置用户弹出退出登陆：则当前用户不显示 做此步骤前提：1.建内部变量： “菜单小画面”和“修改密码小画面”；2建立菜单弹出画面和密码修改画面。 按钮菜单属性 新建菜单小画面，里面4项均为按钮；4个释放左键 用户登录修改密码 配置用户vb语言 Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim vbbb Set vbbb=CreateObject("wscript.shell") vbbb.Run("PassCS.exe") set vbbb=nothing EndSub 退出登陆 #include "apdefap.h" void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) {#pragma option(mbcs) #pragma code("useadmin.dll") #include "PWRT_API.H" #pragma code() PWRTLogout();//退出按钮} 1.前提首先建立俩个内部变量：“newpassword”和“oldpassword”。2.“当前用户”、 “原始密码”、 “新建密码”、 “验证密码”、 均为静态文本，这三个为“输入输出域”； 3. 4. 5. 6. 7. 按左键c语言代码#include "apdefap.h" void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) {#pragma option(mbcs) #pragma code("UseGen.dll") #include "USEGENAP.H" #pragma code() LPCMN_ERROR err; //定义的LPCMN_ERROR型变量,在函数调用中需使用 if (PWGENConnect("sanmuredianchang",err)) //建立与数据库的联接,其中sanmuredianchang再控制面板-管理工具-odbc中设置 新建名称并选择 wincc sql server。 {if (PWGENChangePassword(GetTagChar("@CurrentUserName"),GetTagChar("oldpassword"),GetTagChar("newpassword"),err)) {HWND hwnd; MessageBox(hwnd,"密码修改成功0001","提示",MB_OK|MB_SYSTEMMODAL); } else { HWND hwnd; MessageBox(hwnd,"密码修改失败0002","提示",MB_OK|MB_SYSTEMMODAL); } } else { HWND hwnd; MessageBox(hwnd,"密码修改失败0003","提示",MB_OK|MB_SYSTEMMODAL); } PWGENDisconnect(err); //断开与数据库的联接 } 8. QQ2388315704