Dim iEntity,value,EntityNR

Dim listcout

Dim ProNrInt 

    With ScreenItems("Adodc1")

        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Scada6\scada6_$d\YiLi_DataBase\DataBase.mdb;Persist Security Info=False"    

        .RecordSource = "SELECT * FROM tbl实体表 ORDER BY 名称"

        .Refresh

        If Not .Recordset.BOF Then .Recordset.Movefirst        

        Do Until .Recordset.EOF             

            ProNrInt = Int(.Recordset.Fields(0)) 

'            HMIRuntime.Trace "ProNrInt: "  & ProNrInt & vbCrlf    

            ScreenItems("ListEntity").NumberLines = ProNrInt 

            ScreenItems("ListEntity").Index = ProNrInt 

            ScreenItems("ListEntity").Text = .Recordset.Fields(1) '& .Recordset.Fields(2)

            .Recordset.Movenext            

        Loop

        .Recordset.Close                            

    End With

    EntityNR=1

    listcout=ScreenItems("ListEntity").NumberLines

    HMIRuntime.Trace"总数量" & listcout & vbCrlf

        For value = 1 To listcout

            ScreenItems("ListEntity").Index = value

            iEntity=ScreenItems("ListEntity").Text

                If Len(iEntity)<4 And IsNumeric(iEntity) Then

                      'ScreenItems("EntryNR"&EntityNR).BackColor=RGb(218,218,218)

                        'ScreenItems("EntryName"&EntityNR).BackColor=RGb(218,218,218)

                    Else 

                     ScreenItems("EntryNR"&EntityNR).Text = value

                    ScreenItems("EntryName"&EntityNR).Text = ScreenItems("ListEntity").Text

                    ScreenItems("EntryNR"&EntityNR).Visible = True

                       ScreenItems("EntryName"&EntityNR).Visible = True

                    EntityNR=EntityNR + 1

                End If

        Next

改为使用主界面已加载的实体表

Dim iEntity,value,i

Dim listcout

Dim ProNrInt 

    listcout=parent.parent.ScreenItems("ListEntity").NumberLines

    HMIRuntime.Trace"总数量" & listcout & vbCrlf

        For i = 1 To listcout

            parent.parent.ScreenItems("ListEntity").Index = i

            iEntity=parent.parent.ScreenItems("ListEntity").Text

                If Len(iEntity)<4 And IsNumeric(iEntity) Then

                    ScreenItems("EntityNR"&i).BackColor=RGb(218,218,218)

                    ScreenItems("EntityName"&i).BackColor=RGb(218,218,218)

End If

                ScreenItems("EntityNR"&i).Text = i

                ScreenItems("EntityName"&i).Text = iEntity

                ScreenItems("EntityNR"&i).Visible = True

                ScreenItems("EntityName"&i).Visible = True

        Next

    iNum =Mid(Item.Parent.Parent.CaptionText,2,1)

    If iNum = "0" Or iNum = "2" Or iNum = "4" Or iNum = "5" Or iNum = "6" Or iNum = "7" Then 

   Dim  value 

   Dim sPrgName  

   sPrgName = Mid(Item.Parent.Parent.CaptionText,2,4)

   value = CheckLineState(sPrgName)  

   If Not value Then Exit Sub  

End If    

    WritePrgOperiteRecord Item.ObjectName,128,0  

============================================================================

Function CheckLineState(sEntityName) 

Dim sPrgLineC

Dim sPrgLineCA

Dim sUserGroup

sUserGroup = HMIRuntime.Tags("@NOTP::$WorkPost").Read 

     If sUserGroup="管理员"  Then

      CheckLineState =True 

       Exit Function 

     End If

sPrgLineC = HMIRuntime.Tags("@NOTP::L" & sEntityName & ".TankCauTime").Read 

     sPrgLineCA = HMIRuntime.Tags("@NOTP::L" & sEntityName & ".TankCATime").Read

     If sPrgLineC <= 0 Or sPrgLineCA <= 0 Then

       CheckLineState = False

       MsgBox "清洗时间超时",,"提示"

     Else

       CheckLineState =True

     End If

End Function 

        此页面提供了在Microsoft Windows环境中设置Node-RED的详细说明。这些说明适用于Windows 10。它们也可能适用于Windows 7和Windows Server 2008R2及更高版本，但由于缺乏当前支持，不建议使用它们。

快速开始

1. 安装Node.js

从官方Node.js主页下载最新的LTS版本的Node.js。它将为您提供最适合您系统的版本。

