InitializeList方法示例
2015-12-15 22:24:32   来源：   评论：0 点击：

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

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bSigRequired As Boolean

Dim bValidSig As Boolean

Dim info As Integer

'创建数据源列表

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

'数据源是否需要签名

ESig.IsSignatureRequiredForList 4, bSigRequired, info

If bSigRequired Then

'本列表需要签名

MsgBox “需要签名。”

Else

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

MsgBox “不需要签名。”

End If

Else

'未对签名启用硬件密钥，安全被禁用，或禁止签名生效

MsgBox “在本节点上未启用签名。”

End If