WINCC登录设计教程

1、.建立用户内部变量的建立全局脚本函数EnumUser#pragma code ("UseGen.DLL")#include "usegenap.h"#pragma code ()CMN_ERROR err;CMN_ERROR Error;LPCMN_ERROR error;DWORD countname;char usedata;extern BOOL MyPWGENEnumUsersCallBack ( LPWGEN_USERINFO lpUserInfo ,PVOID lpUser);VOID EnumUser()if(PWGENConnect(&q

2、uot;",&err)PWGENEnumUsers (&countname,MyPWGENEnumUsersCallBack,&usedata,error);SetTagSDWord("count",countname);/Return-Type: BOOL printf("Count:%2drn",countname);elseprintf("PWGENConnect Error :%drn",err);全局脚本函数MyPWGENEnumUsersCallBack#pragma code (&quo

3、t;UseGen.DLL")#include "usegenap.h"#pragma code ()BOOL MyPWGENEnumUsersCallBack ( LPWGEN_USERINFO lpUserInfo, PVOID lpUser)static int n=0;if(n=GetTagWord("count")n=1;elsen=n+1;switch(n)case 16:SetTagChar("username16",lpUserInfo->login);break;case 15:SetTagChar(&

4、quot;username15",lpUserInfo->login);break;case 14:SetTagChar("username14",lpUserInfo->login);break;case 13:SetTagChar("username13",lpUserInfo->login);break;case 12:SetTagChar("username12",lpUserInfo->login);break;case 11:SetTagChar("username11"

5、;,lpUserInfo->login);break;case 10:SetTagChar("username10",lpUserInfo->login);break;case 9:SetTagChar("username9",lpUserInfo->login);break;case 8:SetTagChar("username8",lpUserInfo->login);break;case 7 :SetTagChar("username7",lpUserInfo->login);b

6、reak;case 6:SetTagChar("username6",lpUserInfo->login);break;case 5:SetTagChar("username5",lpUserInfo->login);break;case 4:SetTagChar("username4",lpUserInfo->login);break;case 3:SetTagChar("username3",lpUserInfo->login);break;case 2:SetTagChar("

7、;username2",lpUserInfo->login);break;case 1:SetTagChar("username1",lpUserInfo->login);break;return TRUE;画面窗口属性设置登录按钮脚本#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)#pragma code("useadmin.dll")#include &qu

8、ot;PWRT_API.H"#pragma code() SetPropChar("main.pdl","pic_denglu","Captiontext","正在验证,请稍后."); if (PWRTSilentLogin(GetTagChar("usernamestr"),GetTagChar("passwordstr")=TRUE) SetTagBit("Visible1",0);SetTagChar ("passwordstr&

9、quot;, ""); else SetPropChar("main.pdl","pic_denglu","Captiontext","密码不正确,请重新输入");注销按钮脚本#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)#pragma code("

10、;useadmin.dll")#include "PWRT_api.h"#pragma code()PWRTLogout(); /SetTagBit("Visible1",0);/SetTagWord("Picture",0);取消按钮脚本#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)#

11、pragma option(mbcs)SetTagBit("Visible1",0);I/O输入输出域设置VB脚本Sub InputValue_OnPropertyChanged(Byval Item, Byval value) Dim obj1,obj2Set obj1=ScreenItems("I01")Set obj2=HMIRuntime.Tags("passwordstr")'obj2.Write obj1.Text,1End Sub用户登录（画面脚本VB）Sub OnOpen() Dim obj1,obj2,obj

12、3,obj4,obj5,namecount,nDim name1,name2,name3,name4,name5,name6,name7,name8,namestr,userstrSet obj1=ScreenItems("combox1")Set obj2=HMIRuntime.Tags("count")obj2.Read namecount=obj2.Valuen=1Do While (n<namecount+1)namestr="name"&nuserstr="username"&nSe

13、t namestr=HMIRuntime.Tags(""&userstr&"")namestr.Readobj1.AddItem namestr.Valuen=n+1LoopEnd Sub组合框脚本Sub Change(ByVal Item) Dim obj1,obj2Set obj1=ScreenItems("combox1")Set obj2=HMIRuntime.Tags("usernamestr")obj2.Write obj1.Text,1End Sub用户显示备注：AP_PBIB出错#i

14、nclude "AP_GLOB.H"#pragma code ("UseGen.DLL")#include "usegenap.h"#pragma code ()void Delay (long int ms);/GSC_NAME:DelayGSC_PROTOTYPE:delay.fctvoid cc_playsound (char* lpszSoundFile);/GSC_NAME:cc_playsoundGSC_PROTOTYPE:cc_playsound.fctvoid EnumUser ();/GSC_NAME:EnumUserGSC_PROTOTYPE:en