运行下载的MSI文件。安装Node.js需要本地管理员权限；如果你不是本地管理员，安装时将要求输入管理员密码。安装时接受默认设置。安装完成后，关闭任何打开的命令提示符并重新打开，以确保新的环境变量被正确读取。

一旦安装后，打开命令提示符并运行以下命令以确保Node.js和npm已正确安装。

使用PowerShell:node --version; npm --version

使用命令：node --version && npm --version

你应该会收到类似于以下内容的输出：

v18.15.09.5.0

2. 安装Node-RED

将 Node-RED 安装为全局模块会将命令 node-red 添加到你的系统路径中。在命令提示符下执行以下操作：

npm install -g --unsafe-perm node-red

3. 运行 Node-RED

一旦安装完成，你就可以运行Node-RED。

在 Windows 上的替代安装

在本节中，我们为您提供在Windows上安装Node.js、npm和Windows Build Tools的替代安装方式，这些工具是安装Node-RED所需的一些Node的。

在Windows上标准安装Node.js需要本地管理员权限。从官方Node.js主页下载合适的版本。它会向您推荐最佳版本。虽然在64位Windows上可以使用32位或64位版本，但建议使用64位版本的Node。如果由于某些原因，您需要不同的安装，您可以使用下载页面。

有俩个安装Node.js的MSI安装程序的潜在有用替代方案。

1. 使用 Chocolatey 包管理器

   Chocolatey 是一个类似于 Linux 上的 APT 或 yum 以及 Macintosh 平台上的 brew 的 Windows 包管理器。如果你已经在使用 Chocolatey，你可能想使用这个工具来安装 Node.js（例如，使用 nodejs-lts 包）。然而，请注意，许多包的管理是不确定的，这些包可能使用不同于上述提到的文件夹位置。

2. 使用Node版本管理器

   使用Node.js版本管理器，例如nvm-windows，如果你在进行Node.js开发并需要测试不同版本的话，将非常有帮助。请注意，当你切换使用的Node版本时，你可能需要重新安装全局包，并且可能需要重新安装本地包。

npm 在 Windows 上

当您安装Node.js时，您也在安装npm包管理器。您可能会在网上看到一些建议安装比Node.js发行版附带的更新版本npm的说明。 不推荐这样做，因为很容易后来使用不兼容的版本。Node.js发行版非常规律，这足以使npm保持更新。

在用户之间共享Node-RED

Node.js 被安装到 Program Files 文件夹，这是你所期望的。然而，如果你使用 安装全局 包 像 Node-RED，它被安装到 文件夹 ( 使用 cmd) 对于 当前 用户。如果你在一个有多用户登录的 PC 或服务器上使用管理员登录而不是将要运行 Node 应用程序（如 Node-RED）的用户的登录进行安装，这就不那么有帮助了。npm -g$env:APPDATA\npm%APPDATA%\npm

要解决此问题，请给该文件夹的其他用户分配权限，并确保该文件夹包含在他们的path用户环境变量中。

或者，将全局文件位置更改为其他用户可以访问的位置。确保使用将运行Node-RED的用户进行这些更改。例如，将位置更改为$env:ALLUSERSPROFILE\npmglobal 使用PowerShell：

mkdir $env:ALLUSERSPROFILE\npmglobalnpm config set prefix $env:ALLUSERSPROFILE\npmglobal

然后您还需要更改npm缓存文件夹：

mkdir $env:ALLUSERSPROFILE\npmglobal-cachenpm config set cache $env:ALLUSERSPROFILE\npmglobal-cache --global

如果使用上述更改，您可以将新的前缀文件夹添加到PATH系统变量，并从用户的Path变量中删除旧文件夹。要更改PATH环境变量，请在开始菜单或Cortana中输入environment，然后选择编辑环境变量。

对于每个运行Node-RED的用户，请检查其他用户的上述设置是否正确。

安装Node.js Windows构建工具

许多 Node.js 模块在 Node-RED 或已安装的节点中使用了二进制组件，这些组件在 Windows 上工作之前需要编译。要使 npm 在 Windows 平台上编译二进制文件，请以管理员身份使用命令提示符安装 windows-build-tools 模块：

npm install --global --production windows-build-tools

如果您希望使用内置的Python v2.7安装，请使用以下命令：

npm install --global --production --add-python-to-path windows-build-tools

在 Windows 上运行

一旦安装，运行Node-RED的简单方法是使用命令提示符中的node-red命令： 如果你将Node-RED安装为全局npm包，你可以使用Node-RED命令：

