通常，变量值从变量图像读取。 但在某些情况下，例如为了同步快速过程，可能需要直接从 AS 读取变量值。
如果将读取过程的可选参数设置为 1，则不会周期性地登录变量，而是通过 AS 单次请求该值。 Dim objTag
Set objTag = HMIRuntime.Tags(\
HMIRuntime.Trace \
说明
请注意，这种调用比标准调用使用的时间要长。 除此之外，持续时间还取决于通道和 AS。 在执行周期性 C 动作的情况下，必须避免该类调用，因为这是引起性能问题的主要原因。
该类读取过程相当于 C 脚本中的 GetTagXXXWait() 调用。
4) 通过状态处理读取
为了确保值有效，应在读取之后进行检查。 这通过控制质量代码来执行。
在以下示例中，将读取“myWord”变量，然后检查 QualityCode。 如果质量代码未对应 OK (0x80)，则在全局脚本诊断窗口中显示 LastError、ErrorDescription 和 QualityCode 属性。 Dim objTag
Set objTag = HMIRuntime.Tags(\objTag.Read
If &H80 <> objTag.QualityCode Then
HMIRuntime.Trace \& objTag.ErrorDescription & vbCrLf & \0x\&Hex(objTag.QualityCode) & vbCrLf Else
HMIRuntime.Trace \End If 说明
如果读取期间出现错误，则 QualityCode 会设置为 BAD NON-SPECIFIC。 因此，只需在读取之后检查
1) 示例： 写入对象属性
VBS 可实现对所有图形编辑器画面对象的属性的访问。 运行期间可以读出各个属性以便进行修改或更改。
以下示例说明了各种访问形式。 1) 属性的简单设置
在以下示例中，画面中包含的“Rectangle1”对象的背景颜色被设置为红色 ScreenItems(\
这是最简单的写入形式，因为不会生成任何对象引用
说明
如果不通过对象引用完成操作，则智能感知中只提供标准属性。
本示例中使用的表达式形式仅适用于图形编辑器。 对于全局脚本中的模拟动作，应使用 HMIRuntime 对象访问相应对象
2) 通过对象引用设置属性
在以下示例中，将创建对画面中所包含“Rectangle1”对象的引用，并使用 VBS 标准函数 RGB() 将背景设置为红色：
Dim objRectangle
Set objRectangle = ScreenItems(\objRectangle.BackColor = RGB(255,0,0)
必须更改多个对象属性时，引用非常有用。使用智能感知时，该过程即会列出所有对象属性。
说明
本示例中使用的表达式形式仅适用于图形编辑器。 对于全局脚本中的模拟动作，应使用 HMIRuntime 对象访问相应对象 3) 通过画面窗口设置属性
图形编辑器中的 VBS 提供两种可行的画面超越访问方法： 使用“ScreenItems”通过画面窗口的 Screen 对象 ? 使用“HMIRuntime.Screens”通过基本画面
?
通过画面窗口引用
以下示例中，在从属画面窗口中更改矩形的颜色。 相应脚本在画面窗口“ScreenWindow1”所处的画面“BaseScreen”中执行。 此画面窗口会显示包含名称为“Rectangle1”的“Rectangle”类型对象的画面。
Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim objRectangle
Set objRectangle =
ScreenItems(\objRectangle.BackColor = RGB(255,0,0) End Sub
4) 通过基本画面引用
可通过 HMIRuntime.Screens 引用具有待修改对象的画面。该画面相对于基本画面的规范通过以下访问代码进行定义：
[
在以下示例中，将创建对“Rectangle1”画面中包含的“Screen2”对象的引用，并将背景颜色设置为红色。
这种情况下，画面“Screen2”位于“Screen1”中。 “Screen1”显示在基本画面“BaseScreen”中。 Dim objRectangle
Set objRectangle =
HMIRuntime.Screens(\.ScreenItems(\
objRectangle.BackColor = RGB(255,0,0)
无需指定画面名称。可以通过画面窗口名称唯一地访问某一画面。因此，只需指定画面窗口的名称，如下示例所示：
Dim objRectangle
Set objRectangle =
HMIRuntime.Screens(\objRectangle.BackColor = RGB(255,0,0)
这种访问类型可实现在不同画面中访问画面窗口中的对象。就画面模块技术而言，这是特别有趣的一点。
5) 利用返回值使属性动态化
基于属性的动作不仅能由事件触发或周期性触发，而且能直接通过动作使属性动态化。 在以下示例中，通过返回值使对象的背景颜色动态化。 例如，传送的值可能来自 PLC 中事件的评估，并用于运行状态的图形显示： Function BackColor_Trigger(ByVal Item) BackColor_Trigger = RGB(125,0,0) End Function 说明
如果通过脚本的返回值使具有 VBS 动作的对象属性动态化，则只有在相对于上次运行的脚本对象属性值发生更改时才会写入该值。 如果该值已在另一位置发生更改则无效。 因此，通过从另一位置（例如，其它 C 脚本或 VBS 脚本）的返回值来更改由 VBS 动作生成的动态属性是非法的。
如果不遵守这一点，则结果可能是错误的值。 2) 实例： 通过 VBS 组态数据库连接
简介
以下示例说明如何通过 ODBC 驱动器组态 Access 数据库链接。 示例 1 将 WinCC 的变量值写入 Access 数据库中。 ? 示例 2 从数据库读取值并将其写入 WinCC 变量中。
?
这些示例不包含任何处理故障。
1.通过 WINCC_DATA 表和 ID 在其中作为自动值的的列（ID，TagValue）来创建 Access 数据库。
2.设置名称为“SampleDSN”的 ODBC 数据源，引用以上 Access 数据库。 3.编程。 3) 示例 1
Dim objConnection Dim strConnectionString Dim lngValue Dim strSQL
Dim objCommand
strConnectionString = \lngValue = HMIRuntime.Tags(\
strSQL = \Set objConnection = CreateObject(\objConnection.ConnectionString = strConnectionString objConnection.Open
Set objCommand = CreateObject(\With objCommand
.ActiveConnection = objConnection .CommandText = strSQL End With
objCommand.Execute Set objCommand = Nothing objConnection.Close Set objConnection = Nothing 4) 步骤、示例 2
1.创建名称为 dbValue 的 WinCC 变量。
2.使用 WINCC_DATA 表和 ID，TagValue 列创建 Access 数据库： ID，创建 TagValue（ID 作用自动值）。 3.设置名称为“SampleDSN”的 ODBC 数据源，引用以上 Access 数据库。 4.编程。
Dim objConnection Dim objCommand Dim objRecordset Dim strConnectionString