WINCC常用 脚本

----------------------------------------------
11、在画面中显示用户名
1.组态静态文本
2.字体属性中的文本,连接系统变量@CurrentUser
----------------------------------------------
（2）新密码设置（C）
SetOutputValueChar(lpszPictureName,lpszObjectName,GetInputValueChar(lpszPictureName,lpszObjectName));
注：字符串格式的输入输出域》事件》属性主题》输出/输入》输出值》更改》以上代码。
{
MessageBox (Handle, "新密码和旧密码不能相同 !", "请重新输入密码", MB_OK |
MB_ICONEXCLAMATION | MB_SYSTEMMODAL);
}
else
{
// this 2 lines are necessary to get the DSN-Name of the project
a=MsgBox("hello!",vbYesNo)
If vbYes=a Then
objCon2.text="ok" '如点击是，则按钮文本变为ok
Else
objCon2.text="no" '如点击否，则按钮文本变为no
End If
注：放置按钮，起名按钮1.
----------------------------------------------
if ( nChar==13 )//if press enter
{
int xRet = MessageBox(NULL,szBuffer,"确认窗口",MB_YESNO|MB_ICONQUESTION|MB_SYSTEMMODAL);//message
if ( xRet == IDYES )//confirm operate
char *pold_pass=NULL;
char *pnew_pass=NULL;
char *pconfirm=NULL;
char old_pass[51];
char new_pass[51];
char confirm[51];
long int ret;
BOOL ret2;
memset(&pr_info,0,sizeof(DM_PROJECT_INFO));
//Get the differents strings old, new password and confirmation
pold_pass=GetPropChar(lpszPictureName,"IOField_OldPassWord","OutputValue");
pnew_pass=GetPropChar(lpszPictureName,"IOField_NewPassWord","OutputValue");
（4）确认按钮（C）
#pragma code ("usegen.dll")
#include "usegenap.h"
#pragma code ()
HWND Handle;
DM_PROJECT_INFO pr_info;
DM_DIRECTORY_INFO dir_info;
CMN_ERROR error;
----------------------------------------------
4、单键的置位与复位（C）
BOOL Z;
Z=GetTagBit("TAG");
if(Z==0) SetTagBit("TAG",1);
else SetTagBit("TAG",0);
----------------------------------------------
9、通过按钮实现用户登录（C）
#pragma code("useadmin.dll")
#include "PWRT_API.H"
#pragma code()
PWRTLogin('1');
pconfirm=GetPropChar(lpszPictureName,"IOField_Confirmation","OutputValue");
strncpy(old_pass,pold_pass,50);
strncpy(new_pass,pnew_pass,50);
strncpy(confirm,pconfirm,50);
注：1、选中[计算机]，然后在左边选择当前项目的服务器名，双击弹出项目的[计算机属性]对话框。选择最后一栏[运行系统]，里面就有一个[监视器键盘]，用来实现无键盘WinCC全屏运行时数值输入的；
2、如果想使用系统的虚拟键盘，可以用按钮的点击事件的C代码，添加以上代码。
3、如果想要手写输入，就安装Tablet PC面板组建来实现了。
12、WINCC在线修改用户密码
（1）旧密码设置（C）
SetOutputValueChar(lpszPictureName,lpszObjectName,GetInputValueChar(lpszPictureName,lpszObjectName));
注：字符串格式的输入输出域》事件》属性主题》输出/输入》输出值》更改》以上代码。
4、在同一个输入/输出域的事件，选择 键盘--释放--C动作，输入以上代码。
----------------------------------------------
6、VBS弹出提示小窗口（VB）
Dim a
Dim objCon2
Set objCon2 = HMIRuntime.ActiveScreen.ScreenItems("按钮1")
memset(&dir_info,0,sizeof(DM_DIRECTORY_INFO));
//this line is necessary when you want to have a realy modal message box
Handle = FindWindow("PDLRTisAliveAndWaitsForYou",NULL);
（3）新密码确认设置（C）
SetOutputValueChar(lpszPictureName,lpszObjectName,GetInputValueChar(lpszPictureName,lpszObjectName));
注：字符串格式的输入输出域》事件》属性主题》输出/输入》输出值》更改》以上代码。
ret2=DMGetRuntimeProject(pr_info.szProjectFile,sizeof(pr_info.szProjectFile),NULL);
ret2=DMGetProjectInformation(pr_info.szProjectFile,&pr_info,NULL);
{
SetTagWord("DisplayValue",TempValue);// set data
}
}
注：1、DisplayValue是实际需要控制的变量，TempValue作为临时变量使用。
2、新建一个输入/输出域，在输出值处打开动态对话框。选择DisplayValue
3、在同一个输入/输出域的事件，选择 输出/输入--输入值--直接连接 ，选择直接连接到临时变量TempValue
tag=GetTagByte("tag1");
tag=tag-1;
SetTagByte("tag1",tag);
----------------------------------------------
3、颜色改变（VB)
ScreenItems("Rectangle1").BackColor = RGB(255,0,0)
1、变量自加1（C)
int tag;
tag=GetTagByte("tag1");
tag=tag+1;
SetTagByte("tag1",tag);
----------------------------------------------
2、变量自减1（C)
int tag;
ret2=PWGENChangePassword (GetTagChar("@CurrentUser"),old_pass,new_pass,&error);
----------------------------------------------
5、输入/输出域实现带确认的输入操作（C）
int TempValue=GetTagWord("TempValue");
char szBuffer[20];
sprintf( szBuffer,"Input number:%d",TempValue);
MB_ICONEXCLAMATION | MB_SYSTEMMODAL);