C:>node-red

这将把Node-RED的日志输出到终端。为了使Node-RED继续运行，您必须保持终端打开。

请注意，运行Node-RED将在你的%HOMEPATH%文件夹中创建一个名为.node-red的新文件夹。这是你的userDir文件夹，可以将其视为当前用户Node-RED配置的主文件夹。在文档中，你经常看到它被提到为~/.node-red。~是Unix-like系统中用户主文件夹的缩写。如果你推荐使用PowerShell作为命令行工具，可以使用相同的引用。如果你使用的是较旧的cmd外壳，那将无法工作。

现在你可以创建你的第一个流程。

使用 PM2

如果您正在使用 Windows 开发 Node-RED 流或节点，您可能会发现使用 PM2 来运行 Node-RED 会很有帮助。这可以配置为在文件更改时自动重启，始终保持 Node-RED 运行并管理日志输出。

在启动时运行Node-RED

如果你想在 Windows 上使用 Node-RED 作为生产平台，你将需要设置一个 Windows 任务计划程序任务。为此：

1. 转到开始菜单，输入“任务计划程序”，然后点击结果。

2. 点击右侧菜单中的“创建任务...”。按照步骤创建一个新任务。

确保您使用的是用于设置和首次运行Node-RED的用户登录。您可以使用“系统启动时”触发器，以便在系统启动时总是运行Node-RED。使用“启动程序”操作，并将详细信息设置为C:\Users\<user>\AppData\Roaming\npm\node-red.cmd（将<user>替换为您的实际用户名）。

您可能希望确保只有在网络可用时才启动。您还可能希望在作业失败时重新启动。也许每分钟重新启动，但最多只有3次 - 如果到那时还无法启动，错误是致命的，需要其他干预。您可以通过查看事件日志来检查失败。如果您在这种方式下运行时需要访问日志，您应该修改node-red.cmd文件将标准和错误输出重定向到文件（创建一个替代启动文件会更好，这样在更新时不会被覆盖）。

问题过程

在安装Intouch2017时，安装到用户协议界面，不能显示用户协议，也不能点击下一步！

解决方案

替代解决方案

    reg add "HKLM\SOFTWARE\Microsoft\.NETFramework\Windows Presentation Foundation\XPSAllowedTypes" /v "DisableDec2022Patch" /t REG_SZ /d "*" /reg:64

.\kb5022083-compat.ps1 : 无法加载文件 C:\Users\XZB\Desktop\kb5022083-compat.ps1，因为在此系统上禁止运行脚本。有关详细信 息，请参阅 https:/go.microsoft.com/fwlink/?LinkID=135170 中的 about_Execution_Policies。 所在位置 行:1 字符: 1 + .\kb5022083-compat.ps1 -Install + ~~~~~~~~~~~~~~~~~~~~~~    + CategoryInfo          : SecurityError: (:) []，PSSecurityException    + FullyQualifiedErrorId : UnauthorizedAccess

截图如下：

PowerShell授权

补丁安装

运行如下

再次安装，提示安装完成

链接: https://pan.baidu.com/s/10dO8m5c6a-BWp4s9rL_6tg 

（09）TIA_Portal_V19_HSP

链接: https://pan.baidu.com/s/1XHspk4yJXGJWjpe-fO2PcA 

（08）TIA_Portal_V18_HSP

链接: https://pan.baidu.com/s/1NnrHbKtOD6PngM80mGXMSw 

（07）TIA_Portal_V17_HSP

链接: https://pan.baidu.com/s/18-jZuHIaU7j6nk0or_8DYw 

（06）TIA_Portal_V16_HSP

链接: https://pan.baidu.com/s/11psGvPahh7_Q6QL_IHB8Zg 

（05）TIA_Portal_V15_HSP

链接: https://pan.baidu.com/s/1fpeZk1oL-cLUECrHTdlLvg 

（04）TIA_Portal_V14_HSP

链接: https://pan.baidu.com/s/1qZGb8PoFdrFU-s5_oEYmAw 

（03）TIA_Portal_V13_HSP

链接: https://pan.baidu.com/s/1XpQjHi0i21x4AkjSHCFTQQ 

（02）TIA_Portal_V12_HSP

链接: https://pan.baidu.com/s/1SLx2AoVCcJ0tsIp2RR2v7g 

（01）TIA_Portal_V11_HSP

链接: https://pan.baidu.com/s/1Y4ZKVsvsJcti7AJaD-WXpQ 

https://pan.baidu.com/s/1qJiNGVGuLnjMO1A1Nq0tvA

