InitializeList 方法示例

下列示例创建ESignature对象，检查节点是否启用了电子签名，并确定一组标签是否需要电子签名。

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bSigRequired As Boolean

Dim bValidSig As Boolean

Dim info As Integer

'Create the list of data sources

Dim DataSources As Variant

ReDim DataSources(2) As String

DataSources(0) = "Fix32.THISNODE.TAG1.F_CV"

DataSources(1) = "Fix32.THISNODE.TAG2.F_CV"

'创建 ESignature 对象

Set ESig = CreateObject("ElectronicSignature.ESignature")

'检查节点是否启用了电子签名

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

'初始化对象并设置数据源

ESig.InitializeList DataSources

'Is signature required for data sources

ESig.IsSignatureRequiredForList 4, bSigRequired, info

If bSigRequired Then

'本列表需要签名

MsgBox “需要签名。”

Else

'本列表不需要签名，原因参见信息参数

MsgBox “不需要签名。”

End If

Else

'未对签名启用硬件密钥，已禁用安全性，或者已启用绕过签名

MsgBox "Signature is not enabled on this node."

End If