3.62.11-FTActivation

https://pan.baidu.com/s/11by70h0PSmU47WZQYrBRCg

4.00.02-FTActivation

https://pan.baidu.com/s/1TTIWl1pRNifWNUlLeSfgaA

4.01.00-FTActivation

https://pan.baidu.com/s/14-rUeoXjHSaxKhczyz2Klg

4.02.00-FTActivation

https://pan.baidu.com/s/1eYirmF1ZprQPyFYQzMwRSw

4.03.11-FTActivation

https://pan.baidu.com/s/1zHvdZuVEBFN42TxveGG6WQ

4.04.14-FTActivation

https://pan.baidu.com/s/1P3iMnmfWxDd7YmAf3p1JQQ

4.04.16-FTActivation

https://pan.baidu.com/s/18EJTF3Cg1jgoZAGYbF2RcQ

4.05.01-FTActivation

https://pan.baidu.com/s/1QE2ry7GNRt2luD1gbycevg

4.05.04-FTActivation

https://pan.baidu.com/s/1Lv8miqxMtPlhyVTv-J5zjw

4.06.13-FTActivation

https://pan.baidu.com/s/1HyKOlcBmTGyM6EoZamSolg

5.00.12-FTActivation

https://pan.baidu.com/s/1qpyturZy3tmiCAnKT15iMg

5.00.13-FTActivation

https://pan.baidu.com/s/1stmBEYngUCpwCJBKf19eew

后来手动输入地址后，显示如下：数据库 'master' 中拒绝了 CREATE DATABASE 权限

查询是因为新建用户未分配权限

需要勾选sysadmin，指定为系统用户

注意：更改权限时使用Windows身份验证登录

1、准备好WIN10系统、WINCC7.5、NetVideoActiveX23开发包、iVMS-4200客户端。

2、连接海康摄像头，确认IP地址、设备名称、密码以及是否正常显示画面使用控件包中inf安装文件将空间导入C盘windows文件夹。

IE画面(实际用360浏览器兼容模式也可以)

6、把NetVideoActiveX23.ocx拷贝到C:WINDOWSSysWOW64路径（因为上面已经用inf安装文件啦，这里不拷也行）

Sub OnClick(ByVal Item)  
Dim cam,msg,msg2,msg3
    Set cam=ScreenItems("控件1")
    msg=cam.Login("169.254.28.68",8000,"admin","159357.000")
    If msg=0 Then
        msg2=cam.StartRealPlay(0,0,0)
        msg3=cam.StartRecord("C:viedo")
    End If
End Sub

1. 1‌、关闭应用商店自动更新‌：通过Windows 10自带的应用商店，进入设置界面，关闭“应用自动更新”选项，以减少wsappx进程的运行频率，从而降低内存占用‌。

2. ‌2、停止相关服务‌：通过服务管理器（services.msc）手动停止“Client License Service”和“AppX Deployment Service”这两个服务。如果服务管理器中的AppX Deployment Service无法关闭，可以通过修改注册表来解决。具体步骤是：打开注册表编辑器（regedit），导航到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\AppXSvc，将start的值由3更改为4，以禁用该服务‌。

3. 3‌、修改注册表‌：如果服务管理器的AppX Deployment Service无法关闭，可以通过修改注册表来解决。具体步骤是：打开注册表路径HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\AppXSvc，双击右侧的start，把值由3改为4，然后重启计算机。如果需要再次启用该功能，将值改回3即可‌。

4. ‌4、检查/清理磁盘内部错误‌：使用专业的磁盘管理工具进行检查和清理，以解决可能导致的高内存占用问题‌。

通过上述方法，可以有效降低Win10系统中wsappx进程的内存占用，提升系统性能。请注意，修改注册表或停止服务可能会影响系统的稳定性和功能性，因此在进行这些操作前，建议备份重要数据，并谨慎操作。

#include "apdefap.h"

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)

{

#pragma option(mbcs)

  SetVisible(lpszPictureName,"Control1",0);

  SetVisible(lpszPictureName,"Control2",1);

  SetVisible(lpszPictureName,"Control3",0);

  SetVisible(lpszPictureName,"Control4",0);

}

VB写画面层显示隐藏

    HMIRuntime.ActiveScreen.Layers(2).Visible = False   

    HMIRuntime.ActiveScreen.Layers(3).Visible = True     

    HMIRuntime.ActiveScreen.Layers(4).Visible = False    

    HMIRuntime.ActiveScreen.Layers(5).Visible = False